插入提示，以確定文件名，打開

Question

比方說，我有以下文件（每個星期在一年中）：

• 測試01.xlsm
• 測試02.xlsm
• 測試..... XLSM
• 測試52.xlsm

我希望能夠選擇，我想用一個提示打開該文件。

所以不是這個功能...

Workbooks.Open Filename:= _ 
    "F:\mydocs\test11.xlsm" 

...我因01和52之間需要的東西，讓我輸入號碼我自己（所以在這種情況下，「11」或任何價值一週我想看看結果）。

這可能嗎？ ：■

Answer 1

也許：

Sub duraln() 
Dim s As String 
s = Application.InputBox(Prompt:="enter two digit suffix", Type:=2) 
Workbooks.Open Filename:= _ 
    "F:\mydocs\test" & s & ".xlsm" 
End Sub 

Answer 2

您應該使用InputBox：

weekNum = InputBox("Input week number:")

Answer 3

爲什麼不使用文件選擇對話框？

Dim wb as Workbook 

ChDir "F:\mydocs\" 

Set wb = Application.GetOpenFilename("Microsoft Excel Files, *.xls*") 

這樣你就可以選擇文件。