帖子: 248
主題: 55
精華: 0
積分: 314
點名: 234
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2024-12-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錯誤

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

final_substance = Worksheets("Temp_Substance").Range("A65536").End(xlUp).Row
'建立Substance下拉選單
With Worksheets("規格比對表").Range("E4:E" & Range("C65536").End(xlUp).Row).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=INDIRECT(""Temp_Substance!$A2:$A" & final_substance & """)"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "請以下拉選單方式選取"
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With

複製代碼

錯在這一行
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=INDIRECT(""Temp_Substance!$A2:$A" & final_substance & """)"
在Excel 2007執行沒有問題

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

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

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

請各位大大協助

感謝！！！

樓主熱帖

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

li_hsien

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 234
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2024-12-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

高中生 Rank: 3 Rank: 3

帖子: 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好像不能跨工作表，不過可以用定義名稱來跨工作表使用，如下的程式碼試看看行不行

final_substance = Worksheets("Temp_Substance").Range("A65536").End(xlUp).Row
Names("範圍").RefersToLocal = "=Temp_Substance!$A$2:$A$" & final_substance
'建立Substance下拉選單
With Worksheets("規格比對表").Range("E4:E" & Range("C65536").End(xlUp).Row).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=範圍"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "請以下拉選單方式選取"
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With

複製代碼

TOP