VBAでVBA

Question

ため、各ファイルにworkbooks.opentextコマンドを開始するために、ディレクトリを指すようにどのように、私はWorkbooks.OpenTextコマンドを持っています私のワークブック。これをディレクトリに指定し、VBA（Excel）にディレクトリ内の各ファイルのWorkbooks.OpenText関数を実行させたいと思います。それ、どうやったら出来るの？

Answer 1

フォーラムへようこそ！ フォルダ内のファイルを一覧表示し、以下のサンプルコードを使用してファイルを開くことができます。ディレクトリとパターン認識プログラムを変更するだけです。現在Cで.xlsmファイルを検索するように設定されます：\ tempに\フォルダ

Public Sub OpenFilesInFolder() 
    Const folder_to_search As String = "C:\temp\" 
    Const pattern_recognition As String = "*.xlsm" 
    Dim the_file_name As String 
    Dim full_path As String 
    'the_file_name = Dir(folder_to_search & pattern_recognition, vbNormal) 'Applies the pattern recognition 
    the_file_name = Dir(folder_to_search, vbNormal)      'Does not apply the pattern recognition 
    Do While Len(the_file_name) > 0 
     full_path = folder_to_search & the_file_name 
     Debug.Print full_path 'The full path will be printed in the Immediate window Ctrl+G will open this 
     Workbooks.OpenText Filename:=full_path 
     the_file_name = Dir 'Move onto the next file 
    Loop 
End Sub