12
返回列表 上一主題 發帖

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

li_hsien

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-4-24 14:53 | 只看該作者

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

請問各位大大

最近幫個客戶弄了一個巨集程式

我本身作業是用2007版EXCEL撰寫，儲存成2003可執行的版本

但到客戶端，發現是2010版的EXCEL

基本上我覺得語法應該沒使用到2010不能使用到的部分(因為都蠻單純的)

主要寫到的功能
1. 開啟要處理的來源檔案
2. 刪除來源檔中不必要的儲存格
3. 改變來源檔圖表的格式
(原本來源檔就有Chart了，只是我刪了不必要的儲存格，所以圖表會有點縮減；且須修改部分格式，像是線寬、標記的樣式等等)
4. 最後跳出處理完成的訊息視窗


客戶端開啟來源檔後，只跳出最後處理完的訊息視窗。

前半段的刪除部分及圖表部分都沒執行到@@

也沒有錯誤訊息


後來我實際用了2010版的EXCEL執行，完全跟用2007執行一樣，結果正常

不知是不是客戶公司那設定了什麼???  


想請問各位大大，這方法有沒有什麼處理方式? 還是可能需要做什麼設定???

P.S. 客戶是用英文版的2010


煩請幫忙  謝謝
收藏 分享
用功到世界末日那一天～～～

li_hsien

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
2#
發表於 2014-4-24 20:33 | 只看該作者
小弟附個檔讓大家試試

麻煩幫我抓個問題@@

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

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

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

TKS~
forum.rar (156.42 KB)
用功到世界末日那一天～～～

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2014-4-25 06:20 | 只看該作者
回復 2# li_hsien
  1. Sub w_report_Click()
  2.     '-----開啟W表單-----   
  3.     Dim program_file As String, filename As String, w_file As String   
  4.     program_file = Left(ActiveWorkbook.Name, Application.Find(".", ActiveWorkbook.Name) - 1)
  5.     filename = Application.GetOpenFilename   
  6.     On Error GoTo HandleErr  '你希望程式碼有錯誤到 HandleErr
  7.      A w_file '但執行此程序,如有錯誤會回到HandleErr,你不易偵錯的
複製代碼
  1. Sub A(w_file)
  2.     Dim this_week As Integer, end_col As Integer, end_row As Integer, i As Integer, delete_col As Integer
  3.    'w_file->W1414_GF108_CP_weekly_report
  4.    'w_file 正確為 W1414_GF108_CP_weekly_report.xls
  5.     With Workbooks(w_file).Worksheets(1)  'Workbooks(w_file)才不會出錯
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

li_hsien

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
4#
發表於 2014-4-25 07:57 | 只看該作者
回復 3# GBKEE

版大 你說的偵錯處理

我後來有想到  哈哈

所以都把他關掉

直接讓錯誤顯示出來

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



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

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


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


