VBA從文件名不斷變化的URL下載文件

Question

有人可以幫助我，因爲我拉我的頭髮。我試圖從網站&下載一個文件，將它複製到另一個位置。如果我使用下面註釋的實際文件名稱，它將起作用。可悲的是，文件名稱每天都在變化&我已經在單元格B1（01 04 2016）中說明了這一點。無論如何，我收到'編譯錯誤：需要常量表達式'的錯誤，並突出顯示第一個'&'。有沒有人有任何想法可能有幫助？

{

Option Explicit 

Private Declare Function URLDownloadToFile Lib "urlmon" Alias _ 
              "URLDownloadToFileA" (_ 
              ByVal pCaller As Long, ByVal szURL As String, _ 
              ByVal szFileName As String, _ 
              ByVal dwReserved As Long, _ 
              ByVal lpfnCB As Long) As Long 


`enter code here`Sub DownloadFileFromWeb() 
Dim i As Integer 

    Const strUrl As String = "https://test.com/sites/Field Completions Reported " & Range("B1") & ".xlsb" 
    '"https://test.com/sites/Field Completions Reported 01 04 2016.xlsb" 

    Dim strSavePath As String 
    Dim returnValue As Long 

    strSavePath = "C:\Users\1234\Desktop\Field Completions Reported.xlsb" 
    returnValue = URLDownloadToFile(0, strUrl, strSavePath, 0, 0) 

End Sub 

}

Answer 1

Compile error: Constant expression required

你不能用Variable使用Const。當你使用Const然後傳遞一些不會改變的東西。例如

Const a = "Sid" '<~~~ This will work 
Const a = "Sid" & i '<~~ This will not work. i is a variable 
Const a = "Sid" & Range("A1").Value '<~~ This will not work. Range("A1") is a variable 

您的代碼更改此

Dim strUrl As String 

'"https://test.com/sites/Field Completions Reported 01 04 2016.xlsb" 
strUrl = "https://test.com/sites/Field Completions Reported " & _ 
     Range("B1").Value & ".xlsb"