私は 2 つのフォルダーtextFilesとexcelFilesを持っています。ファイル名は同じですが、拡張子が異なります (textFiles = .txt & excelFiles = .xlsx の場合)。それを作成する関数。
Sub LookForNew()
Dim dTxt As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set filsTxt = fso.GetFolder("C:\txtFiles").Files
Set filsExcel = fso.GetFolder("C:\excelFiles").Files
Set oFileExcel = CreateObject("Scripting.Dictionary")
Set tFileExl = CreateObject("Scripting.Dictionary")
Set oFileExl = CreateObject("Scripting.Dictionary")
For Each fil In filsTxt
dTxt = fil.Name
For Each exl In filsExcel
oFileExcel = exl.Name
oFileExl = Split(oFileExcel, ".")
tFileExl = oFileExl(0)
Next exl
If Not (tFileExl.Exists(dTxt)) Then
' Call function
Else
MsgBox "No more files to convert"
End If
Next fil
Set fso = Nothing
サブ終了
しかし、私のコードのフィールド「oFileExcel」は辞書ではなく文字列を返します ヘルプ plz