12
返回列表 上一主題 發帖

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

syuan

帖子
50 
主題
12 
精華
0 
積分
143 
點名
0  
作業系統
win xp 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
來自
EARTH 
註冊時間
2010-5-24 
最後登錄
2015-5-12 
11# 跳轉到 »
發表於 2010-7-21 22:53 | 只看該作者
『K = TextBox1.Text
FS = "H:\" & ListBox1.List(ListBox1.ListIndex) & "\" 』
這段改成 ...
kimbal 發表於 2010-7-13 22:08



感謝kimbal大的教學！

小弟這幾天一直在忙別的案子，所以就沒時間上來留言！

小弟將這段程式套到程式裡，發現有點怪怪的！

在輸入號碼的時候，並沒辦法忽略主檔名前的xxx來打開pdf檔（例如主檔名為ABC 1111-1990.pdf)

仍需完全輸入主檔名的全名才打的開！

現在正傷腦筋這段語法，不知該怎麼修改∼∼∼

偏偏現在手頭上又有別的案子在走，實在讓我沒辦法專心的想語法∼∼（今天開會後又有東西要弄了．．．．．）
錢是很寂莫的，所以會想辦法聚在一起！

TOP

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
12#
發表於 2010-7-21 23:41 | 只看該作者
感謝kimbal大的教學！

小弟這幾天一直在忙別的案子，所以就沒時間上來留言！

小弟將這段程式套 ...
syuan 發表於 2010-7-21 22:53



現在用的是不是還是這句?
StrFile = Dir(FS & K & "-*.pdf")
是的話可以改成這句試試
StrFile = Dir(FS & "*" & K & "-*.pdf")
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

syuan

帖子
50 
主題
12 
精華
0 
積分
143 
點名
0  
作業系統
win xp 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
來自
EARTH 
註冊時間
2010-5-24 
最後登錄
2015-5-12 
13#
發表於 2010-8-11 23:23 | 只看該作者
本帖最後由 syuan 於 2010-8-11 23:24 編輯
現在用的是不是還是這句?
StrFile = Dir(FS & K & "-*.pdf")
是的話可以改成這句試試
StrFile = Dir(FS & "*" & K & "-*.pdf")
kimbal 發表於 2010-7-21 23:41


感謝kimbal大的教學！

小弟因近幾個禮拜皆在忙公司的專案，雖都有忙裡偷閒來論壇上點選”每日報到”任務來賺積分！

但並沒有來回覆這篇，真是甚感抱歉！（因小弟亦在進行該程式的另一項功能的檔案連結）

小弟將您所示的那句語法鍵入程式中！已能開啟想要的pdf檔並執行無誤！


比較好奇的是那句語法StrFile = Dir(FS & "*" & K & "-*.pdf")是不是解釋成

strfile=目錄（”路徑”&”忽略前段字”&”文字盒裡的字串”&”忽略-後的字串.pdf”）

FS="X:\"
K=Textbox1.text

不知小弟這樣解釋是否可行？

以上，祝安康！
錢是很寂莫的，所以會想辦法聚在一起！

TOP

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
14#
發表於 2010-8-12 22:02 | 只看該作者
回復 13# syuan


    對啊
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

Min
　暱稱: 閔

版主Rank: 7Rank: 7Rank: 7

帖子
172 
主題
39 
精華
20 
積分
177 
點名
0  
作業系統
Microsoft Windows XP 
軟體版本
Microsoft Office 2003 
閱讀權限
100 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2023-3-19 

論壇貢獻勳章帥哥勳章
15#
發表於 2010-8-13 22:59 | 只看該作者
忽略前段字....忽略-後的字串

"忽略"改用"包含" 解釋會較恰當!
或是解釋為Like也行~
若是我回答，使您滿意，請您讓我知道！                  
若是我的回覆，您仍有其他見解，也請您不嗇指教！

TOP

syuan

帖子
50 
主題
12 
精華
0 
積分
143 
點名
0  
作業系統
win xp 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
來自
EARTH 
註冊時間
2010-5-24 
最後登錄
2015-5-12 
16#
發表於 2010-11-10 19:41 | 只看該作者
本帖最後由 syuan 於 2010-11-10 19:42 編輯

Test.rar (14.86 KB)
感謝Hsieh、kimbal與Min的回覆

這幾個月小弟一直在忙別的案子，所以就沒辦法上線來回覆！

雖然途中有跑到別帖去延續問題，但小弟想．．．還是用這帖回帖好了
http://forum.twbts.com/viewthread.php?tid=1199&page=2


小弟又遇到一個問題，如下圖
藍色框為資料，右側userform2表單的上的文字來源，即是從左側藍色框而來（滑鼠依序點選1、2、3後會出現userform2)


只是小弟有天突然想到，如果在第七列插入一列或插入資料後，那userform2上的文字來源是不是會跑掉？

一試∼∼果不其然，如下圖


因為小弟是用
Set TA = Sheets("甲").Range("a2:b6")
Set JP = Sheets("甲").Range("a7:b11")
的語法來寫，也就是指定行與列的儲存格來連結資料！

那日後如果要如第二張圖插入資料時，那麼”每一行”裡的range豈不是要連動更新．．．

想請問先進們，vba是否有函數或指令可以來克服這個問題呢？

以上，感謝各位∼∼祝安康！
錢是很寂莫的，所以會想辦法聚在一起！

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
12
返回列表 上一主題