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

lusa

半百 发表于 2022-5-13 18:01
你的代码是要将结果写入A、B两列，但你把它们隐藏了。

这个2你还是抄成1了。

太谢谢了，我看了确实是可以提取文件名字，但是提取的是Total后面列的数据，而不是最后一列的数据，我还在研究中，哎，这个语言表达太难了

lusa

这个Total不是固定行，但是列是固定的，我想提取AMOUNT和TOTAL:交叉的这个合计数，改怎么表达，目前提取的是和B列交叉的，但是我想提取和K列交叉的。或是提取Total:所在行最后一个数据，我改成了Set Rng = .Sheets(1).UsedRange.Find("Total:",after(,9) lookat:=xlWhole)显示我语法错误，这个到底该如何表达啊

liulang0808

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(f)
            For Each sh In .Sheets
             Set Rng = sh.UsedRange.Find("Total:", Lookat:=xlWhole)
             If Not Rng Is Nothing Then
                 r = r + 1
                 arr(r, 2) = Rng.Offset(0, 10)
                 arr(r, 1) = f.Name
               End If
            Next sh
           .Close False
          End With
        End If
    Next f
If r >= 0 Then
[a2].Resize(r, 2) = arr
End If
Application.ScreenUpdating = True
End Sub

liulang0808

附件内容供参考。。。。。。

lusa

liulang0808 发表于 2022-5-14 06:41
附件内容供参考。。。。。。

非常感谢版主的回复，完美的解决了困扰我好几个月的问题，我先研究研究。谢谢谢谢

半百

lusa 发表于 2022-5-14 06:11
这个Total不是固定行，但是列是固定的，我想提取AMOUNT和TOTAL:交叉的这个合计数，改怎么表达，目前提取的 ...

Rng.Offset(0, 1)，这个Offset(0, 1)就是相对偏移的位置，（0，1）指这个单元格（Total:所在单元格)同行右边一列的单元格，你要K列，就它右边第10列的，就是Rng.Offset(0, 10)。如果不确定它在哪一列，只知道跟AMOUNT在一列，那就再加一句查找， Set Rng2 ＝ sh.UsedRange.Find("AMOUNT")，然后arr(r, 2) = sh.Cells(rng.Row, RNG2.Column)

lusa

其实我也买了EXCELhome的课件，比如郭辉老师的财务总监EXCEL私房课，叶枫老师的EXCEL VBA其实很简单，感觉很有用，结合百度和论坛，真的是让我学到不少东西。非常感谢~~

liulang0808

lusa 发表于 2022-5-14 07:16
其实我也买了EXCELhome的课件，比如郭辉老师的财务总监EXCEL私房课，叶枫老师的EXCEL VBA其实很简单，感觉 ...

多来论坛当义工，解决问题

lusa

半百 发表于 2022-5-14 06:54
Rng.Offset(0, 1)，这个Offset(0, 1)就是相对偏移的位置，（0，1）指这个单元格（Total:所在单元格)同行 ...

非常感谢~~