[µo°Ý] ¦p¦ó«O¯dÂ^¨ú¸ê®Æªººô§}³sµ²?

leoncc

Â^¨úºô­¶:
http://dj.mybank.com.tw/z/zc/zcv/zcv_2355.djhtm

§Úªºcode:

1. Dim NewsURL As String
   
2. NewsURL = "URL;http://dj.mybank.com.tw/z/zc/zcv/zcv_" & ªÑ²¼¥N¸¹ & ".djhtm"
   
3.    
   
4.     With Sheets("°ò¥»¸ê®Æ").QueryTables.Add(Connection:=NewsURL, Destination:=Range("K3"))
   
5.         .TablesOnlyFromHTML = True
   
6.         .RefreshStyle = xlOverwriteCells
   
7.         .WebSelectionType = xlSpecifiedTables
   
8.         .WebFormatting = xlWebFormattingNone
   
9.         .AdjustColumnWidth = True
   
10.         .WebTables = "4"
    
11.         .WebPreFormattedTextToColumns = True
    
12.         .WebConsecutiveDelimitersAsOne = True
    
13.         .WebSingleBlockTextImport = False
    
14.         .WebDisableDateRecognition = False
    
15.         .WebDisableRedirections = False
    
16.         .Refresh BackgroundQuery:=False
    
17.         
    
18.       
    
19.     End With

½Æ»s¥N½X

°õ¦æµ²ªG:

¤U¸ü (75.92 KB)

2014-7-6 20:10

½Ð°Ý­n«ç»ò¦bExcel¸Ìªº¨C«h·s»D³£¥i«O¯d¨äºô­¶³sµ²¡A©Ò¥H§Ú¥i¥H¦bExcel¸Ìª½±µÂI¨ú¨C«h³ø¾É¶}±Òºô­¶?  ÁÂÁÂ

stillfish00

¦^´_ 1# leoncc
.WebFormatting = xlWebFormattingAll

leoncc

­ì¨Ó³o»ò²³æ°Ú
stillfish¤j ¯u¬O·PÁ±zªü ·P®¦¤¤