excel的vba

各位老师：

请问

Do While i <= t + 1
       
        ActiveSheet.Cells(i, 2).Select
        ActiveCell.FormulaR1C1 = _
            "=MAX('C:\Documents and Settings\Administrator\桌面\原始火炬温度11.3.21\[2010y05m01.xls]Report100'!R9C2:R1448C2)"
        i = i + 1
    Loop

在这个命令中我想把excel文件名为2010y05m01循环一次连接到另一个excel文件2010y05m02）

Do While i <= t + 1
        dim nian,yue,ri as integer

        nian=2010

        yue=5

        ri=1
        ActiveSheet.Cells(i, 2).Select
        ActiveCell.FormulaR1C1 = _
            "=MAX('C:\Documents and Settings\Administrator\桌面\原始火炬温度11.3.21\[&str(nian)&y&str(yue)&m&str(ri)&.xls]Report100'!R9C2:R1448C2)"
        i = i + 1

        ri=ri+1
    Loop

这个命令修改后不能找到这个文件。

请帮我指正。

点击下载此附件