vba - フォルダー内のすべてのファイルを開き、VBA を使用してデータを区切る

Question

フォルダー内のすべてのファイル (拡張子は同じではありません - 日付拡張子があります) をテキストとして開き、それを区切ることができる Excel コードを探しています。このテーブルで作業したい後。

私は実際にここからいくつかのコードを取得しようとしていますが、それらのほとんどはxls用または区切りなしです.

どうすればこれを解決できますか?

ありがとう

Answer 1

このコードは、指定されたフォルダー内のファイルをループします (フォルダーを選択するためのダイアログ ボックスが開きます)。

Dim sPath As String
Dim sFil As String
Dim FolderPath As String
   Dim diaFolder As FileDialog

   ' Open the file dialog
   Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker)
    diaFolder.AllowMultiSelect = False
    diaFolder.Show
    FolderPath = diaFolder.SelectedItems(1)

     ' Cycle through spreadsheets in selected folder

sPath = FolderPath & "\" 'location of files

sFil = Dir(sPath & "*.xls") 'change or add formats
Do While sFil <> "" 'will start LOOP until all files in folder sPath have been looped            through


Set oWbk = Workbooks.Open(sPath & "\" & sFil) 'opens the file
' do something

oWbk.Close True
sFil = Dir

Loop

これで始められることを願っています。