本人小白，求助各位大神，急，急，急，求支招

huangyerong

表格“测试用”宏已经设置好，但是目前取数只能取到第一行数据，我想实现取数取到第一行到第十行，请教高手，万分感谢！
Sub 回款取数()
Dim pro As String, i As Long, j As Long, x As Long, y As Long, path As String, xmpath As String
Dim fs, f, f1, fc

i = 1

xmpath = "测试用"
path = ThisWorkbook.path & "\" & xmpath & "\"

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(path)
Set fc = f.Files


Do While i <= 500
pro = ActiveSheet.Cells(i, 1)
If pro <> "" Then
   For Each f1 In fc
      If (InStr(1, f1.Name, pro) <> 0) Then
        For j = 2 To 10
               ActiveSheet.Cells(i, j) = "='" & path & "[" & f1.Name & "]春风十里'" & "!R" & 1 + x & "C" & -1 + j
        Next j
      End If
    Next f1
End If
i = i + 1
Loop
MsgBox "取数完成"

End Sub

huangyerong

砂海 发表于 2019-10-25 12:14
不知道你的要求 ,
试着在刚才这句下面一行,
加一句

大哥，能不能再帮忙研究一下。

huangyerong

急

huangyerong

急

砂海

ActiveSheet.Cells(i, j) = "='" & path & "[" & f1.Name & "]春风十里'" & "!R" & 1 + x & "C" & -1 + j
x 没有赋值 , 永远是 0

huangyerong

砂海 发表于 2019-10-25 12:06
ActiveSheet.Cells(i, j) = "='" & path & "[" & f1.Name & "]春风十里'" & "!R" & 1 + x & "C ...

大哥好，你能修改好，发出给我参考嘛，我是新手入门，0基础出门请多多指教。

砂海

huangyerong 发表于 2019-10-25 12:09
大哥好，你能修改好，发出给我参考嘛，我是新手入门，0基础出门请多多指教。

不知道你的要求 ,
试着在刚才这句下面一行,
加一句
x=x+1
试试是否是你要的结果.

huangyerong

砂海 发表于 2019-10-25 12:14
不知道你的要求 ,
试着在刚才这句下面一行,
加一句

数据是发生变化了，但是不是我想要的，按照大哥的提示，修改以后，目前的取数逻辑，跳行了，不知道该怎么设置，还没有实现取数取到第1行到第10行的需求

huangyerong

求论坛大神帮忙解决，可以悬赏学分

huangyerong

悬赏10分求大神帮忙