|
いまいち、うまくいかなくて悩んでます
アドバイスいただけるとありがたいです
ダイアログボックスを使って、
複数のファイルを選択します
その選択したファイルを順番に開きたいのですが、
どうもうまくいきません
このプログラムのどこが良くないのか?
分かりません
伝授お願いします
Sub test()
Dim OpenFileName As Variant, tmp As String, i As Long
Dim MyFile As Workbook
OpenFileName = Application.GetOpenFilename(FileFilter:="Microsoft Excelブック,*.xls", _
MultiSelect:=True)
If IsArray(OpenFileName) Then
For i = 1 To UBound(OpenFileName)
If OpenFileName(i) <> False Then
Workbooks.Open Filename:=OpenFileName(i)
Set MyFile = Application.ActiveWorkbook
End If
Next i
Else
MsgBox "キャンセルされました。", vbInformation
End If
End Sub
|
|