如何找出網站原始檔網址 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何找出網站原始檔網址

1 2 345 下一頁

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

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

13^# 跳轉到 »

發表於 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

中學生 Rank: 2

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

12^#

發表於 2014-1-2 00:04 | 只看該作者

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

超級版主 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-1-1 16:37 | 只看該作者

回復 10# blue2263
參考這裡

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

中學生 Rank: 2

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

10^#

發表於 2014-1-1 15:27 | 只看該作者

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

中學生 Rank: 2

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

9^#

發表於 2013-12-29 22:52 | 只看該作者

謝謝g大解答

超級版主 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兔年全勤獎章

8^#

發表於 2013-12-29 15:02 | 只看該作者

回復 7# blue2263

A1是工作表上的位置, VBA 語法 Range("A1")

If A.Name = "co_id" Then A.Value =Range("A1") '股票代號

複製代碼

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

中學生 Rank: 2

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

7^#

發表於 2013-12-29 07:22 | 只看該作者

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

超級版主 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-12-28 19:05 | 只看該作者

回復 4# blue2263

A1儲存格輸入股票代碼,A2年度,A3月份

程式碼中有註解股票代碼 ,年度,月份
將那些=字串取代為 A1,A2,A3

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

中學生 Rank: 2

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

5^#

發表於 2013-12-27 22:40 | 只看該作者

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

中學生 Rank: 2

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

4^#

發表於 2013-12-27 22:36 | 只看該作者

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

靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。

1 2 345 下一頁

返回列表下一主題上一主題