遍历文件夹提取EXCEL文件名及对应的不固定行的合计数，我的VBA那里有问题？

lusa

详细请见附件：文件夹里有很多这种EXCEL文件，格式是一样的，但是我要提取文件名，超链接和那个发票号码对应的Sub total:的合计金额。
自己写了一段代码，但不知道哪里错了，详细请见附件，麻烦大神帮忙修改一下。万分感谢



Sub 按钮1_Click()
    Dim arr(1 To 5000, 1 To 2)
    r = 0
    Set fso = CreateObject("Scripting.FileSystemObject")
    Application.ScreenUpdating = False
    ActiveSheet.UsedRange.Offset(1).ClearContents
    For Each f In fso.getfolder(ThisWorkbook.Path).Files
        If InStr(f.Name, ThisWorkbook.Name) = 0 Then
        With Workbooks.Open("D:\发票汇总表\wenti\f.xlsm")
             Set Rng = .Sheets(1).UsedRange.Find("Sub total:", Lootat:=xlWhole)
             If Not Rng Is Nothing Then
                 r = r + 1
                 arr(r, 1) = Rng.Offset(0, 1)
                 arr(r, 1) = file:///C:\Users\cherry\AppData\Roaming\Tencent\QQTempSys\%W@GJ$ACOF(TYDYECOKVDYB.pngf.Name
               End If
    .Close False
   End With
End If
    Next f
If r >= 0 Then
[a2].Resize(r, 2) = arr
End If
Application.ScreenUpdating = True
End Sub

半百

jjmysjg

Sub total，这个出自哪个表？

lusa

jjmysjg 发表于 2022-5-13 13:35
Sub total，这个出自哪个表？

你好！那个sub total 是附件EXCEL表格里的合计金额，每个表格里都有一个合计金额，但是这合计金额的行不是固定的，这块我不会设置，我只会固定的行取数

lusa

不好意思，可能我没有描述准确，就是有很多文件，文件名合发票号码是一致的，我需要提取发票号码对应的合计金额，但合计金额那个行是不固定的，所以不知道该怎么设置，写的程序运行了也没有用

lusa

我举例的图片也上传了

lusa

提示运行错误，448未找到命名参数，什么原因？    Dim arr(1 To 5000, 1 To 2)
    r = 0
    Set fso = CreateObject("Scripting.FileSystemObject")
    Application.ScreenUpdating = False
    ActiveSheet.UsedRange.Offset(1).ClearContents
    For Each f In fso.getfolder(ThisWorkbook.Path).Files
        If InStr(f.Name, ThisWorkbook.Name) = 0 Then
        With Workbooks.Open("D:\发票汇总表\wenti\f.xlsm")
             Set Rng = .Sheets(1).UsedRange.Find("Total:", Lootat:=xlWhole)
             If Not Rng Is Nothing Then
                 r = r + 1
                 arr(r, 1) = Rng.Offset(0, 1)
                 arr(r, 1) = f.Name
               End If
    .Close False
   End With
End If
    Next f
If r >= 0 Then
[a2].Resize(r, 2) = arr
End If
Application.ScreenUpdating = True
End Sub

lusa

半百 发表于 2022-5-13 13:03

非常感谢您的修改，我照着修改了一遍但是还是不能提取那个合计金额

lusa

我发现我的那个f的文件一压缩就不见了，就吧每个EXCEL表格压缩了一下

半百

lusa 发表于 2022-5-13 16:50
非常感谢您的修改，我照着修改了一遍但是还是不能提取那个合计金额

你的代码是要将结果写入A、B两列，但你把它们隐藏了。

这个2你还是抄成1了。