|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
所有工作簿的名称都列示在A列,想要让相对应的工作表与工作簿建立链接.本来想用工作簿的名称直接命名工作表名称,但由于名称太长,故进行筛减后,将工作表名称列在D列.
Sub 取数()
Dim temp, i
For i = 1 To 126
temp = ThisWorkbook.Path & "\[" & Worksheets("sheet1").Range("a" & i) & ".xlsx]汇总'!"
Worksheets(Worksheets("sheet1").Cells(i, 4).Value).Range("a1:e20").FormulaR1C1 = "=" & temp & "rc"
Next
End Sub
各位老师,以上有两个问题,第一temp = ThisWorkbook.Path & "\[" & Worksheets("sheet1").Range("a" & i) & ".xlsx]汇总'!" 这段代码中 worksheets("sheet1")).range("a"&i)用这个方法写可以赋值,但是用worksheets("sheet1")).cells(i,1)用这个表达方式就不能赋值
第二个问题:Worksheets(Worksheets("sheet1").Cells(i, 4).Value).Range("a1:e20").FormulaR1C1 = "=" & temp & "rc" 这里老师提示错误
|
|