syuan

『K = TextBox1.Text
FS = "H:\" & ListBox1.List(ListBox1.ListIndex) & "\" 』
這段改成 ...
kimbal 發表於 2010-7-13 22:08

感謝kimbal大的教學！

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

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

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

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

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

偏偏現在手頭上又有別的案子在走，實在讓我沒辦法專心的想語法～～（今天開會後又有東西要弄了．．．．．）

kimbal

感謝kimbal大的教學！

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

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

現在用的是不是還是這句?
StrFile = Dir(FS & K & "-*.pdf")
是的話可以改成這句試試
StrFile = Dir(FS & "*" & K & "-*.pdf")

syuan

現在用的是不是還是這句?
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

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

以上，祝安康！

kimbal

回復 13# syuan


    對啊

Min

忽略前段字....忽略-後的字串

"忽略"改用"包含" 解釋會較恰當!
或是解釋為Like也行~

syuan

Test.rar (14.86 KB)

下載次數: 3

2010-11-10 19:41

感謝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是否有函數或指令可以來克服這個問題呢？

以上，感謝各位～～祝安康！