[µo°Ý] [¤w¸Ñ¨M]¶}±ÒIE«á,«ü©w¤U¸ü¸ô®|

HSIEN6001

¨Ï¥ÎIE¶}±Ò¬Y¸ô®|¤§«á,¥X²{¤U¸üÀɮתº¸ß°Ýµøµ¡
«ü©w¤U¸ü¸ô®|ªº»yªk,¥X²{°ÝÃD
½ÐÀ°§Ú¬Ý¬Ý

1. Sub OpenIEforSave()
   
2. Dim ie As Object
   
3. Set ie = CreateObject("InternetExplorer.Application")
   
4. Dim Alpath As String
   
5. Alpath = "D:\XXX"
   
6. 
   
7.     ie.Visible = True
   
8.     ie.Navigate "http://XXX.CSV"
   
9.    
   
10.     .SaveAs Filename:=Alpath & "filename.csv", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False , CreateBackup:=False       '«ü©w¸ô®|¤U¸ü
    
11.    
    
12.    ie.Quit
    
13.    Set ie = Nothing
    
14.      
    
15. End Sub

½Æ»s¥N½X

PKKO

¦^´_ 6# GBKEE


¦n±jªº¤èªk
¦n²³æªº¥Îªk
¨S¦³¶Wª©¤j¤jªº¤¶²Ð§¹¥þ·Q¤£¨ì³o¼Ë¤]¥i¥H¥Î...

HSIEN6001

¦^´_ 6# GBKEE


    With Workbooks.Open
­ì¨ÓÁÙ¥i¥H³o¼Ë¨Ï¥Î,¦¬¨ì~ÁÂÁ«ü¾É!
~·P®¦~~~~^____^

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

HSIEN6001

¦^´_ 2# Hsieh

H¤j,ÁÂÁÂ!
­ì¨Ó¬O§Ú·d¿ù¤F

¥ý«e§Ú®M¥Î­ì¦³ªº¬Û¦ü»yªk¤@ª½¸Õ¤£¥X¨Ó
¥H¬°¨º­Ó¤è®×¤£¦æ

­è­è¸Õ¤@¦¸#3
¨º»yªk,¦³¸Ñ¨M§Úªº°ÝÃD
ÁÂÁ§A³á!

¦h¶¤F¤@¤j°é~¹Ä®ð~^^!!

HSIEN6001

ªÖ©w¬O§Ú¨Sªí¹F²M·¡,¹ï¤£°_
Àɮ׬O.CSV ªº "«Ê¥]"

myURL = "http://XXX=CSV"
ª½±µ¥X²{¡e¶}±Ò¡f¡B¡eÀx¦s¡f¡B¡e¨ú®ø¡fªº¹ï¸Ü®Ø

°£¤F­nµ¹ VBA ¹ïÀ³ [Àx¦s]
¤]­nµ¹ VBA ¹ïÀ³ [Àx¦s¸ô®|]

1. Sub OpenIEforSave()
   
2. Dim ie As Object
   
3. Set ie = CreateObject("InternetExplorer.Application")
   
4. Dim Alpath As String
   
5. Alpath = "D:\XXX"
   
6. 
   
7. ie.Visible = True
   
8. ie.Navigate "http://XXX=CSV"
   
9.    
   
10. Do While ie.Busy
    
11.       DoEvents
    
12. Loop
    
13. 
    
14. 'MsgBox ie ¸ß°Ý----> [¶}±Ò] [Àx¦s] [¨ú®ø]  '----> VBA«ü¥O?!
    
15. 'SavetoFile=Alpath & "filename.csv"        '?«ü©w¸ô®|¤U¸ü
    
16. ¥H¤W' ¨â¬q,¬O§Ú¼g¤£¥X¨Óªº¦a¤è,³Â·Ðª©¤jÀ°§Ú¬Ý¬Ý
    
17.    
    
18. ie.Quit
    
19. Set ie = Nothing
    
20.      
    
21. End Sub

½Æ»s¥N½X

HSIEN6001

¦^´_ 2# Hsieh

ÁÂÁÂ&©êºp!
³o¤£¬O§Úªº¤è¦V

¸ÓÀÉ®×Ãþ¦ü"«Ê¥]"¡A¤£¾A¥Î¥t¥~Â^¨ú¸ê®Æ
§Ú¸Õ¹LWinHttpReq.Open "GET", myURL, False
¤£¯à¥Î³o­Ó

¥u­n¥´¶}IE´Nª½±µ¸ß°Ý¤U¸ü"ÀÉ®×.csv"»P§_
§Ú·Q«ü©w¸ô®|µ¹³o"ÀÉ®×.csv"¤U¸ü

§Ú¤w¸g³]©w¶}±Ò¤ÎÃö³¬¬O¢Ý¢Ùªº
«ü©w¸ô®|»yªk¤@ª½·d¤£©w

¤£ª¾¹D¬O§_¸Ó¤U SaveToFile »yªk
ÁÙ¦³ SaveToFile  ªº»yªk«ç»ò¤U¤~¥¿½T

Hsieh

¦^´_ 1# HSIEN6001


    http://forum.twbts.com/thread-6762-1-1.html

3#