交易所網站的收盤價已變更?用動態查詢已失效? - Excel程式區

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

11^# 跳轉到 »

發表於 2014-12-28 08:54 | 只看該作者

回復 10# t8899

程式結束前執行Ex_副程式

Private Sub Ex_副程式()
Dim Rng As Range, r As Integer
With ActiveSheet '可指定工作表
Set Rng = .[A:A].Find("11*", LOOKAT:=xlWhole)
If Not Rng Is Nothing Then
r = 4
Do
If IsNumeric(.Cells(r, "A")) Then
.Cells(r, "A").Select
.Cells(r, "A") = "'00" & .Cells(r, "A")
End If
r = r + 1
Loop Until r = Rng.Row
End If
End With
End Sub

複製代碼

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

TOP

t8899

大學生 Rank: 4

帖子: 760
主題: 250
精華: 0
積分: 1023
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-28

12^#

發表於 2014-12-28 09:54 | 只看該作者

本帖最後由 t8899 於 2014-12-28 09:58 編輯

回復 t8899

程式結束前執行Ex_副程式
GBKEE 發表於 2014-12-28 08:54

很奇怪，如果我用 f8 單步執行 A4以後都會被會當成數字 IsNumeric(符合條件) ,前面都會加'00 ???
f5 執行是正常的

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

13^#

發表於 2014-12-28 09:59 | 只看該作者

回復 12# t8899

r = r + 1
Loop Until r = Rng.Row '不會的這裡有限制啊

複製代碼

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

TOP

tsuneng

中學生 Rank: 2

帖子: 32
主題: 2
精華: 0
積分: 67
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-7-9
最後登錄: 2020-12-30

14^#

發表於 2014-12-28 13:12 | 只看該作者

感謝指導 !!

TOP

t8899

大學生 Rank: 4

帖子: 760
主題: 250
精華: 0
積分: 1023
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-28

15^#

發表於 2014-12-28 14:15 | 只看該作者

順便補充2樓csv檔跟html 載入工作表的語法
CSV 檔載入
sub goDKDKD()
Dim srWk As Workbook
Dim srPth
srPth = "R:\TEMP\1.CSV"
If srPth = False Then Exit Sub
Application.ScreenUpdating = False
Set srWk = GetObject(srPth)
srWk.ActiveSheet.Cells.Copy ThisWorkbook.Worksheets(1).Cells(1)
srWk.Close False
Set srWk = Nothing
Cells(2, 1).Select
END SUB
--------------------------------------------
html 檔載入
sub goDKDKD()
Dim srWk As Workbook
Dim srPth
srPth = "R:\TEMP\1.html"
If srPth = False Then Exit Sub
Application.ScreenUpdating = False
Set srWk = Workbooks.OpenXML(srPth)
srWk.ActiveSheet.Cells.Copy ThisWorkbook.Worksheets(1).Cells(1)
srWk.Close False
Set srWk = Nothing
Cells(2, 1).Select
END SUB
---------------------------------------

TOP

r2henry

小學生 Rank: 1

帖子: 9
主題: 2
精華: 0
積分: 16
點名: 0
作業系統: windows7
軟體版本: office2003
閱讀權限: 10
性別: 男
來自: TW
註冊時間: 2012-3-10
最後登錄: 2015-1-15

16^#

發表於 2014-12-31 18:40 | 只看該作者

回復 4# GBKEE

請問如果要將您的程式碼，套用到櫃買市場，我只更改連結到
http://www.gretai.org.tw/web/stock/aftertrading/otc_quotes_no1430/stk_wn1430.php?l=zh-tw

卻出現錯誤訊息，請問哪裡還需要修改?謝謝大大

Henry

TOP

chwqk