excel vba整合统计多个文件,如何在1个工作簿提取到其它工作簿第二个表格里’小计2‘的数据

Question

v的数据要注是‘表二（下浮前）’表格里’小计2‘计算出来的数据
大神帮忙改下代码。。
Private Sub CommandButton1_Click()
Dim lujing As String
Dim i As Long, j As Long, h As Long, f, t As String, u As String, v As String
Dim a As String, b As String, c As String
i = 6
k = CInt(TextBox4.Value)

For j = 1 To k
lujing = ThisWorkbook.Path + "\" + CStr(Sheet1.Cells(i, 1).Value) + "-" + CStr(Sheet1.Cells(i, 3).Value)
f = Dir(lujing & "\*.xls")
t = "='" + lujing + "\[" + f + "]表一'!$J$12"
u = "='" + lujing + "\[" + f + "]表一'!$J$13"
'v = "='" + lujing + "\[" + f + "]表二（下浮前）'!$D$12"

Do While f <> ""
f = Dir
If f <> "" Then
t = t & "+'" & lujing & "\[" & f & "]表一'!$J$12"
u = u & "+'" & lujing & "\[" & f & "]表一'!$J$13"
'v = v & "+'" & lujing & "\[" & f & "]表二（下浮前）'!$D$12"
End If

Loop

Sheet1.Cells(i, 7).Value = t
Sheet1.Cells(i, 8).Value = u
'Sheet1.Cells(i, 9).Value = v
i = i + 1
Next
MsgBox ("更新完毕")
End Sub

Answer 1

excel vba帮解决