煩請幫我測試看看  謝謝
用功到世界末日那一天～～～

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2014-4-25 09:43 | 只看該作者
回復 4# li_hsien
我的是2003版,執行附檔程式碼是2003版以上版本寫的.
錯誤點都是 "不支援此屬性或方法" ,可以標出錯誤點是哪裡,看看如何解決
  1. Sub A_chart(w_file)
  2.     'Dim C As ChartObject
  3.     'Set C = Workbooks(w_file).Worksheets(1).ChartObjects("Chart 3")
  4.     With Workbooks(w_file).Worksheets(1).ChartObjects("Chart 3").Chart
  5.         '.ChartArea.Format.Line.Visible = msoFalse   '2003錯誤
  6.         .ChartArea.Border.LineStyle = msoFalse   '改成這樣對嗎?
  7.         .SizeWithWindow = True
  8.         '.ChartArea.Width = 362.5 '寬度 原1449.25      '2003錯誤
  9.         '.ChartArea.Height = 124.75  '高度 原178.75    '2003錯誤
  10.         .Parent.Width = 362.5  ' *** 這樣對嗎? ***
  11.         .Parent.Height = 124.75
  12.         
  13.         With .PlotArea
  14.             .Height = 102.148661417323 '繪圖區高度 原120.97031496063
  15.             .Width = 342.872283464567  '繪圖區寬度 原358.980866141732
  16.             .Left = 10 '繪圖區位移
  17.             .Top = 10  '繪圖區位移
  18.         End With

  20.         '圖表標題
  21.         With .ChartTitle
  22.             If IsError(Application.Find(".", Worksheets(2).Range("G2"))) = False Then
  23.                 .Text = Left(ActiveChart.ChartTitle.Text, Application.Find(" ", ActiveChart.ChartTitle.Text) - 1) _
  24.                     & "-" & Mid(Worksheets(2).Range("G2"), Application.Find(".", Worksheets(2).Range("G2"), Application.Find(".", Worksheets(2).Range("G2")) + 1) + 1, 3) _
  25.                     & " " & "wk" & Right(Worksheets(2).Range("A2"), 4) & " " & Right(ActiveChart.ChartTitle.Text, 15)
  26.             ElseIf IsError(Application.Find(".", Worksheets(2).Range("G2"))) = True Then
  27.                 .Text = Left(ActiveChart.ChartTitle.Text, Application.Find(" ", ActiveChart.ChartTitle.Text) - 1) _
  28.                     & "-" & Mid(Worksheets(2).Range("G2"), Application.Find("_", Worksheets(2).Range("G2"), Application.Find("_", Worksheets(2).Range("G2")) + 1) + 1, 3) _
  29.                     & " " & "wk" & Right(Worksheets(2).Range("A2"), 4) & " " & Right(ActiveChart.ChartTitle.Text, 15)
  30.             End If
  31.             .Font.Size = 6.5  '標題字體大小
  32.             .Font.Name = "Arial" '標題字型
  33.             .Left = 123  '標題位移
  34.         End With
  35.         With .Legend
  36.             .Position = xlLegendPositionBottom  '圖例列底部
  37.             '.Legend.Top = 300   '圖例位移
  38.             .Top = Range("A21").Top
  39.             .Font.Size = 6.5 '圖例字體大小
  40.             .Font.Name = "Arial" '圖例字型
  41.         End With
  42.         With .SeriesCollection("Yield")
  43. '            .SeriesCollection(4).Border.ColorIndex = 18 '線條顏色
  44.             .Border.Color = 5066944 '線條顏色
  45.             '.SeriesCollection("Yield").Format.Line.Weight = 1 '線條&標記寬為1
  46.             '.Format.Line 2003錯誤 ***********
  47.             .Border.Weight = 1            '.LineStyle = 0
  48.             .Border.Weight = -4138   '只改變線條
  49.             .MarkerStyle = 2  '標記菱形
  50.             .MarkerBackgroundColorIndex = 2 '標記顏色(白)
  51.             .MarkerSize = 5    '標記大小5
  52.             .MarkerForegroundColor = 5066944    '標記外框
  53.             .ApplyDataLabels  '顯示資料標籤
  54.             .DataLabels.Font.Size = 5  '上列數值字體大小
  55.             .DataLabels.Font.Name = "Arial" '上列數值字型
  56.             
  57.         End With
  58.         '.SeriesCollection("Yield").Select    '不需要
  59.        ' .SetElement (msoElementDataLabelTop) '資料標籤置上 '2003沒這選項
  60.         .Axes(xlValue, xlPrimary).AxisTitle.Font.Size = 6.5 'Y軸標題大小
  61.         .Axes(xlValue, xlPrimary).AxisTitle.Font.Name = "Arial" 'Y軸標題字型
  62.         .Axes(xlValue, xlPrimary).AxisTitle.Left = -3  'Y軸標題位移

  64.         .Axes(xlCategory).TickLabels.Font.Size = 5  'X軸字體大小
  65.         .Axes(xlCategory).TickLabels.Font.Name = "Arial"    'X軸字型
  66.         
  67.         .Axes(xlValue).TickLabels.Font.Size = 6.5  'Y軸字體大小
  68.         .Axes(xlValue).TickLabels.Font.Name = "Arial"  'Y軸字型
  69.         
  70.         .SeriesCollection("Yield").DataLabels.Font.Size = 5  '上列數值字體大小
  71.         .SeriesCollection("Yield").DataLabels.Font.Name = "Arial" '上列數值字型
  72.     End With
  73. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

li_hsien

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
6#
發表於 2014-4-25 13:13 | 只看該作者
回復 5# GBKEE


謝謝版大

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

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

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

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

也太奇怪了
用功到世界末日那一天～～～

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
7#
發表於 2014-4-25 13:22 | 只看該作者
本帖最後由 GBKEE 於 2014-4-25 13:25 編輯

回復 6# li_hsien
自己電腦測試有副檔名 沒副檔名都可以 (也是2003版嗎?,可以嗎?)
  1. 'Workbooks(program_file).Worksheets(1).w_file = ""  '2003這裡是錯誤的
  2.       w_file = ""  
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

li_hsien

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
8#
發表於 2014-4-25 14:42 | 只看該作者
本帖最後由 li_hsien 於 2014-4-25 14:43 編輯

回復 7# GBKEE

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

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


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

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

給其他朋友測試也都可以

不知道是哪段程式或是設定出了問題@@
用功到世界末日那一天～～～

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
9#
發表於 2014-4-25 14:49 | 只看該作者
本帖最後由 GBKEE 於 2014-4-25 14:51 編輯

回復 8# li_hsien
那不好意思我只有2003版幫不上忙了.需有請2010版的幫忙.
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

li_hsien

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
10#
發表於 2014-4-25 15:03 | 只看該作者
回復 9# GBKEE


版大 沒關係

謝謝你!!!

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

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

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

TOP

        靜思自在 : 口說好話、心想好意、身行好事。
12
返回列表 上一主題