[發問] 請問這種匯入外部資料web要如何做到

freeffly

附檔內有兩各工作表
請問A工作表的方式是怎麼做到的
我試著去找怎麼弄都還是像sheet1那樣跑出全部資料



匯入外部資料.rar (29.74 KB)

下載次數: 18

2012-9-19 08:37

eric866

他另有一個專供EXCEL匯入的網址 http://www.taifex.com.tw/chinese/3/3_2_tbl.asp
前陣子剛改版而已~

freeffly

回復 2# eric866


    這各也不錯喔
   謝謝提供這各資訊
   不過附檔中可以看到那兩各工作表的來源網頁都是同一個
   我不知道是什麼原因第一個可以那麼簡潔
   這是我好奇的

seemee

請問 為什麼VBA 裡看不到語法
連結的網址放在哪.. 我怎麼都找不到

stillfish00

回復 3# freeffly
應該是用VBA產生的
QueryTable 有個 TextFileStartRow 屬性 , 可以指定匯入文字檔案的開始列。預設值為 1

GBKEE

回復 5# stillfish00
TextFileStartRow 須是匯入文字檔,這網頁不適用
回復 3# freeffly
回復 4# seemee

1. Option Explicit
   
2. Sub Ex()
   
3.     With ActiveSheet
   
4.         With .QueryTables.Add(Connection:="URL;http://www.taifex.com.tw/chinese/3/3_2_2.asp", Destination:=[A1])
   
5.             '**********  .WebSelectionType     有3個參數數值 *************
   
6.             If .Parent.QueryTables.Count = 1 Then
   
7.                 .WebSelectionType = xlEntirePage                '匯入整個網頁
   
8.             ElseIf .Parent.QueryTables.Count = 2 Then
   
9.                  .WebSelectionType = xlAllTables               '匯入網頁所有的表格
   
10.             ElseIf .Parent.QueryTables.Count >= 3 Then
    
11.                 .WebSelectionType = xlSpecifiedTables          '匯入指定的網頁的表格
    
12.                 .WebTables = "3"            '匯入指定第3個表格      '=xlSpecifiedTables  才可用此參數
    
13.             End If
    
14.             '************************************************************
    
15.             .WebFormatting = xlWebFormattingNone
    
16.             .WebPreFormattedTextToColumns = True
    
17.             .WebConsecutiveDelimitersAsOne = True
    
18.             .WebSingleBlockTextImport = False
    
19.             .WebDisableDateRecognition = False
    
20.             .WebDisableRedirections = False
    
21.             .Refresh BackgroundQuery:=False
    
22.         End With
    
23.         MsgBox "第" & .QueryTables.Count & "Web 查詢 網址" & .QueryTables(.QueryTables.Count).Connection
    
24.     End With
    
25. End Sub

複製代碼