[發問] 檔案下載問題

帖子: 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的巨集(未開放程式碼)呢?

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

4^#

發表於 2011-10-3 01:39 | 顯示全部帖子

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

回復 4# Hsieh

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

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

   仍然不行說
   請大大指教

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

5^#

發表於 2011-10-4 19:54 | 顯示全部帖子

回復 7# Hsieh

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

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

6^#

發表於 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大教我的下載、速度問題相關程式，如法炮製的寫寫看。
若不行再請大大協助。