質問: Application.GetOpenFilename("Microsoft Excelブック,*.xls?") If OpenFileName <> "False" Then Workbooks.Open OpenFileName Else MsgBox "キャンセルされました" End If End Sub Sub Macro2() With ActiveWorkbook .SaveAs Filename:= "\○○○\デスクトップ\売上.csv" _ , FileFormat:=xlCSV .Close SaveChanges:=False End With
回答: i = Range("*売上_*").Value ありえない記述ですが、何を期待してこう