Закрыть открыть книгу

[segail]

Здравствуйте.

У меня не получается после сохранения и нажатие на кнопку, ОК сообщения, закрыть сохраненный файл и открыть файл V_ГСМ. Xls
Подскажите кто знает.

    Application.DisplayAlerts = False
    ThisWorkbook.SaveAs folder & "\" & Cells(9, 1) & ".XLSX", 51, ConflictResolution:=xlLocalSessionChanges
    MsgBox "  Данные сохранены в папке  V ГСМ " & Sheets("Отчет").Range("R1") & " имя файла " & Range("A9"), 64, "Сохранение данных"
       Shell "C:\Program Files\IL vgsm\V ГСМ\V_ГСМ. xls", vbNormalFocus     
 Application.DisplayAlerts = True

[Teslenko_EA]

Здравствуйте segail.
всему виной логика и конструктивные ошибки.
ThisWorkbook.Save сохраняет текущий файл код которого выполняется, это о нем "... закрыть сохраненный файл..." (?), но если он закроется - выполнение его кода наверное прекратится, как Вы думаете?
попытка выполнить Shell
команда Shell запускает исполняемый программный файл, никак не документ Excel.
управление сохранением и закрытием документов должен выполнять код из совсем другого документа или надстройки, он же в состоянии будет открыть другую книгу в текущей сессии Excel:
Workbooks.Open "C:\Program Files\IL vgsm\V ГСМ\V_ГСМ. xls"
(мне кажется папка \Program Files\ не самым удачным местом для хранения документов, но это мое мнение...)
Евгений.

[segail]

В таком варианте вроде работает. Закрыть сохраненный файл в текущей книге. Затем открыть файл V_ГСМ и закрыть текущею книгу без сохранения.

    Application.DisplayAlerts = False
    
    ThisWorkbook.SaveAs folder & "\" & Cells(9, 1) & ".XLSX", 51, ConflictResolution:=xlLocalSessionChanges
    ThisWorkbook.SaveAs Rep_Documents & "\V ГСМ " & Sheets("Отчет").Range("R1") & "\" & Sheets("Отчет").Range("N1") & ".xls", 1, ConflictResolution:=xlLocalSessionChanges
    
    MsgBox "  Данные сохранены в папке  V ГСМ " & Sheets("Отчет").Range("R1") & " имя файла " & Range("A9"), 64, "Сохранение данных"
    Workbooks.Open Filename:="C:\Program Files\IL vgsm\V ГСМ\V_ГСМ. xls"
    ThisWorkbook.Close (False) 'без сохранения изменений

    Application.DisplayAlerts = True

Ярлык файла V_ГСМ.xls находится на рабочем столе. Почему Прог.файл не самый удачный вариант?

[Teslenko_EA]

судя по коду (без фразы "Закрыть сохраненный файл в текущей книге") конечно будет работать, ведь исправленная последовательность действий - сохранение > закрытие > открытие ("закрыть сохраненный файл и открыть файл..." ) заменена - сохранение > открытие > закрытие и стала логичной(!).

У системной папки \Program Files\ специальное назначение - место установки программ. персональные настройки этих программ, документы и шаблоны располагаются в профиле пользователя. Так уж повелось, что мыльницу не вешают в корридоре, а хлебницу не ставят в туалете. Или Вы думаете иначе?
Евгений.

[segail]

Здравствуйте

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

[Teslenko_EA]

Здравствуйте segail.
"Автоматическое" открытие формы при открытии файла будет выполняться если в модуле открываемой книги разместить подобный код:

Private Sub Workbook_Open()
    UserForm1.Show
End Sub

Евгений.

[Teslenko_EA]

Здравствуйте segail.
"Автоматическое" открытие формы при открытии файла будет выполняться если в модуле открываемой книги разместить подобный код:

Private Sub Workbook_Open()
    UserForm1.Show
End Sub

Евгений.

[segail]

В текущем листе размещен еще данный код

Sub Кнопка1_Щелчок()
    If Sheets("Отчет").Range("N1") = "" Or Sheets("Отчет").Range("R1") = "" Then ' Если в ячейки N1 и R1 нет значений
        UserForm3.Show
    Else
        UserForm1.Show
    End If
End Sub

Как все это совместить?

[EducatedFool]

Private Sub Workbook_Open()
    If Len([Отчет!N1]) * Len([Отчет!R1]) Then  ' Если в ячейке N1 или R1 нет значений
        UserForm1.Show
    Else
        UserForm3.Show
    End If
End Sub

[segail]

У меня немного не так, выполняется код с условиями.

Private Sub CommandButton1_Click() ' Ваш код
    path = CreateObject("WScript.Shell").SpecialFolders("MyDocuments") & "\" & UserForm3.Caption & "\" & ComboBox_Marka.Text & ".xls"
    If ComboBox_Marka.Text = "" Then
    MsgBox "Введите данные по топливу.", vbInformation, "Информационное сообщение"
    Exit Sub
    Else
    On Error Resume Next
    Workbooks.Open (path)
    If Err.Number <> 0 Then
    If MsgBox("Внимание выбор марки топлива осуществляется на " & TextBox2.Text & " год. Продолжить выбор " & ComboBox_Marka.Text & "  ?", _
vbYesNo Or vbQuestion, "Выбор марки топлива") = vbYes Then GoTo wyhod
        ComboBox_Marka = ""
Else
       ThisWorkbook.Close (False)
        End If
        End If
        Exit Sub
wyhod:
        With Sheets("Отчет") ' Сгруппировано для наглядности
        .Range("A1") = TextBox1.Text
        .Range("R1") = TextBox2.Text
        .Range("N1") = ComboBox_Marka.Text
        End With
        Unload Me
        UserForm1.Show
End Sub

После выполнение команды Workbooks.Open (path) открыть путь книги (я так понимаю) открывается файл, вот после открытия данного файла необходимо открыть форму 1 данного файла.