'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

r = URLDownloadToFile(0,spvPrintControllerURL & "?lotNo=" & lotNumber,pdfPath,0)

或者

patch=×××.pdf

FileByte = Inet1.OpenURL(spvPrintControllerURL & "?lotNo=" & lotNumber,icByteArray) Open pdfPath For Binary As #1 Put #1,1,FileByte Close #1