返回列表 上一主題 發帖

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

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-9-19 08:39 | 只看該作者

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

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



匯入外部資料.rar (29.74 KB)
收藏 分享
字典兩各字 還真難理解

eric866

帖子
59 
主題
10 
精華
0 
積分
70 
點名
0  
作業系統
XP 
軟體版本
0FFICE 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2019-1-10 
2#
發表於 2012-9-19 20:13 | 只看該作者
他另有一個專供EXCEL匯入的網址 http://www.taifex.com.tw/chinese/3/3_2_tbl.asp
前陣子剛改版而已~

TOP

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
3#
發表於 2012-9-20 09:46 | 只看該作者
回復 2# eric866


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

TOP

seemee

帖子
93 
主題
15 
精華
0 
積分
111 
點名
0  
作業系統
win7 
軟體版本
Office 2010 X86 
閱讀權限
20 
性別
男 
註冊時間
2012-7-3 
最後登錄
2020-12-3 
4#
發表於 2013-5-17 23:07 | 只看該作者
請問 為什麼VBA 裡看不到語法
連結的網址放在哪.. 我怎麼都找不到

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
5#
發表於 2013-5-22 13:22 | 只看該作者
回復 3# freeffly
應該是用VBA產生的
QueryTable 有個 TextFileStartRow 屬性 , 可以指定匯入文字檔案的開始列。預設值為 1

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
6#
發表於 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題