12
返回列表 上一主題 發帖

[發問] VBA執行時發生執行階段錯誤''91''

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
256  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-26 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
7# 跳轉到 »
發表於 2010-5-26 18:13 | 只看該作者
回復 6# PD961A


    原因在於樓主只是把檔案取名為2.rar
實質上該檔案是.xls
我已經將樓主原檔案重新壓縮上傳
所以現在已是正確的.rar了
學海無涯_不恥下問

TOP

PD961A

帖子
1180 
主題
204 
精華
0 
積分
1051 
點名
0  
作業系統
Mac.OS10.6 
軟體版本
Office 2003 
閱讀權限
100 
性別
男 
註冊時間
2010-5-3 
最後登錄
2012-9-19 

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章2011兔年全勤獎章
6#
發表於 2010-5-26 18:08 | 只看該作者
本帖最後由 PD961A 於 2010-5-26 18:10 編輯

回復 5# Hsieh
版主
1#附件已更新,下載後已是正確rar壓縮檔
我知道:上傳附件不接受xls副檔名
            要先壓縮後再上傳壓縮檔
正常是直接解壓縮就可以
不過因為開出的檔案是這樣的畫面才會覺得疑問...
謝謝!!



  另外不好意思1#附件更新檔是哪一個??感謝您!

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
256  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-26 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
5#
發表於 2010-5-26 16:39 | 只看該作者
回復 4# PD961A


    1#附件已更新,下載後已是正確rar壓縮檔
上傳附件不接受xls副檔名
要先壓縮後再上傳壓縮檔
學海無涯_不恥下問

TOP

PD961A

帖子
1180 
主題
204 
精華
0 
積分
1051 
點名
0  
作業系統
Mac.OS10.6 
軟體版本
Office 2003 
閱讀權限
100 
性別
男 
註冊時間
2010-5-3 
最後登錄
2012-9-19 

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2010-5-26 12:39 | 只看該作者
本帖最後由 PD961A 於 2010-5-26 12:41 編輯

感謝Hsieh版大的解惑，感謝小誌管大的回覆（應該是小弟目前的權限不足，所以看不到自己上傳的附件）

小弟 ...
syuan 發表於 2010-5-26 11:43 [/quote]

HS板主
請問下載時的對話要用儲存   下載 (46.82 KB)


檔案名稱直接把RAR附檔名一併寫入


可是解不出檔案
請問步驟哪裡有問題?
謝謝!!

TOP

syuan

帖子
50 
主題
12 
精華
0 
積分
143 
點名
0  
作業系統
win xp 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
來自
EARTH 
註冊時間
2010-5-24 
最後登錄
2015-5-12 
3#
發表於 2010-5-26 11:43 | 只看該作者
[版主管理留言]
  • 小誌(2010-5-26 22:47): 請詳閱論壇版規之檔案上下傳原則,檔案附件請儘量刪除不必要資料後壓縮後上傳(非請人家改檔名)。

本帖最後由 syuan 於 2010-5-26 11:44 編輯

Test.rar (67.5 KB) 感謝Hsieh版大的解惑，感謝小誌管大的回覆（應該是小弟目前的權限不足，所以看不到自己上傳的附件）

小弟將表單一的ElseIF下的set該句，放到如版大所述的位置，果然就不再出現那個訊息（執行階段錯誤91，沒有設定物件變數或with區塊變數）

但當點選userform1裡Listbox1的01.日本時，userform1的Listbox2與Listbox3都可顯示，而userform2的Listbox1裡的項目卻無法點選（如下圖）
（小弟的這個程式是用Excel的VBA來開啟pdf檔）



感謝先進們，祝安康∼∼

ps：附件的檔案副檔名，請改為xls！
錢是很寂莫的，所以會想辦法聚在一起！

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
256  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-26 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2010-5-26 09:04 | 只看該作者
回復 1# syuan


    if敘述沒設定到jp
改成
  1. Private Sub ListBox3_Click()
  2. UserForm2.ListBox1.Clear

  4. Set TA = Sheets("sheet1").Range("a2:b6")'設置變數TA
  5. Set JP = Sheets("sheet1").Range("A10:B14")'設置變數JP
  6. If UserForm1.ListBox1.ListIndex = 0 And UserForm1.ListBox2.ListIndex = 0 And UserForm1.ListBox3.ListIndex = 0 Then
  7. With UserForm2.ListBox1
  8.      .ColumnCount = TA.Columns.Count
  9.      .ColumnWidths = "100"
  10.      .List = TA.Value
  11. End With
  12. UserForm2.Show
  13. '----------------------------------------------------
  14. ElseIf UserForm1.ListBox1.ListIndex = 1 And UserForm1.ListBox2.ListIndex = 0 And UserForm1.ListBox3.ListIndex = 0 Then
  15. UserForm2.ListBox1.Clear
  16. With UserForm2.ListBox1
  17.      .ColumnCount = JP.Columns.Count
  18.      .ColumnWidths = "100"
  19.      .List = JP.Value
  20. End With
  21. UserForm2.Show
  22. Else
  23. MsgBox "找不到檔案"
  24. End If
  25. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 為人處世要小心細心，但不要「小心眼」。
12
返回列表 上一主題