Board logo

標題: [發問] 請問有什麼方法可以在excel上自動更新目前所有上市櫃股票收盤價 [打印本頁]
作者: peter460191    時間: 2011-6-30 11:41     標題: 請問有什麼方法可以在excel上自動更新目前所有上市櫃股票收盤價

請問有什麼方法可以在excel上自動更新目前所有上市櫃股票收盤價。
作者: vvcvc    時間: 2011-6-30 23:45

本帖最後由 vvcvc 於 2011-6-30 23:46 編輯

資料→匯入外部資料→新增Web查詢
但只能一支一支慢慢加
試過投資組合會失敗
作者: liu5201    時間: 2011-7-3 10:24

盤後收盤資料
資料→匯入外部資料→新增Web查詢
→在新增web查詢[視窗]輸入網頁http://www.sinotrade.com.tw/today_stock_price.htm
盤中自動更新以vvcvc方式即可  在新增web查詢[視窗]輸入網頁在新增web查詢[視窗]輸入網頁例台積電2330:     http://tw.stock.yahoo.com/q/q?s=2330
小弟自製範例檔:包含1.當日收盤行情
                                        2.個股日本益比、殖利率及股價淨值比
                                        3.當日盤後交易明細
                                        4.當日外資/投信/自營商買賣超個股明細
作者: liu5201    時間: 2011-7-3 10:30

補範例檔[attach]6901[/attach]
作者: GBKEE    時間: 2011-7-4 09:08

本帖最後由 GBKEE 於 2011-7-4 13:28 編輯

回復 4# liu5201
如在附檔所有排行欄位中指定篩選的條件後會造以後的[ 金融股].[電子股].[全部選示],無法顯示
附檔的VBA 須修改如下
  1. Sub 金融股() '
  2. ' Macro3 Macro
  3. ' liujerkun 在 2011/1/20 錄製的巨集'
  4.    
  5.    If ActiveSheet.FilterMode Then Selection.AutoFilter  '取消自動篩選
  6.     Selection.AutoFilter Field:=1, Criteria1:=">2800", Operator:=xlAnd, _
  7.         Criteria2:="<2900"
  8.     Range("J2").Select
  9. End Sub
  10. Sub 電子股() '
  11. ' Macro3 Macro
  12. ' liujerkun 在 2011/1/20 錄製的巨集
  13. '
  14.     If ActiveSheet.FilterMode Then Selection.AutoFilter  '取消自動篩選
  15.     Selection.AutoFilter Field:=1, Criteria1:=">2300", Operator:=xlAnd, _
  16.         Criteria2:="<2500", VisibleDropDown:=False
  17.     Range("J1").Select
  18. End Sub
  19. Sub 顯示全部() '
  20. ' Macro6 Macro
  21. ' liujerkun 在 2011/1/20 錄製的巨集
  22.     If ActiveSheet.FilterMode Then Selection.AutoFilter  '取消自動篩選
  23.     Selection.AutoFilter Field:=1
  24.     Range("N1").Select
  25. End Sub
複製代碼
作者: liu5201    時間: 2011-7-6 10:32

回復 5# GBKEE


  感謝GBKEE之提醒與方案
:handshake
作者: peter460191    時間: 2011-7-11 21:51

本帖最後由 peter460191 於 2011-10-20 10:02 編輯

回復 4# liu5201


    liu5201抱歉我還沒有權限下載您的附檔，方便mail給我嗎?
非常謝謝您!
作者: peter460191    時間: 2011-7-11 22:01

本帖最後由 peter460191 於 2011-7-13 16:44 編輯

回復 5# GBKEE


致:GBKEE版主

請教您有自動更新全部上市櫃公司股價的的VBA語法嗎?
之前曾經用過交易所的外部連結,但自從交易所改版之後就無法更新資料了,
請問您有方法可以連結交易所網站的股價資訊嗎?
作者: GBKEE    時間: 2011-7-12 07:41

回復 10# peter460191
請問您有方法可以連結交易所網站的股價資訊嗎?
A:請你找到連結交易所股價資訊的網站,附上所需求的範例檔案討論.
這裡是一般區 , VBA語法在 程式區有專門的討論
作者: peter460191    時間: 2011-7-13 10:40

回復 11# GBKEE


  
謝謝版主,附件檔案已編輯過，但無效，請版主幫幫忙!


