freeffly

高中生 Rank: 3 Rank: 3

帖子: 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

中學生 Rank: 2

帖子: 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

高中生 Rank: 3 Rank: 3

帖子: 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

中學生 Rank: 2

帖子: 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

大學生 Rank: 4

帖子: 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

超級版主 Rank: 8 Rank: 8

帖子: 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

Option Explicit
Sub Ex()
With ActiveSheet
With .QueryTables.Add(Connection:="URL;http://www.taifex.com.tw/chinese/3/3_2_2.asp", Destination:=[A1])
'********** .WebSelectionType 有3個參數數值 *************
If .Parent.QueryTables.Count = 1 Then
.WebSelectionType = xlEntirePage '匯入整個網頁
ElseIf .Parent.QueryTables.Count = 2 Then
.WebSelectionType = xlAllTables '匯入網頁所有的表格
ElseIf .Parent.QueryTables.Count >= 3 Then
.WebSelectionType = xlSpecifiedTables '匯入指定的網頁的表格
.WebTables = "3" '匯入指定第3個表格 '=xlSpecifiedTables 才可用此參數
End If
'************************************************************
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
MsgBox "第" & .QueryTables.Count & "Web 查詢網址" & .QueryTables(.QueryTables.Count).Connection
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP