EXCEL 2007 VBA 在EXCEL 2010 執行出問題 - Excel程式區

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

4^# 跳轉到 »

發表於 2014-4-25 07:57 | 只看該作者

回復 3# GBKEE

版大你說的偵錯處理

我後來有想到哈哈

所以都把他關掉

直接讓錯誤顯示出來

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

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

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

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

煩請幫我測試看看謝謝

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2014-4-25 06:20 | 只看該作者

回復 2# li_hsien

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 GoTo HandleErr '你希望程式碼有錯誤到 HandleErr
A w_file '但執行此程序,如有錯誤會回到HandleErr,你不易偵錯的

複製代碼

Sub A(w_file)
Dim this_week As Integer, end_col As Integer, end_row As Integer, i As Integer, delete_col As Integer
'w_file->W1414_GF108_CP_weekly_report
'w_file 正確為 W1414_GF108_CP_weekly_report.xls
With Workbooks(w_file).Worksheets(1) 'Workbooks(w_file)才不會出錯

複製代碼

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

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

2^#

發表於 2014-4-24 20:33 | 只看該作者

小弟附個檔讓大家試試

麻煩幫我抓個問題@@

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

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

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

TKS~

forum.rar (156.42 KB)

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

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