使用宏实现多张格式相同的excel内容不同的信息采集表格，提示：运行时错误“1004”

蓉城烟雨

使用宏实现多张格式相同的excel内容不同的信息采集表格，如表1、表2，需要汇总在一张表上，如表3。提示：运行时错误“1004”（代码红色标注的地方），请各路高手现身帮忙解决！
>>>>>>>>>>>>>以下是VBA宏代码<<<<<<<<<<<<<<<
Sub mergeExcel()

Dim filename
Dim filename1
Dim a

filename = Dir(ThisWorkbook.Path & "\*.xlsx")  '注意不同版本excel后缀不同
filename1 = ThisWorkbook.Name
a = 2   '汇总表中起始行号
Do While filename <> ""

    If filename <> ThisWorkbook.Name Then
        Workbooks.Open ThisWorkbook.Path & "\" & filename     
        Windows(filename1).Activate
        '以下是提取数据，可根据实际情况添加
        Range("a" & a) = "=[" & filename & "]Sheet1!$a$1"
        '.......以上取了数据表中A1单元格到汇总表a列中
        Windows(filename).Close
    End If

    filename = Dir
    a = a + 1
Loop

End Sub
>>>>>>>>>>>>>>>以下是截图<<<<<<<<<<<<<<<<<<<<<
表1

表2


表3

蓉城烟雨

已解决，谢谢大家的关注