runtime error 1004

松鼠小西

Sub M5305_report()
Dim M5305 As Workbook
Dim Exchange As String
Dim TT As String
Dim Report As Workbook
Dim AL010 As String
Dim AL010Name As String
Dim Namee As String
Dim Endrow As Long
Dim weeks As Long
Set M5305 = ThisWorkbook

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Namee = Format(Date, "yyyy-mm-dd")
M5305.Sheets(1).Cells(1, 1).Value = "=ROUNDUP(TODAY()/7,0)-ROUND(DATE(YEAR(TODAY()),1,1)/7,0)"
weeks = M5305.Sheets(1).Cells(1, 1).Value - 1
Exchange = "\\Retcn466-nt0001.ikea.com\exchange\"
AL010 = "\\RETCN466-NT0001.ikea.com\Common\Supply Support\01  Daily report\Auto gadd\"
TT = Dir(Exchange & "\id_5305_*.xls")
If TT = "" Then
Application.Quit
End If
AL010Name = "range " & Namee & ".xls"
Workbooks.Open Filename:=Exchange & TT （走到这里就走不动了）
    Cells.Copy M5305.Sheets(1).Range("A1")
    Workbooks(TT).Close
    M5305.Activate
    Sheets(1).Activate

和气生财

怎么走不动了，提示信息是“runtime error 1004”?
上传你的文件看看吧，这样比较有针对性。而且字面上看，没有问题（id_5305_*.xls前面的 "\" 已经去掉），即使得到的那个文件名非法，也不会只是简单的runtime error 1004啊。

爱疯

Workbooks.Open Filename:=Exchange & TT （走到这里就走不动了）

我只是猜测，是不是网络问题无法正常访问到指定文件。
帮助说：“参数Filename：String. 要打开的工作簿的文件名。”
先替换为本地路径看看？