Microsoft Office Excel

ファイルオープンオブジェクトを利用して、ファイルを開く

With Application.FileDialog(msoFileDialogFilePicker)
       
        'デフォルトで表示するディレクトリ名を入力
        .InitialFileName = "C:\Temp"
       
        .InitialView = msoFileDialogViewDetails
       
        'ファイルフィルタの設定
        .Filters.Clear
        .Filters.Add "すべてのファイル", "*.*"
        .Filters.Add "Excelファイル", "*.xls"
        .Filters.Add "テキストファイル", "*.txt"
       
        '初期選択フィルタの設定
        '1:すべてのファイル
        '2:Excelファイル
        '3:テキストファイル
        .FilterIndex = 1
       
        '複数ファイル選択の許可
        .AllowMultiSelect = True
       
        'タイトルバーの表示文字列の設定
        .Title = "ファイル選択(複数選択可)"
       
        'ボタンの表示文字列の設定
        .ButtonName = "作成開始"
        .Show
   
        
    '選択ブックのファイルパスの取得
    For Each fileItem In .SelectedItems
        Workbooks.Open Filename:=fileItem, ReadOnly:=False
        Workbooks(Dir(fileItem)).Activate
        
        '現在開いているブックを閉じる
        ActiveWorkbook.Close SaveChanges:=True
    Next
 End With

コメント：

お名前:

(画像の文字列を入力して下さい)