帖子: 163
主題: 27
精華: 0
積分: 193
點名: 0
作業系統: winsows 10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
註冊時間: 2010-12-20
最後登錄: 2024-5-9

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-1-4 13:39 | 只看該作者

請問如何截取指定參數網路內容之指定欄位資料?

本帖最後由 peter460191 於 2012-1-4 13:44 編輯

對照不同參數截取指定欄位資料.rar (3.63 KB)

請問如何按 A欄的參數，截取網佔內容之J 欄及O欄所對應年度股利之資料
查詢網址→http://justdata.yuanta.com.tw/z/zc/zcc/zcc_1101.asp.htm→代號參數可變

樓主熱帖

peter460191

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兔年全勤獎章

2^#

發表於 2012-1-4 14:17 | 只看該作者

回復 1# peter460191

Sub Ex()
Dim E As Range, Ar()
With Sheets("Sheet1")
For Each E In .Range(.[A6], .[A6].End(xlDown)) '股票代號區域
With Sheets("Sheet2").[A1].QueryTable 'Sheet2").[A1] 請設有外部查詢
.Connection = "URL;http://justdata.yuanta.com.tw/z/zc/zcc/zcc_" & E & ".asp.htm"
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "4"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
With .ResultRange
Ar = .Range(.Cells(2, 6), .Cells(6, 6)).Value '年度股利合計範圍
End With
End With
E.Offset(, 2).Resize(1, 5) = Application.Transpose(Ar) '年度股利合計複製於股票代號區域向右2欄(1列,5欄)
Next
End With
End Sub

複製代碼

TOP

peter460191

中學生 Rank: 2

帖子: 163
主題: 27
精華: 0
積分: 193
點名: 0
作業系統: winsows 10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
註冊時間: 2010-12-20
最後登錄: 2024-5-9

3^#

發表於 2012-1-6 12:58 | 只看該作者

回復 2# GBKEE

感謝 GBKEE 版大

試過後已可自動抓取資料，謝謝您!
另外，若要在『代號』參數改變後，自動變更資料，還要加那些程式，請幫忙!
再一次謝謝您!

peter460191

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兔年全勤獎章

4^#

發表於 2012-1-6 14:00 | 只看該作者

回復 3# peter460191
須複製到 Sheet1

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False 'False 指定物件不能觸發事件
'EnableEvents 屬性如果指定物件能觸發事件，則本屬性為 True
If Not Intersect(Target(1), Range([A6], [A6].End(xlDown))) Is Nothing Then Ex Target(1)
'Intersect 方法傳回 Range 物件，此物件代表兩個或多個範圍重疊的矩形範圍。
Application.EnableEvents = True 'True 指定物件能觸發事件
End Sub
Private Sub Ex(E As Range) '接受參數 E As Range
Dim Ar()
With Sheets("Sheet2").[A1].QueryTable ' ***Sheet2").[A1] 請設有外部查詢***
.Connection = "URL;http://justdata.yuanta.com.tw/z/zc/zcc/zcc_" & E & ".asp.htm"
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "4"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
With .ResultRange
Ar = .Range(.Cells(2, 6), .Cells(6, 6)).Value '年度股利合計範圍
End With
End With
E.Offset(, 2).Resize(1, 5) = Application.Transpose(Ar) '年度股利合計複製於股票代號區域向右2欄(1列,5欄)
'這裡 Sheets("Sheet1")有輸入: 會觸動Sheets("Sheet1")的 Private Sub Worksheet_Change
'Application.EnableEvents = False -> 不會觸發Sheets("Sheet1")的 Private Sub Worksheet_Change
End Sub

複製代碼

TOP

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

5^#

發表於 2012-1-8 08:54 | 只看該作者

各位樓主大大您好：

小弟這幾日一直鑽研此篇幅
仍然無法領會，還請各位大大指點
迷津。
一、第二篇版主提到要在sheet2裡
'Sheet2").[A1] 請設有外部查詢
應如何增設呢？
小弟已增列:d:\temp\zcc_1101.iqy
WEB
1
http://justdata.yuanta.com.tw/z/zc/zcc/zcc_1101.asp.htm

Selection=4
Formatting=None
PreFormattedTextToColumns=True
ConsecutiveDelimitersAsOne=True
SingleBlockTextImport=False
DisableDateRecognition=False
DisableRedirections=False

二、請問此網頁為何並未有首頁
可登入呢？

感恩各位大大？

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^#

發表於 2012-1-8 09:13 | 只看該作者

回復 5# dechiuan999
Sheets("Sheet2").[A1] 請設有外部查詢  應如何增設呢？  小弟已增列:d:\temp\zcc_1101.iqy
到Sheet2 選擇A1
指令資料->匯入外部資料->匯入資料  :  [選取資料來源] 開啟 d:\temp\zcc_1101.iqy

TOP

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

7^#

發表於 2012-1-8 14:03 | 只看該作者

謝謝版主大大。
指令資料->匯入外部資料->匯入資料 : [選取資料來源] 開啟 d:\temp\zcc_1101.iqy
第二篇語法已測成功。

另第四篇的語法，分為二段
第一段小弟將其擺放在sheets1裡的工作表事件，
而第二段小弟放置在模組內，但無法執行此模組。並在a7輸入股票代號
之後卻無反應，如果全部將其擺放至sheet1工作表事件內
也是不行。請問其原因為何呢？

感恩大大！

TOP

GBKEE