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

'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
0
Pancho Friessen 26 Сен 2018 в 03:51

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
0
Scott Holtzman 26 Сен 2018 в 01:20

Sub RETRIEVE_QUOTE () 'Проверяет, введена ли цитата № Application.ScreenUpdating = False Dim H As Range Set H = Range ("H4") If H.Value = "" Then MsgBox "Пожалуйста, введите цитату №!" Exit Sub End If 'Проверяет, введен ли PO # Dim R As Range Set R = Range ("H5") If R.Value = "" Затем MsgBox "Пожалуйста, введите PO #!" Exit Sub End If 'Проверяет, введена ли DUE DATE. DIM D As Range Set D = Range ("H6") If D.Value = "" Then MsgBox "Пожалуйста, введите DUE DATE!" Exit Sub End If 'Opens Ref. Цитировать, если H.Value <> "" Then Dim Path As String Path = "U: \ V3.5.0 \ QUOTES \" Dim file_name As String file_name = "QUOTE #" & H.Value & ".xlsx" Workbooks.Open filename : = (Путь и имя_файла) Конец Если

0
Pancho Friessen 26 Сен 2018 в 18:14