連結網址： http://mis.twse.com.tw/stock_category.html
在『A6儲存格』已有匯入外部資料，但無法顯示資料，以前可以但改版之後就不行用了
作者: GBKEE    時間: 2011-7-13 13:24

本帖最後由 GBKEE 於 2011-7-13 13:27 編輯

回復 12# peter460191
你的問題已在 http://forum.twbts.com/thread-3704-1-1.html 討論過
我的能力只能幫你匯入文字
作者: peter460191    時間: 2011-7-13 14:43

回復 13# GBKEE


    非常謝謝GBKEE 版主
作者: jsleee    時間: 2011-9-6 21:38

以下的程式碼提供參考......


Sub 成交資訊取得()
    Application.ScreenUpdating = False
    DATE_REQ = CDate(InputBox("請輸入交易日期, 格式 2011/9/6", , Format(Now(), "yyyy/m/d")))
   
    yyyymm = Year(DATE_REQ) & Format(Month(DATE_REQ), "00")
    yyyymmdd = Year(DATE_REQ) & Format(Month(DATE_REQ), "00") & Format(Day(DATE_REQ), "00")
    yyymmdd = Year(DATE_REQ) - 1911 & "/" & Format(Month(DATE_REQ), "00") & "/" & Format(Day(DATE_REQ), "00")
    Application.DisplayAlerts = False
    Cells.Select
    Selection.ClearContents
    Range("A1").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.twse.com.tw/ch/trading/exchange/MI_INDEX/genpage/Report" & yyyymm & "/A112" & yyyymmdd & "ALLBUT0999_1.php?select2=ALLBUT0999&chk_date=" & yyymmdd & "" _
        , Destination:=Range("A1"))
        .Name = "04"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "10"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    Columns("A:A").ColumnWidth = 9.63
    Rows("4:4").Select
    Selection.Delete Shift:=xlUp
    Range("C4").Select
end sub
作者: peter460191    時間: 2011-9-8 14:33

回復 16# jsleee

感謝  jsleee
按照所提供的程式真的可以用耶!
但好像只有上市的，如果想要上市加上櫃、興櫃及可轉債(CB)要如何修改,謝謝您的指導。
作者: jsleee    時間: 2011-9-8 22:12

興櫃的程式碼如下：

Sub 興櫃()
    On Error Resume Next
    Cells.Select
    Selection.QueryTable.Delete
    Selection.ClearContents
    Range("A1").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://nweb.gretai.org.tw/emgstk/ch/emgstk.htm", Destination:=Range( _
        "$A$1"))
        .Name = "emgstk_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    Columns("A:A").ColumnWidth = 15.88
    Columns("B:B").ColumnWidth = 13.13
End Sub
作者: jsleee    時間: 2011-9-8 22:26

可轉債的部分參考如下：

Sub 可轉債()
    Application.ScreenUpdating = False
    DATE_REQ = CDate(InputBox("請輸入交易日期, 格式 2011/9/6", , Format(Now(), "yyyy/m/d")))
   
    yyyymmdd = Year(DATE_REQ) & Format(Month(DATE_REQ), "00") & Format(Day(DATE_REQ), "00")
    Application.DisplayAlerts = False
   
    On Error Resume Next
    Cells.Select
    Selection.QueryTable.Delete
    Selection.ClearContents
    Range("A1").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.otc.org.tw/ch/inc/js/ReportCSV.php?NAME=/ch/bond_trading_info/bonds_info/daily/data/rsta0113." & yyyymmdd & "-C.csv&SHOW=1&LEVEL=4" _
        , Destination:=Range("$A$1"))
        .Name = "rsta0113." & yyyymmdd & "-C.csv&SHOW=1&LEVEL=4_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    Columns("A:A").ColumnWidth = 17.75
End Sub
作者: jsleee    時間: 2011-9-8 22:37

上櫃的部分 如下：

Sub 上櫃()
    Application.ScreenUpdating = False
    DATE_REQ = CDate(InputBox("請輸入交易日期, 格式 2011/9/6", , Format(Now(), "yyyy/m/d")))
   
    yyymmdd = Year(DATE_REQ) - 1911 & Format(Month(DATE_REQ), "00") & Format(Day(DATE_REQ), "00")
    Application.DisplayAlerts = False
    On Error Resume Next
    Cells.Select
    Selection.QueryTable.Delete
    Selection.ClearContents
    Range("A1").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.otc.org.tw/ch/stock/aftertrading/DAILY_CLOSE_quotes/RSTA3104_" & yyymmdd & ".html" _
        , Destination:=Range("$A$1"))
        .Name = "RSTA3104_" & yyymmdd & ""
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    Columns("A:A").ColumnWidth = 7
End Sub
作者: peter460191    時間: 2011-9-13 17:25

