GBKEE

¦^´_ 5# HSIEN6001
§A­n¤U¸üºô­¶ªº csv, xls

1. Sub OpenIEforSave()
   
2.     Dim Alpath As String
   
3.     Alpath = "D:\XXX"
   
4.     With Workbooks.Open("http://XXX.CSV")
   
5.         .SaveAs Filename:=Alpath & "filename.csv", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False        
   
6.         .Close
   
7.     End With
   
8. End Sub

½Æ»s¥N½X