[發問] EXCEL 2007 VBA 在EXCEL 2010 執行出問題

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 187
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2026-10-11

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

2^#

發表於 2014-4-24 20:33 | 顯示全部帖子

小弟附個檔讓大家試試

麻煩幫我抓個問題@@

程式是0424，另一個檔案是需要匯入的檔案

我只附了第一個按鈕要開啟的檔案

第二張圖是跑完後應該出現的畫面

TKS~

forum.rar (156.42 KB)

用功到世界末日那一天～～～

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 187
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2026-10-11

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

3^#

發表於 2014-4-25 07:57 | 顯示全部帖子

回復 3# GBKEE

版大你說的偵錯處理

我後來有想到哈哈

所以都把他關掉

直接讓錯誤顯示出來

以下是經客戶再次測試的結果，麻煩幫我看看，問題點都一樣@@
好像CHART的處理有問題

不過開檔案那個好像沒有問題，因為我檔案還是可以開啟執行耶，只是圖表跟儲存格處理有問題

而且我一直不解的是，我找了三個一樣用2010的朋友幫我測試
都一樣正確OK

不知道是不是英文版的有差異還是需要做什麼設定@@

煩請幫我測試看看謝謝

用功到世界末日那一天～～～

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 187
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2026-10-11

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

4^#

發表於 2014-4-25 13:13 | 顯示全部帖子

回復 5# GBKEE

謝謝版大

轉換成這樣的寫法我自己測試也OK

不過換到對方那邊還是一樣不行@@

且如果With Workbooks的方式變成有副檔名就不行了= =

可是我自己電腦測試有副檔名沒副檔名都可以

也太奇怪了

用功到世界末日那一天～～～

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 187
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2026-10-11

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

5^#

發表於 2014-4-25 14:42 | 顯示全部帖子

本帖最後由 li_hsien 於 2014-4-25 14:43 編輯

回復 7# GBKEE

我環境是2007的，有無副檔名都可以

不過我給客戶(2010英文版)，有加副檔名好像會錯誤

現在真不知為什麼客戶那邊2010英文版的為什麼不能執行@@

明明我用自家別台電腦(也是2010)就可以跑出圖表

給其他朋友測試也都可以

不知道是哪段程式或是設定出了問題@@

用功到世界末日那一天～～～

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 187
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2026-10-11

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

6^#

發表於 2014-4-25 15:03 | 顯示全部帖子

回復 9# GBKEE

版大沒關係

謝謝你!!!

平時已經幫忙解決了不少問題

我也學到了不少東西!!!

TKS~

用功到世界末日那一天～～～

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 187
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2026-10-11

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

7^#

發表於 2014-4-25 20:02 | 顯示全部帖子

回復 9# GBKEE

版大我還有一問想請教，不知能否幫忙

Sub w_report_Click()
'-----開啟W表單-----
Dim program_file As String, filename As String, w_file As String
program_file = Left(ActiveWorkbook.Name, Application.Find(".", ActiveWorkbook.Name) - 1)
filename = Application.GetOpenFilename
' On Error Resume Next
' On Error GoTo HandleErr
Workbooks.Open filename
w_file = Dir(filename)
Debug.Print w_file
A w_file
A_chart w_file
F w_file
Workbooks(program_file).Worksheets(1).w_file = ""
MsgBox "DONE !!!"
' Exit Sub
'
'HandleErr:
' MsgBox "請開啟W表單。"
End Sub

複製代碼

客戶執行時發現出錯在這行
w_file = Dir(filename)
主要是用來抓開啟的檔案名稱

後來我用個儲存格放檔名讓他測試
EX:
w_file = range("A1") ->儲存格A1來放檔名
這樣就可以了

不知是不是Dir不能使用

請問有什麼另外可以抓到檔名的方法嗎???

哦~而且最後確認
客戶用EXCEL2010英文版的，一樣要像版大說的加上副檔名才行

感謝!!!!

用功到世界末日那一天～～～

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 187
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2026-10-11

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

8^#

發表於 2014-4-25 22:45 | 顯示全部帖子

回復 12# GBKEE

謝謝版大

結果客戶那邊還是不行

好像是Dir都不管用@@

結果我想到比較直觀的方法

Workbooks.Open filename
w_file = ActiveWorkbook.Name

讓來源檔開起來的時候
再接一次ActiveWorkbook.Name

雖然好像笨了點

但是可行哈哈

用功到世界末日那一天～～～