回復 21# jsleee


    非常感謝 jsleee
真的非常謝謝你，我會花一點時間好好研究研究。
作者: peter460191    時間: 2011-9-15 11:57

本帖最後由 peter460191 於 2011-9-16 13:38 編輯

回復 18# peter460191


    再請教  jsleee 前輩

我把全部的程式放在一起，但只會出現一種，想請問要如何讓它同時出現，另外變更日期，除了透過巨集執行外，還有更快或更方便的方法嗎 !請問有方法讓檔案開啟就自動執行最新的日期嗎?
請jsleee 前輩指導一下，再一次感謝您!
作者: jsleee    時間: 2011-9-17 09:43

回復 25# peter460191

試試看以下的程式碼：但請先在你的 Excel 工作表 建立三個工作表，名稱分別為 "上櫃"、"可轉債"、"興櫃"，否則程式會出錯....


Sub 上櫃_可轉債_興櫃()
    '上櫃
    Application.ScreenUpdating = False
    Sheets("上櫃").Select
    DATE_REQ = CDate(Format(Now(), "yyyy/m/d"))
   
PPP1:    yyymmdd = Year(DATE_REQ) - 1911 & Format(Month(DATE_REQ), "00") & Format(Day(DATE_REQ), "00")
    Application.DisplayAlerts = False
    On Error Resume Next
    Cells.Select
    Selection.QueryTable.Delete
    Selection.ClearContents
    Range("A1").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.otc.org.tw/ch/stock/aftertrading/DAILY_CLOSE_quotes/RSTA3104_" & yyymmdd & ".html" _
        , Destination:=Range("$A$1"))
        .Name = "RSTA3104_" & yyymmdd & ""
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    On Error GoTo 0
    Columns("A:A").ColumnWidth = 7
    If Cells(1, "A") = "" Then
        DATE_REQ = DATE_REQ - 1
        GoTo PPP1
    End If

   
    Sheets("可轉債").Select
    yyyymmdd = Year(DATE_REQ) & Format(Month(DATE_REQ), "00") & Format(Day(DATE_REQ), "00")
    On Error Resume Next
    Cells.Select
    Selection.QueryTable.Delete
    Selection.ClearContents
    Range("A1").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.otc.org.tw/ch/inc/js/ReportCSV.php?NAME=/ch/bond_trading_info/bonds_info/daily/data/rsta0113." & yyyymmdd & "-C.csv&SHOW=1&LEVEL=4" _
        , Destination:=Range("$A$1"))
        .Name = "rsta0113." & yyyymmdd & "-C.csv&SHOW=1&LEVEL=4_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    On Error GoTo 0
    Columns("A:A").ColumnWidth = 17.75
   
    '興櫃
    Sheets("興櫃").Select
    Cells.Select
    On Error Resume Next
    Selection.QueryTable.Delete
    Selection.ClearContents
    Range("A1").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://nweb.gretai.org.tw/emgstk/ch/emgstk.htm", Destination:=Range( _
        "$A$1"))
        .Name = "emgstk_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    On Error GoTo 0
    Columns("A:A").ColumnWidth = 15.88
    Columns("B:B").ColumnWidth = 13.13

End Sub
作者: peter460191    時間: 2011-9-19 12:11

回復 20# jsleee


   請問  jsleee 及各位達人

我把程式放上去後,會出現錯誤訊息,程式就卡住了,[attach]7876[/attach][attach]7876[/attach][attach]7876[/attach][attach]7876[/attach][attach]7876[/attach]
有附上檔案附件,請幫我看一下,我應該從那部份修正,謝謝您!
作者: jsleee    時間: 2011-9-19 21:40

回復 21# peter460191

很抱歉，我還沒有權限下載檔案....
請將錯誤畫面擷取貼上來.....
這樣才有辦法知道你的問題點
作者: peter460191    時間: 2011-9-21 11:08

回復 22# jsleee


   [attach]7896[/attach]
麻煩前輩指導。
作者: jsleee    時間: 2011-9-21 21:58

回復 23# peter460191

