Открыть лист excel из формы

Question

Я создал форму с несколькими командами, которые открывают специфические рабочие листы. Проблема в том, что когда я открываю файл excel с помощью кнопки команды, если форма не скрыта, я не могу щелкнуть по открытому файлу (его не активировать)

Даже если я скрываю форму, мне нужно чтобы вручную перейти к этому файлу с панели задач, он не активируется.

Проблема заключается в том:

1. Я не хочу, чтобы моя форма будет скрыта, потому что я хочу, чтобы пользователь мог открыть несколько листов
2. Раскрытая лист не будет активизироваться.

Вот мой код:

Private Sub CommandButton1_Click() 
    Dim Wb As Excel.Workbook 
    Set Wb = Workbooks.Open(Filename:="D:/power system design/foo.xlsx", ReadOnly:=False) 
    UserForm1.Hide 
    Wb.Activate 
    Wb.Sheets("Sheet1").Cells(1, 1).Select 
End Sub 

Answer 1

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

Private Sub CommandButton1_Click() 
    Dim xls As Excel.Application 
    set xls = new Excel.Application 
    xls.Workbooks.Open "D:/power system design/foo.xlsx", ,False 
    xls.Visible = true 
End Sub 

или если вы хотите работать с открытой книгой

Private Sub CommandButton1_Click() 
    Dim xls As Excel.Application 
    Dim wb as Excel.Workbook 
    set xls = new Excel.Application 
    set wb = xls.Workbooks.Open(Filename:="D:/power system design/foo.xlsx", ReadOnly:=False) 
    xls.Visible = true 
End Sub 

Это приведет к лист открывается в новом окне приложения Excel.