Как открыть книгу Excel с путем и именем файла в качестве изменяющихся параметров

Question

Я новичок в VBA и пытаюсь выполнить простую команду.

Я хочу открыть книгу ( name = test.xlsx ), которая сохраняется в укажите c путь (C: \ Users \ u16086 \ Desktop \ Folder ) в моем P C с кодом VBA.

Я определил два имени в моем первом Excel, которые являются двумя параметрами, которые я могу изменить, если путь или имя файла отличаются:

путь : C: \ Users \ u16086 \ Рабочий стол \ Папка

имя файла : test.xlsx

Код, который я написал:

Option Explicit

Sub openworksheet()
    Dim path As String
    Dim file_name As String
    Workbooks.Open Filename:=path & file_name
End Sub

Я запустил код, но он говорит, что есть ошибка ошибка во время выполнения1004 . Как мне решить эту проблему?

Answer 1

Путь C:\Users\u16086\Desktop\Folder\test.xlsx также можно записать как

"C:\Users\u16086\Desktop\Folder" & "\" & "test.xlsx"

, поэтому попробуйте

Workbooks.Open Filename:=path & "\" & file_name

Кроме того, вы можете проверить, заканчивается ли путь к папке "\" или нет. Например

Option Explicit

Sub openworksheet()
    Dim path As String
    Dim file_name As String

    '~~> Change Sheet name and cell address accordingly
    path = Sheets("Sheet1").Range("A1").Value
    file_name = Sheets("Sheet1").Range("A2").Value

    If Right(path, 1) <> "\" Then path = path & "\"

    Workbooks.Open Filename:=path & file_name
End Sub

Answer 2

Вы определили две переменные. Вы должны присвоить им значения и затем построить путь, как показано ниже:

Sub openworksheet()
    Dim path As String
    Dim file_name As String
    path = "C:\Users\u16086\Desktop\Folder"
    file_name = "test.xlsx"
    Workbooks.Open fileName:=path & "\" & file_name
End Sub