抱歉，我反覆測試，還是遇不到你的問題點.....
再過幾天，也許我的點數夠了，就可以下載你的檔案測試了.....
作者: peter460191    時間: 2011-9-22 12:09

回復 24# jsleee


    謝謝您!我也快要可以有下載的權限了 !屆時再麻煩您指正了!
作者: jsleee    時間: 2011-9-24 21:43

回復 21# peter460191


    請將 總表內的程式碼 移到 模組中，即可.....
    請參考附件....
作者: peter460191    時間: 2011-9-26 10:25

謝謝 jsleee

我還須加一下油!
待我可以下載之後再研究看看 。
作者: peter460191    時間: 2011-9-26 10:53

回復 26# jsleee


再請問 jsleee

1.下載附檔測試後，遇到一個問題，就是『上市』部份無法更新，我將上市的程式合併放進去總表裏，可是無法執行，請問要如何合併進去。
2.另外，有法子讓檔案開啟時，就自動更新所有的四個工作表，且將四個工作表合併在另一張工作表嗎?

非常謝謝您的指導!
作者: jsleee    時間: 2011-9-26 22:34

回復 28# peter460191

麻煩把 你合併後的檔案放上來，我確認看看.....
另外，四個表要合併有困難，因為欄位不太一樣，如何合併？這個部分要麻煩你先想看看，合併的結果要長甚麼樣子
作者: peter460191    時間: 2011-9-28 12:33

回復 29# jsleee

麻煩您了!
    [attach]7959[/attach]

另如果只合併四個工作表中的『代號』,『股名』及『收盤價』等三欄資料可行嗎?

謝謝您!
作者: jsleee    時間: 2011-9-28 22:01

回復 30# peter460191


    請問 可轉債 的 等價、議價 各代表甚麼含意？
    因為要將 資料合併，在 可轉債的部分，同一項代號 有些 收市 會同時有 等價、議價 兩筆，
    請問要抓哪一筆？
作者: peter460191    時間: 2011-9-29 13:26

回復 31# jsleee


不好意思!可轉債比較特殊
可用『明日參價』等同它的當日之『收盤價』
謝謝您!
作者: jsleee    時間: 2011-9-29 22:20

回復 32# peter460191


    試試看這個檔案吧....
作者: peter460191    時間: 2011-9-30 10:30

回復 33# jsleee

  jsleee 達人您好：

感謝您的修改，我執行檔案的時候出現下列錯誤訊息，不知道那裡有問題，我有檢查過巨集安全性是設定在『低』，還是不能執行，請您幫我檢查看看。謝謝您 !

[attach]8045[/attach][attach]8046[/attach]
作者: jsleee    時間: 2011-9-30 22:05

回復 34# peter460191


    抱歉，因最近正在測試 2010版本，昨日的某些部份使用 2010版本錄製，出現一些問題
    剛剛已經改為 2003版本，我剛剛測試OK，你再看看......
作者: peter460191    時間: 2011-10-3 15:54

本帖最後由 peter460191 於 2011-10-3 16:07 編輯

回復 35# jsleee

jsleee 不好意思!前幾天比較忙所以這麼晚回覆，程式已可以執行了，真是厲害，非常謝謝你，
可以再跟您請教，1.這個程式有辦法讓它開啟時，就自動更新嗎(自動去執行『總表』那個按鈕)。
                     2.想要把上市、上櫃、興櫃及可轉債等四個工作表隱藏，但這樣就無法執行了。
                     3.另外如要把『總表』那個按鈕，挪到『彙整』工作表要如何做？
      
非常謝謝您!
作者: jsleee    時間: 2011-10-3 21:36

回復 36# peter460191

1. 只要將巨集名稱改為 auto_open 即可
2. 可以用錄製巨集的方式 將工作表 隱藏 & 將工作表逐一取消隱藏，然後將錄製的程式碼 加入即可....
3. 就將該按鈕剪下 然後 到 彙整 工作表 貼上即可
試試看附件檔案.....

> 可以再跟您請教，1.這個程式有辦法讓它開啟時，就自動更新嗎(自動去執行『總表』那個按鈕)。
>                                 2.想要把上市、上櫃、興櫃及可轉債等四個工作表隱藏，但這樣就無法執行了。
>                                 3.另外如要把『總表』那個按鈕，挪到『彙整』工作表要如何做？
作者: peter460191    時間: 2011-10-4 13:19

