返回列表 上一主題 發帖

[發問] 執行階段錯誤-2147417848(80010108) Automation錯誤

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
發表於 2015-4-22 13:46 | 只看該作者

[發問] 執行階段錯誤-2147417848(80010108) Automation錯誤

本帖最後由 li_hsien 於 2015-4-22 13:48 編輯

小弟使用Excel 2003執行下方語法 發生執行階段錯誤-2147417848(80010108) Automation錯誤

以下語法是資料驗證使用下拉清單的操作

  2. final_substance = Worksheets("Temp_Substance").Range("A65536").End(xlUp).Row

  4.     '建立Substance下拉選單
  5.     With Worksheets("規格比對表").Range("E4:E" & Range("C65536").End(xlUp).Row).Validation
  6.         .Delete
  7.         .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
  8.         xlBetween, Formula1:="=INDIRECT(""Temp_Substance!$A2:$A" & final_substance & """)"        
  9.         .IgnoreBlank = True
  10.         .InCellDropdown = True
  11.         .InputTitle = ""
  12.         .ErrorTitle = ""
  13.         .InputMessage = ""
  14.         .ErrorMessage = "請以下拉選單方式選取"
  15.         .IMEMode = xlIMEModeNoControl
  16.         .ShowInput = True
  17.         .ShowError = True
  18.     End With
複製代碼
錯在這一行
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=INDIRECT(""Temp_Substance!$A2:$A" & final_substance & """)"
在Excel 2007執行沒有問題

但在Excel 2003操作會發生下方錯誤
p.jpg

GOOLGE爬文了好久也找到一些方式

但都沒有解　困擾好久.....

請各位大大協助

感謝！！！
收藏 分享
用功到世界末日那一天∼∼∼

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羊年全勤獎章熱烈參與勳章
3#
發表於 2015-4-24 09:28 | 只看該作者
回復 2# lpk187

感謝lpk187大協助

後來發現是我必須切換到所要設定下拉選單的工作表
(e.g. Worksheets("規格比對表").activate)

先activate過去再執行下拉清單的語法就可以了...

Excel 2007都沒有這個問題

真是個難得經驗

另外您提及跨Sheet的資料來源

Excel 2003本身好像有限制，但是可以用INDIRECT的方式操作

還是可以執行
用功到世界末日那一天∼∼∼

TOP

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
2#
發表於 2015-4-22 19:36 | 只看該作者
回復 1# li_hsien

資料驗證清單在2003好像不能跨工作表，不過可以用定義名稱來跨工作表使用，如下的程式碼試看看行不行
  1. final_substance = Worksheets("Temp_Substance").Range("A65536").End(xlUp).Row
  2. Names("範圍").RefersToLocal = "=Temp_Substance!$A$2:$A$" & final_substance
  3.    

  5.     '建立Substance下拉選單
  6.     With Worksheets("規格比對表").Range("E4:E" & Range("C65536").End(xlUp).Row).Validation
  7.         .Delete
  8.         .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
  9.         xlBetween, Formula1:="=範圍"
  10.         .IgnoreBlank = True
  11.         .InCellDropdown = True
  12.         .InputTitle = ""
  13.         .ErrorTitle = ""
  14.         .InputMessage = ""
  15.         .ErrorMessage = "請以下拉選單方式選取"
  16.         .IMEMode = xlIMEModeNoControl
  17.         .ShowInput = True
  18.         .ShowError = True
  19.     End With
複製代碼

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題