Board logo

標題: [發問] 請問這種匯入外部資料web要如何做到 [打印本頁]
作者: freeffly    時間: 2012-9-19 08:39     標題: 請問這種匯入外部資料web要如何做到

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



[attach]12537[/attach]
作者: eric866    時間: 2012-9-19 20:13

他另有一個專供EXCEL匯入的網址 http://www.taifex.com.tw/chinese/3/3_2_tbl.asp
前陣子剛改版而已~
作者: freeffly    時間: 2012-9-20 09:46

回復 2# eric866


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

請問 為什麼VBA 裡看不到語法
連結的網址放在哪.. 我怎麼都找不到
作者: stillfish00    時間: 2013-5-22 13:22

回復 3# freeffly
應該是用VBA產生的
QueryTable 有個 TextFileStartRow 屬性 , 可以指定匯入文字檔案的開始列。預設值為 1
作者: GBKEE    時間: 2013-5-22 14:31

本帖最後由 GBKEE 於 2013-5-22 15:02 編輯

回復 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
複製代碼




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)