12
返回列表 上一主題 發帖

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

li_hsien

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

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 
點名
217  
作業系統
XP / WIN7 
軟體版本
2003 / 2007 
閱讀權限
20 
性別
男 
來自
Tainan 
註冊時間
2013-10-18 
最後登錄
2024-11-22 

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

謝謝版大

結果客戶那邊還是不行

好像是Dir都不管用@@

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

Workbooks.Open filename
w_file = ActiveWorkbook.Name

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

雖然好像笨了點

但是可行  哈哈
用功到世界末日那一天∼∼∼

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
12#
發表於 2014-4-25 20:22 | 只看該作者
回復 11# li_hsien
  1. MsgBox filename   '有副檔名的
  2. 'Dir 函數 語法 Dir [(pathname[, attributes])]
  3. w_file = Dir(filename, vbNormal)  '加 attributes這參數試試看
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

li_hsien

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

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


版大我還有一問想請教，不知能否幫忙
  1. Sub w_report_Click()

  3.     '-----開啟W表單-----
  4.    
  5.     Dim program_file As String, filename As String, w_file As String
  6.    
  7.     program_file = Left(ActiveWorkbook.Name, Application.Find(".", ActiveWorkbook.Name) - 1)
  8.     filename = Application.GetOpenFilename
  9.    
  10. '    On Error Resume Next
  11. '    On Error GoTo HandleErr

  13.     Workbooks.Open filename

  15.     w_file = Dir(filename)
  16.     Debug.Print w_file

  18.     A w_file
  19.     A_chart w_file
  20.     F w_file
  21.    
  22.     Workbooks(program_file).Worksheets(1).w_file = ""
  23.     MsgBox "DONE !!!"
  24.    
  25. '    Exit Sub
  26. '
  27. 'HandleErr:
  28. '        MsgBox "請開啟W表單。"
  29.         
  30. End Sub
複製代碼
客戶執行時發現出錯在這行
w_file = Dir(filename)
主要是用來抓開啟的檔案名稱

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

不知是不是Dir不能使用

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


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

感謝!!!!
用功到世界末日那一天∼∼∼

TOP

li_hsien

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

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


版大 沒關係

謝謝你!!!

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

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

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

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 
點名
217  
作業系統
XP / WIN7 
軟體版本
2003 / 2007 
閱讀權限
20 
性別
男 
來自
Tainan 
註冊時間
2013-10-18 
最後登錄
2024-11-22 

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兔年全勤獎章
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 
點名
217  
作業系統
XP / WIN7 
軟體版本
2003 / 2007 
閱讀權限
20 
性別
男 
來自
Tainan 
註冊時間
2013-10-18 
最後登錄
2024-11-22 

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兔年全勤獎章
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

        靜思自在 : 小事不做、大事難成。
12
返回列表 上一主題