Question

我发现这个脚本循环遍历文件夹中的工作簿。

autoFocus

我将我的宏移到Sub OpenFilesVBA() Dim Wb As Workbook Dim strFolder As String Dim strFil As String strFolder = "c:\Temp" strFil = Dir(strFolder & "\*.xls*") Do While strFil <> vbNullString Set Wb = Workbooks.Open(strFolder & "\" & strFil) Wb.Close False strFil = Dir Loop End Sub，称为“导入”。我的文件是Microsoft Excel csv文件，它们将保存为我的代码xlsx。

我的问题是如何修改上面的代码以通过所有文件运行我的宏？在哪里加入我的宏？

非常感谢

Answer 1

如果您想对已打开的工作簿执行某些操作，则需要执行Workbooks.Open功能：

Sub OpenFilesVBA()

Dim Wb As Workbook
Dim strFolder As String
Dim strFil As String

strFolder = "c:\Temp"
strFil = Dir(strFolder & "\*.csv*")
Do While strFil <> vbNullString
    Set Wb = Workbooks.Open(strFolder & "\" & strFil)

    'Add your code here

    Wb.Close False
    strFil = Dir
Loop

End Sub

在多个工作簿/文件上运行Excel宏

1 个答案: