如何指向目录来启动每个文件的workbooks.opentext命令vba

在VBA中，我有一个Workbooks.OpenText命令：

Workbooks.OpenText Filename:=strFileToOpen, StartRow:=11, DataType:=xlDelimited, Tab:=True, TrailingMinusNumber:=True 

但是，而不是通过文件打开文件并将其添加到我的工作簿。 我想将其指向一个目录，并且让VBA（Excel）为目录中的每个文件执行Workbooks.OpenText函数。 我怎么做？

Answer 1

欢迎来到论坛！ 您可以列出文件夹中的文件，并使用下面的示例代码打开它们。 只要改变目录和模式识别器。 它目前设置为在C：\ temp \文件夹中search.xlsm文件

 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