Используйте флажок, чтобы открыть другой файл Excel

Question

В настоящее время у меня есть 2 флажка, один из которых говорит «Сводка», а другой - «Разбивка».Когда пользователь устанавливает один или оба флажка, ему нужно открыть другой файл Excel с именами «Сводный шаблон» и «Шаблон разбивки» соответственно и в конечном итоге «Сохранить как» ИМЯ (ID).Как мне это сделать?Заранее спасибо!

If Summary Then
    Debug.Print "You Checked Summary"
    MyPath = "C:\Users\valerie\Desktop\"Summary Template.xlsx"
    Workbooks.Open (MyPath)
    'Am stuck here on how to save as file

ElseIf Breakdown Then
    Debug.Print "You Checked Breakdown"
    MyPath = "C:\Users\valerie\Desktop\"Breakdown Template.xlsx"
    Workbooks.Open (MyPath)

ElseIf Summary = 0 And Breakdown = 0 Then
    MsgBox "Please Select Report Type"
End If

Answer 1

Выполните следующие действия и прочитайте метод SaveAs :

Dim wb As Workbook

If Summary Then
    Debug.Print "You Checked Summary"
    MyPath = "C:\Users\valerie\Desktop\Summary Template.xlsx"
    Set wb = Workbooks.Open(MyPath) 'set workbook to a variable that you can use to access it

    wb.SaveAs FileName:="C:\Users\valerie\Desktop\XXXX.xlsx", FileFormat:=xlOpenXMLWorkbook
     'check documentation for how to use it.

ElseIf Breakdown Then
    Debug.Print "You Checked Breakdown"
    MyPath = "C:\Users\valerie\Desktop\Breakdown Template.xlsx"
    Set wb = Workbooks.Open(MyPath)

ElseIf Summary = 0 And Breakdown = 0 Then
    MsgBox "Please Select Report Type"
End If

Обратите внимание, что между вашим путем и именем файла (в вашем вопросе) должна быть добавлена ​​".