回復 37# jsleee

非常謝謝 jsleee 的幫忙，已經可用了!
將好好研究您的程式內容，冀希能像你們那樣精進，
再一次感謝您不厭其煩的幫忙，謝謝您!
作者: jsleee    時間: 2011-10-4 21:24

回復 38# peter460191

不用客氣，論壇本來就是大家互相交流的園地
我也從這裡學到不少...
有能力幫助別人，也是一種快樂！
作者: peter460191    時間: 2011-10-5 09:46

回復 39# jsleee


    的確這個論壇可學的人及東西太多了，將繼續努力。
       再一次謝謝您!
作者: peter460191    時間: 2011-10-7 10:00

[attach]8150[/attach]回復 37# jsleee


    請教 jsleee

我想複製另一個手動的版本，照您所說的將 巨集名稱 auto_open 改為 彙整，但好像無法執行，可以請教一下除了改上述名稱外，還需改那些程式，謝謝您!
作者: jsleee    時間: 2011-10-7 22:12

回復 41# peter460191


   >> 我想複製另一個手動的版本，照您所說的將 巨集名稱 auto_open 改為 彙整，但好像無法執行，可以請教一下除了改上述名稱外，還需改那些程式，謝謝您!

  我想 您可能看錯了....
  如果要讓巨集於檔案開啟時 自動執行，則巨集名稱須設定為 auto_open
  並將該巨集放在 模組中 ，存檔後開啟即可自動執行
作者: Hsieh    時間: 2011-10-8 17:58

本帖最後由 Hsieh 於 2011-10-8 18:00 編輯

回復 41# peter460191

按右鍵
重新指定巨集
[attach]8200[/attach]
[attach]8201[/attach]
作者: peter460191    時間: 2011-10-11 08:44

回復 42# jsleee


    謝謝 jsleee 說明，我再試試看。
作者: peter460191    時間: 2011-10-11 08:49

回復 43# Hsieh


謝謝 Hsieh 版主
照您的方法的確可執行，但可以跟您請教，為什麼我更改名稱後按執行巨集卻無效，而照您的方法重新指定巨集就可以，這差別在那裡，謝謝您!
作者: Hsieh    時間: 2011-10-11 09:16

回復 45# peter460191
假如你改名字以後
你沒去告訴別人你改名字
那別人永遠不會認識你的新名字不是嗎?
作者: peter460191    時間: 2011-10-12 12:51

回復 46# Hsieh


非常謝謝  Hsieh 版主：
原來如此，了解了!又增長一智。
作者: polokin    時間: 2011-11-1 02:06

找這個檔案好久了..
一路上開板大一直更新...深感佩服
不知有緣可以一同分享與我
作者: 傘蜥蜴    時間: 2011-11-1 17:49

我也正好想找這個檔案~
不過沒有下載權限
殘念......
作者: a2305577    時間: 2011-11-4 16:19

沒有權限下載,方便mail給我嗎?真想趕快目睹程式效果
希望幫幫忙大大
作者: peter460191    時間: 2011-12-21 11:41

回復 48# polokin


    感謝大家對這個程式有興趣，因尚有部份功能在修改中，待修改完成後，會放在上面供大家分享。
作者: peter460191    時間: 2011-12-21 11:42

回復 49# 傘蜥蜴


    感謝大家對這個程式有興趣，因尚有部份功能在修改中，待修改完成後，會放在上面供大家分享。
作者: peter460191    時間: 2011-12-21 11:42

回復 50# a2305577

感謝大家對這個程式有興趣，因尚有部份功能在修改中，待修改完成後，會放在上面供大家分享。
作者: peter460191    時間: 2011-12-21 13:07

[attach]8875[/attach][attach]8876[/attach]

請教高手達人，我埋頭苦幹了好久，還是找不出方法，想請教各位達人幫忙解惑下列幾項瓶頸點：
1.如何修改擴大『搜尋結果』的範圍，欲向下擴大到10組。
2.『股票更新』鈕是從一個隱藏的工作表中複製過來的，當按下『股票更新』鈕後，會停留在原始隱藏的工作表上，要如何讓它不停留在原始隱藏的工作表上。
3.當按下『股票更新』鈕後，『上櫃』的工作表程式會出現錯誤，抓不到資料，應如何修正。

先感謝大家的幫忙 !
QQQ!(3Q!)( 謝謝!)
作者: mustang    時間: 2011-12-24 18:28

