- 帖子
- 472
- 主題
- 5
- 精華
- 0
- 積分
- 485
- 點名
- 0
- 作業系統
- Windows
- 軟體版本
- MS Office
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 香港
- 註冊時間
- 2010-7-4
- 最後登錄
- 2014-12-28
|
本帖最後由 kimbal 於 2010-7-13 22:12 編輯
不好意思，小弟又來問問題了∼∼
小弟想製作一個輸入號碼後，再按下按鈕時，會出現該號碼的PDF檔
如圖 ...
syuan 發表於 2010-7-3 12:23 
下面引用由syuan在 2010/07/14 00:27am 發表的內容：
感謝kimbal大的教導（這幾天在弄別的東西，所以沒立即回覆）
小弟將這段語法套在程式，的確能將pdf打開
但小弟又發現兩個問題點︰
1.如果pdf的主檔名裡，有『1234-2010.pdf』、『4321.pdf』與『1234-1-2010.pdf?...
『K = TextBox1.Text
FS = "H:\" & ListBox1.List(ListBox1.ListIndex) & "\" 』
這段改成如下
『Select Case ListBox1.ListIndex
Case 0
K = TextBox1.Text
FS = "F:\xxxx\測試用\甲\"
Case 1
K = TextBox1.Text
FS = "F:\xxxx\測試用\乙\"
Case 2
K = TextBox1.Text
FS = "F:\xxxx\測試用\丙\"
End Select』
1. 如果有多於1個檔
StrFile = Dir(FS & K & "-*.pdf")
If StrFile = "" Then
MsgBox "找不到檔案"
End If
Do While StrFile <> ""
If StrFile <> "" Then
ActiveWorkbook.FollowHyperlink FS & K & StrFile
End If
StrFile = Dir
Loop
2. 試試,
FS & "*" & K & "-*.pdf"
就是找 "F:\xxxx\測試用\x\" + 任何字 + textbox上的字 + - + 任何字 + '.pdf' 的意思 |
|
發表於 2010-7-13 22:08
| 
