[發問] 檔案下載問題

帖子: 94
主題: 28
精華: 0
積分: 145
點名: 0
作業系統: windows
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2011-9-22
最後登錄: 2025-2-25

2^#

發表於 2011-10-1 09:35 | 只看該作者

請問大大可不可以先幫我處理一下第1個問題，因為12個檔案未開放巨集程式碼，要12個檔案更新12次真的很麻煩，想說用一個excel再把12檔案串連起來，只要更新1次，並且下載所有代號存檔，速度，什麼都會變很快說。

帖子: 94
主題: 28
精華: 0
積分: 145
點名: 0
作業系統: windows
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2011-9-22
最後登錄: 2025-2-25

3^#

發表於 2011-10-2 11:57 | 只看該作者

請問一下:
那我要怎麼再我自己的excel檔，去執行其他excel的巨集(未開放程式碼)呢?

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 123
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-5-21

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2011-10-2 17:26 | 只看該作者

本帖最後由 Hsieh 於 2011-10-2 17:48 編輯

回復 3# spermbank

看不懂你的整體流程
你是要把12個檔案全部以一個公司代碼完成更新後，再將風險評估與獲利指標2個檔案內的那些工作表以代號為名另存新檔嗎?
但不是12個檔案都有"載入個股資料"的程式碼阿

學海無涯_不恥下問

帖子: 94
主題: 28
精華: 0
積分: 145
點名: 0
作業系統: windows
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2011-9-22
最後登錄: 2025-2-25

5^#

發表於 2011-10-3 01:39 | 只看該作者

本帖最後由 spermbank 於 2011-10-3 02:13 編輯

回復 4# Hsieh

為什麼可以看到><"
我是用2007版excel
想看程式碼，可是卻出現"專案無法檢視"

我已經把安全性調成:啟用所有巨集(不建議使用；會執行有潛在危險的程式碼)
                                 信任存取VBA專案物件模型

   仍然不行說
   請大大指教

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

6^#

發表於 2011-10-3 21:24 | 只看該作者

本帖最後由 luhpro 於 2011-10-3 21:38 編輯

回復 Hsieh
想看程式碼，可是卻出現"專案無法檢視"
spermbank 發表於 2011-10-3 01:39

晤...
那就是檔案有設定保護 -> 原設計者 "不想讓別人看到程式碼",
而你想從其他檔案去呼叫該按鈕的 Click 程序也沒輒(只要他是設成 Private),
建議你還是去找本人問比較適合.

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 123
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-5-21

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2011-10-3 22:52 | 只看該作者

本帖最後由 Hsieh 於 2011-10-3 22:53 編輯

回復 5# spermbank

我不善於破解
但依你敘述或許可試試在個股基本面分析.xls一般模組
執行更新主程序試試

Sub 更新主程序()
With ThisWorkbook
For Each a In .Sheets(1).[A2:A1341] '每個代號循環
更新資料 a '執行12檔案更新
Workbooks("風險評估.xls").Sheets(Array("IS", "ISQ", "BS", "BSQ", "BASIC", "YrPrice", "FR", "CFS", "ISQT")).Copy '複製工作表
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & CStr(a) & ".xls" '另存新檔
Workbooks("營業收入變動.xls").Sheets("Revenue").Copy Before:=Workbooks(CStr(a) & ".xls").Sheets(1) '複製工作表
關檔
Next
End With
End Sub
Sub 更新資料(a)
Dim Sh As Worksheet, MyURL$, MyQy As QueryTable
With ThisWorkbook
fd = .Path & "\基本面\"
fs = Dir(fd & "*.xls")
Do Until fs = ""
With Workbooks.Open(fd & fs)
For Each Sh In .Sheets
With Sh
If .QueryTables.Count > 0 Then
Set MyQy = .QueryTables(1)
With .QueryTables(1)
MyURL = .Connection
If InStr(MyURL, "StockID") > 0 Then
k = Val(Split(MyURL, "=")(UBound(Split(MyURL, "="))))
Else
k = Val(Split(MyURL, "_")(1))
End If
MyURL = Replace(MyURL, k, a)
.Connection = MyURL '更改查詢
.BackgroundQuery = False '幕前更新
.Refresh '更新
End With
End If
End With
Next
End With
fs = Dir()
Loop
End With
End Sub
Sub 關檔()
For Each w In Windows
If w.Caption <> ThisWorkbook.Name Then w.Close 1
Next
End Sub

複製代碼

學海無涯_不恥下問

帖子: 94
主題: 28
精華: 0
積分: 145
點名: 0
作業系統: windows
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2011-9-22
最後登錄: 2025-2-25

8^#

發表於 2011-10-4 19:54 | 只看該作者

回復 7# Hsieh

            Workbooks("營業收入變動.xlsm").Sheets("Revenue").Copy Before:=Workbooks(CStr(a) & ".xlsx").Sheets(1) '複製工作表
在執行程式時這上述兩行程式時，出現"ClassWorksheet的Copy方法失敗"
不知道如何解決，請大大指點。
另:
   大大回復的問題中
   但不是12檔案中都有"輸入個股資料"的程式碼
   是不是要用2003版本開就可以看到呢?
   還是只有破解一途呢?

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 123
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-5-21

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

9^#

發表於 2011-10-4 20:06 | 只看該作者

回復 8# spermbank
要另存成xlsx檔案，前面的存檔就要一起改成xlsx
之前提到的不是每個檔案都有該程序，是因為我測試時沒有開放巨集導致誤解
原作者以按鈕驅動模組內程序，可利用複製工作表，就能看到工作表模組內程式碼
但是若要看到全部程式碼就必須破解，況且每個檔案程式碼是以InputBox輸入代碼
所以，要每個檔案修改程式碼不如重新撰寫

學海無涯_不恥下問

帖子: 94
主題: 28
精華: 0
積分: 145
點名: 0
作業系統: windows
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2011-9-22
最後登錄: 2025-2-25

10^#

發表於 2011-10-5 14:00 | 只看該作者

本帖最後由 spermbank 於 2011-10-5 14:04 編輯

回復 9# Hsieh
H大你好:
我將程式碼改成
With ThisWorkbook
For Each a In .Sheets(1).[A2:A1341] '每個代號循環
   Application.ScreenUpdating = False    '停止螢幕更新
   更新資料 a '執行12檔案更新
   Workbooks("風險評估.xls").Sheets(Array("IS", "ISQ", "BS", "BSQ", "BASIC", "YrPrice", "FR", "CFS", "ISQT")).Copy '複製工作表
   ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & CStr(a) & ".xlsx" '另存新檔
   Workbooks("營業收入變動.xls").Sheets("Revenue").Copy Before:=Workbooks(CStr(a) & ".xlsx").Sheets(1) '複製工作表
   關檔
Next
Application.ScreenUpdating = False    '停止螢幕更新
End With
仍然出現下列錯誤
執行階段錯誤 ‘1004’ :
Class Worksheet的Copy方法失敗
另外:
H大說:原作者以按鈕驅動模組內程序，可利用複製工作表，就能看到工作表模組內程式碼，我不知道如何看到，不了解大大意思。
想請教大大是不是可以看到部分的程式碼中看到下載更新的網址及相關程式碼、可以貼給我，或許我可以用G大教我的下載、速度問題相關程式，如法炮製的寫寫看。
若不行再請大大協助。