[發問] 如何找出網站原始檔網址

帖子: 150
主題: 40
精華: 0
積分: 215
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2025-5-26

2^#

發表於 2013-12-27 22:36 | 顯示全部帖子

感謝G大回復,G大真是神人,原來還有這種直接打開IE下載資料的作法
請教G大,比如A1儲存格輸入股票代碼,A2年度,A3月份,我要用儲存格來更改,我要下載的資料
,巨集要如何更改,麻煩你了感恩
另外請教G大,有沒這方面推薦的書籍或教程,VBA我還是個超級新手

帖子: 150
主題: 40
精華: 0
積分: 215
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2025-5-26

3^#

發表於 2013-12-27 22:40 | 顯示全部帖子

謝謝stillfish00 大回復
請教原始檔網址是如何找出來的,可以教我嗎,謝謝

帖子: 150
主題: 40
精華: 0
積分: 215
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2025-5-26

4^#

發表於 2013-12-29 07:22 | 顯示全部帖子

G大你好
我將 If A.Name = "co_id" Then A.Value = "2330" '股票代號
改為 If A.Name = "co_id" Then A.Value = A1 '股票代號
出現編譯錯誤,是我那邊改錯了,請幫我看一下謝謝

帖子: 150
主題: 40
精華: 0
積分: 215
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2025-5-26

5^#

發表於 2013-12-29 22:52 | 顯示全部帖子

謝謝g大解答

帖子: 150
主題: 40
精華: 0
積分: 215
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2025-5-26

6^#

發表於 2014-1-1 15:27 | 顯示全部帖子

可否請G大, 再幫我下列網址,資料用VBA方式下載,程式碼要如何寫
http://www.tdcc.com.tw/smWeb/QryStock.jsp
感恩謝謝!

帖子: 150
主題: 40
精華: 0
積分: 215
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2025-5-26

7^#

發表於 2014-1-2 00:04 | 顯示全部帖子

感謝G大,提供路徑,我找到原始檔網址位置

帖子: 150
主題: 40
精華: 0
積分: 215
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2025-5-26

8^#

發表於 2014-1-2 00:13 | 顯示全部帖子

可否請G大幫我看一下,以下程式碼,我逐步執行(F8)沒問題,但是改用執行巨集時,都會停在
(Sheets("匯總").Select )出現程式碼的執行己被中斷錯誤訊息,不知那個地方有問題

Sub Macro()
'
' Macro Macro
' 報表整合
'

'
  Application.ScreenUpdating = False '讓視窗不跟隨更新變動
  If ActiveCell.Value <> Empty Then
   Application.CutCopyMode = False
Selection.Copy

            Sheets("原始表").Select
            Range("B2").Select

            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                  :=False, Transpose:=False '貼上

                  On Error GoTo 101 ' '新增條件開始101
            Sheets("原始表").Range("E7").QueryTable.Refresh BackgroundQuery:=False
            Sheets("匯總").Select
            Range("A2:K21").Select
            Selection.Copy
            Range("A1").Select
            Selection.End(xlDown).Select '到最底資料列
            ActiveCell.Offset(1, 0).Range("A1").Select '下一列
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                  :=False, Transpose:=False '貼上值

101
            Sheets("巨集工作表").Select
            ActiveCell.Offset(1, 0).Range("A1").Select
Call Macro
   End If
   End Sub

帖子: 150
主題: 40
精華: 0
積分: 215
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2025-5-26

9^#

發表於 2014-1-2 07:55 | 顯示全部帖子

本帖最後由 blue2263 於 2014-1-2 07:57 編輯

G大你好
我後來將程式碼做了下列的更改,就可執行沒問題了
(Application.ScreenUpdating = False '讓視窗不跟隨更新變動) 去除此行
Application.Wait (Now + TimeValue("0:00:001")) '新增此行
Sheets("匯總").Select

但是為了執行上更快速
我將(讓視窗不跟隨更新變動),此行程式碼加入時,也一樣會有錯誤
請教程式碼要如何更比較好?
麻煩你了感恩謝謝

帖子: 150
主題: 40
精華: 0
積分: 215
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2025-5-26

10^#

發表於 2014-1-2 19:05 | 顯示全部帖子

D股權分散.rar (788.42 KB)
請g大查收圖檔,感恩謝謝