Excelファイルを開くためのVBA

Question

VBAを使用してExcelファイルのフォルダにExcelファイルを開こうとしています。エンドユーザーを直接フォルダに連れて行き、ダイアログボックスからファイルを選択できるようにコードを指示します。しかし、ダイアログボックスからファイルを選択してもファイルを開くことができません。

私の問題点は、ファイルを選択した後にファイルを開くコマンドが欠けていることです。ここで

は

thisYear = Year(Date) 


'change the display name of the open file dialog 
    Application.FileDialog(msoFileDialogOpen).Title = _ 
    "Select Input Report" 

'Remove all other filters 
Application.FileDialog(msoFileDialogOpen).Filters.Clear 

'Add a custom filter 
Call Application.FileDialog(msoFileDialogOpen).Filters.Add(_ 
    "Excel Files Only", "*.xls*") 

    'Select the start folder 
    Application.FileDialog(msoFileDialogOpen _ 
    ).InitialFileName = "\\driveA\Reports\" & thisYear & "" 

は親切に自分の考えを共有してください、私のコードです。ありがとう。

Answer 1

ファイルを1つだけ選択できるとします（つまり、AllowMultiSelect = False）。

Dim file As String 
Dim myWbk As Workbook  

file = Application.FileDialog(msoFileDialogOpen).SelectedItems(1) 

Set myWbk = Workbooks.Open(file) 

最初の行が選択したファイルのパスを取得し、2行目が開きます。これをコードの最後に追加します。