открыть закрытый wb в пути, имя файла "Quote #" и диапазон ячеек активного листа "h5" .value.xlsx

Question

Я долго искал безуспешно, чтобы запустить макрос, чтобы открыть определенную ВБ.Любая помощь будет принята с благодарностью.

'Opens Ref. Quote
Dim H As Range
Set H = Range("H4")
If H = "" Then
Dim wb As Workbook
Dim ps As Workbook
Dim Path As String
Dim file_name As Range
Path = "U:\V3.5.0\QUOTES\"
file_name = "QUOTE#" & "H" & (".xlsx")
wb.Open

Answer 1

Sub RETRIEVE_QUOTE () 'Проверяет, введена ли кавычка # Application.ScreenUpdating = False Dim H Как установлен диапазон H = Диапазон ("H4") Если H.Value = "" Тогда MsgBox "Пожалуйста, введите кавычку #!"Exit Sub End If 'Проверяет, введен ли PO # Dim R Как установлен диапазон R = Range ("H5") Если R.Value = "" Тогда MsgBox "Пожалуйста, введите PO #!"Exit Sub End If 'Проверяет, введена ли DUE DATE Dim D Как установлен диапазон D = Range ("H6") If D.Value = "" Тогда MsgBox "Пожалуйста, введите DUE DATE!"Exit Sub End If 'Открывает Ref.Цитировать, если H.Value <> "" Тогда Dim Path As String Path = "U: \ V3.5.0 \ QUOTES \" Dim file_name As String file_name = "QUOTE #" & H.Value & ".xlsx" Книги. Открытое имя файла: = (Путь и имя_файла) End If

Answer 2

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

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

Dim H As Range
Set H = Range("H4")

If H.Value <> "" Then

    Dim Path As String
    Path = "U:\V3.5.0\QUOTES\"

    Dim file_name As Range
    file_name = "QUOTE#" & H.Value & ".xlsx"

    Dim wb As Workbook
    Set wb = wb.Open(path & file_name)

End If