ファイルを統合する

Question

特定のフォルダにあるすべてのExcelファイルを統合します。私は、マージするファイルがあるフォルダのパスの入力ボックスを作成しました。それから私はファイル名のための数式を持っていて、その数式はうまくいきません。値はFilename=""です。それはなぜ起こるのですか？どのように修正することができますか？

Dim Path as String 
Dim Filename as String 

Path = InputBox("Paste the path of the folder with files to consolidate") 

Filename = Dir(Path & "*.xls*", vbNormal) 

Answer 1

なぜExcelの独自のフォルダピッカーを使用しないのですか？このコードを試してください。

Function PickedFolder() As String 

    Dim Dlg As FileDialog 
    Dim Ffn As String 

    Ffn = Application.DefaultFilePath & "\" 
    Set Dlg = Application.FileDialog(FileDialogType:=msoFileDialogFolderPicker) 
    With Dlg 
     .Title = "Select the folder to consolidate" 
     .InitialView = msoFileDialogViewList 
     .InitialFileName = Ffn 
     .AllowMultiSelect = False 
     If .Show = True Then PickedFolder = .SelectedItems(1) 
    End With 
End Function 

この関数は、ユーザーが選択するパスを返します。テキストボックスに入力するか、直接検索してファイル内のファイルを統合することができます。