Вставить приглашение в Excel VBA, чтобы определить имя файла, чтобы открыть

Question

Скажем, у меня есть следующие файлы (по одному на каждую неделю в течение года):

• тест 01.xlsm
• тест 02.xlsm
• тест ..... XLSM
• тест 52.xlsm

Я хочу, чтобы иметь возможность выбрать файл, я хотел бы, чтобы открыть с подсказкой.

Таким образом, вместо этой функции ...

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

... Мне нужно что-то, что позволяет мне ввести номер себя (так что в этом случае «11» или любое значение между 01 и 52 в зависимости от неделю я хочу увидеть результаты).

Возможно ли это? : S

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*") 

Таким образом, вы можете просто выбрать файл.