求助，如何用变量定义一个文件的不同sheet

正确书写代码一定行的。

for i = 1 to 31
Range("D" & i).Select
ActiveCell.FormulaR1C1 = "='[日报2017.1.xlsx](此处需要实现sheet i)'!R6C17"
试了好几种方法都没辙

把表和要求贴出来，出去了帮你做做，免费的。

上图是数据源表“日报样例”，每天一个worksheet，取名1/2/3.../31
下图是汇总表，自动到数据源表中去取数，把相应位置的值取过来，因为worksheet太多，每天一个，一个月一个文件，一年12个文件，需要循环读取

这个不难。

对于遍历工作表或者遍历单元格的问题，虽然有for each next循环，但我还是建议使用行列方式读取比较好：
遍历工作表：
For i = 1 To Worksheets.Count
next i
遍历单元格：
For k = a1 To a2
For j = b1 To b2
s = Worksheets(i).Cells(k, j)
Worksheets(n1).Cells(k, j) = s
Next j
Next k
上述两种嵌套就能遍历所有工作表和所有单元格，好处是简单好记，能做任何自己想做的事。