2013-11-01から1ヶ月間の記事一覧
Sub fileopen() Dim FileNames As Variant Dim fn As Variant Dim SheetName As String FileNames = Application.GetOpenFilename _ ("CSV(*.csv),*.csv", MultiSelect:=True) If VarType(FileNames) = vbBoolean Then Exit Sub For Each fn In FileNames ' …