問題引用暫時未保存工作簿 - 運行時錯誤438

Question

我有一個問題能夠在一個臨時工作簿中運行宏，這是故障線路：

With ActiveSheet.QueryTables.Add(Connection:= _ 
     "FilePath;", _ 
     Destination:=temp.Range("$A$1")) 

這段代碼顯示了運行時錯誤。我嘗試了其他技術，如readOnly，但他們也沒有工作。

有沒有解決這個問題的方法？

Sub temp() 

Dim Qa As Workbook 
Dim temp As Workbook 
Dim sum As Worksheet 
Dim cov As Worksheet 
'Dim ClientDate1 As Date 
'Dim ClientDate2 As Date 
'Dim Url As String 
'Dim FilePath As String 

Set Qa = ThisWorkbook 
Set temp = Workbooks.Add 
Set sum = Qa.Worksheets("Summary") 
Set cov = Qa.Worksheets("Coverage") 
ClientName = sum.Range("A1") 
ClientDate = sum.Range("A3").Value 
ClientDate1 = Format(ClientDate, "mm") 
ClientDate2 = Format(ClientDate, "yyyy") 

Url = "http://" & "wiki.rosslyn.local/mediawiki/index.php/" 
FilePath = Url & ClientName & "_" & ClientDate2 & "_" & ClientDate1 

With ActiveSheet.QueryTables.Add(Connection:= _ 
     "FilePath;", _ 
     Destination:=temp.Range("$A$1")) 
     .Name = "Deloitte_2013_08" 
     .CommandType = 0 
     .FieldNames = True 
     .RowNumbers = False 
     .FillAdjacentFormulas = False 
     .PreserveFormatting = True 
     .RefreshOnFileOpen = False 
     .BackgroundQuery = True 
     .RefreshStyle = xlInsertDeleteCells 
     .SavePassword = False 
     .SaveData = True 
     .AdjustColumnWidth = True 
     .RefreshPeriod = 0 
     .WebSelectionType = xlEntirePage 
     .WebFormatting = xlWebFormattingNone 
     .WebPreFormattedTextToColumns = True 
     .WebConsecutiveDelimitersAsOne = True 
     .WebSingleBlockTextImport = False 
     .WebDisableDateRecognition = False 
     .WebDisableRedirections = False 
     .Refresh BackgroundQuery:=False 

    End With 

    temp.Close 

    End Sub 

Answer 1

禮貌James Cone：

從各地CLIENTNAME刪除引號。

從...

"Url" & "ClientName" & 

要...

"Url" & ClientName & 
'---