我無法下載 可否寄給我
作者: peter460191    時間: 2011-12-29 12:32

回復 55# mustang


    目前尚有一點瑕疵，待修正後再放上去供下載分享。
作者: peter460191    時間: 2011-12-29 12:36

回復 39# jsleee


    jsleee請問一下

最近更新程式，上櫃的部份會出現錯誤訊息，可以幫我看一下那裡錯誤嗎?
檔案放在 #54
非常謝謝您 !
作者: peter460191    時間: 2011-12-30 10:17

回復 58# zcxzcxz

目前尚有一點瑕疵，待修正後再放上去供下載分享。
作者: dino123    時間: 2012-1-18 18:05

請問一下，
我上櫃的部份，都抓不到資料。
上市，可轉債，興櫃都沒問題。
但上櫃不行。
我是用Excel2003
[attach]9252[/attach]
作者: jdjgpnsgadk1    時間: 2012-1-18 21:22

回復 2# vvcvc
請教一下，匯入後要如何每五分鐘記錄下來現價，感恩
作者: peter460191    時間: 2012-1-31 09:26

回復 60# dino123


   目前修改中!
作者: wxwx    時間: 2012-1-31 14:32

回復 10# peter460191


    都看不太懂你們寫的 真是小學生 我
作者: 小靜靜    時間: 2012-2-9 10:26

大家都好厲害喔，可惜我還不能下載。
作者: peter460191    時間: 2012-5-10 10:32

本帖最後由 peter460191 於 2012-5-11 10:10 編輯

各為大大：
經過多位高手幫忙及努力修改，此檔案已有初步具自動更新及查詢的功能，但還是有一點未完成，就是更新時隱藏的工作表會跑出來，先上傳供大家下載使用，如有更好改善方法也請提供參考分享。[attach]10887[/attach][attach]10888[/attach]
作者: freeffly    時間: 2012-5-10 13:23

回復 64# peter460191


    看完的感想
   1.使用介面很漂亮，不過感覺有點雜，設計的人比較容易上手
   2.不知道是不是使用太多圖片，檔案好大
   3.搜尋時感覺有點慢
   
   看的出大大花很多心思，挺不錯的東西，不過搜尋有點久
作者: peter460191    時間: 2012-5-10 15:48

回復 65# freeffly


    對啊!我也一直在找檔案瘦身的方法，不知您有方法解決嗎？不過目前執行起來應該還蠻順的，因為目前已有多人每日在使用中，並沒有反應速度慢的問題。
作者: freeffly    時間: 2012-5-10 16:31

回復 66# peter460191


    我建議你把檔案放在一樓
   方便高手看
   除非有興趣的人會慢慢看完
   否則可能比較少高手有時間去幫你看喔
   我的excel學的不扎實
   可能你的超連結也是造成檔案過大的原因
   
   你的代碼最好加一句Application.ScreenUpdating = False
    應該可以再稍微快一點
作者: peter460191    時間: 2012-5-11 10:08

本帖最後由 peter460191 於 2012-5-11 10:12 編輯

回復 67# freeffly


    謝謝您!我在請教高手研究看看!還是 您方便指導 ,
    另外，再向您請教一下要如何把檔案放在一樓,是指要另外開一帖子嗎?
作者: ju1218    時間: 2012-10-14 19:22

優該不錯 可權限不足  看不到
作者: finalos2    時間: 2012-11-5 20:45

大家都好厲害喔，可惜目前還不能下載 > <
作者: peter460191    時間: 2013-6-11 09:36

回復 70# finalos2


    多多加油囉!剛開始都是這樣地!
作者: kima0713    時間: 2013-10-17 10:17

學習中, 目前還沒有權限下載=.=
作者: yan2463    時間: 2013-11-5 11:02

回復 72# kima0713
很可惜,還無法下載附件學習
作者: changjy    時間: 2013-12-16 15:34

無權下載,殘念~~~
作者: castcasting    時間: 2013-12-19 19:40

來到這真是覺得這邊的高手都好強，我努力學習中!!!
作者: peter460191    時間: 2014-4-21 12:22

回復 75# castcasting


    加油啦!
    有起步都不算慢!
作者: bioleon69    時間: 2016-9-18 02:46

不好意思,現在似乎沒辦法更新了
不知道各位大大們現在都怎麼使用這份excel了?



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