求解各位VBA 神人 ; 小弟EXCEL VBA 下載檔案 另存指定路徑檔案與存檔 ; 需要不會出現選項視窗 ,請神人幫忙...........

Dim IE As Object
Sub Website()

Dim IE As Object
   
    Set IE = CreateObject("internetexplorer.application")
    IE.Visible = True

    IE.navigate "http://www.XXX.ZIP"

    IE.SaveAs Filename:="D:\XXX.ZIP"   
   
    Set IE = Nothing
End Sub