Question

我有200个文件夹，所有文件夹中都有不同的名称。现在，每个具有不同名称的文件夹都有一个宏excel文件（.xlsm）。我正在尝试使用单独的文件一次编辑所有文件。代码如下：

Sub Button1_Click()

Dim wb      As Workbook
Dim ws      As Excel.Worksheet
Dim strPath As String
Dim strFile As String

'Get the directories
strPath = "C:\Users\generaluser\Desktop\testing main folder\"
strFile = Dir(strPath)

'Loop through the dirs
Do While strFile <> ""

    'Open the workbook.
    strFileName = Dir(strPath & strFile & "*.xlsm")
    'Open the workbook.
    Set wb = Workbooks.Open(Filename:=strPath & strFile & "\" & strFileName , ReadOnly:=False)

    'Loop through the sheets.

    Set ws = Application.Worksheets(1)

    'Do whatever
    ws.Range("A1").Interior.ColorIndex = 0



    'Close the workbook
    wb.Close SaveChanges:=True

    'Move to the next dir.
    strFile = Dir
Loop

End Sub

但这不起作用。我试过调整它，但无论我做什么都没有做任何事情或导致错误。有人可以帮助我让这个代码工作。（另外：“测试主文件夹”是我桌面上的文件夹，其中包含其他200个包含.xlsm文件的文件夹。）

Answer 1

将Option Explicit放在模块的顶部。您将收到一些编译器错误，其中一个错误是strFileName未声明。这个一直是一个很好的线索，在哪里看，因为问题是你在阅读它们时使用两个具有大致相同含义的变量名，并且它们是＆＃39;混淆了。

在您修复变量后，请查看Dir function的文档。第二个问题是您在循环中多次调用Dir，这意味着您正在跳过结果。

看起来应该更像这样：

Dim wb As Workbook
Dim ws As Excel.Worksheet
Dim file As String

'path never changes, so make it a Const
Const path = "C:\Users\generaluser\Desktop\testing main folder\"
'This returns the first result.
file = Dir$(path & "*.xlsm")

Do While file <> vbNullString
    Set wb = Workbooks.Open(Filename:=path & file, ReadOnly:=False)
    Set ws = Application.Worksheets(1)
    'Do whatever
    wb.Close SaveChanges:=True
    'This returns the next result, or vbNullString if none.
    file = Dir$
Loop

编辑位于不同文件夹中的多个Excel文件全部合并在一个文件夹中

1 个答案: