Открытие листа Excel нажатием кнопки

Private Sub Command1_Click()
 
    Dim xlApp As Excel.Application
    Dim xlWB As Excel.Workbook
    Dim xlWS As Excel.Worksheet
 
    Set xlApp = New Excel.Application
    Set xlWB = xlApp.Workbooks.Add
    Set xlWS = xlWB.Worksheets.Add
    
'Кое-что запишем, епсли надо
    xlWS.Cells(2, 2).Value = "hello"
    xlWS.Cells(1, 3).Value = "World"
    xlApp.Visible = True
' Можно сохранить и выти
'    xlWS.SaveAS "c:\mysheet.xls"
'    xlApp.Quit
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
' Free memory
    Set xlWS = Nothing
    Set xlWB = Nothing
    Set xlApp = Nothing
End Sub

Private Sub Command1_Click()
 
    Dim xl As New Excel.Application
    Dim xlw As Excel.Workbook
 
    ' Открываем файл
    Set xlw = xl.Workbooks.Open("c:\myDir\book1.xls")
 
    ' Переименовать  "Sheet1"
    xlw.Sheets("Sheet1").Select
 
    ' Выбираем значение
    MsgBox xlw.Application.Cells(2, 3).Value
 
    ' Закрываем
    xlw.Close False
 
    ' Освобождаем memory
    Set xlw = Nothing
    Set xl = Nothing
 
End Sub

 xlw.Application.Sheets.PrintOut

Private Sub Command1_Click()
 
    Dim xl As New Excel.Application
    Dim xlw As Excel.Workbook
 
    ' Открываем файл
    Set xlw = xl.Workbooks.Open("c:\mysheet.xls")
    Set xlSH = xlw.Worksheets("Лист2") ' Выбираем нужный лист документа
    xlSH.PrintOut ' Печатаем выбранный лист
    ' Закрываем если надо
    'xlw.Close
    'Выходим из  excel (закроются все рабочие книги)
    'xl.Quit
    Set xlw = Nothing
    Set xl = Nothing
End Sub

xlw.Worksheets(2).PrintOut From:=1, To:=3, Copies:=4, Preview:=False, _
    ActivePrinter:="Microsoft XPS Document Writer", PrintToFile:=False, Collate:=False, PrToFileName:=vbNullString

Dim xl As New excel.Application
Dim xlw As excel.Workbook
Private Sub Command1_Click()
If a = 0 Then
With Form2.Data1
    .Recordset.AddNew
    .Recordset("Фамилия") = Text1.Text
    .Recordset("Имя") = Text2.Text
    .Recordset("Отчество") = Text3.Text
    .Recordset("Номер паспорта") = Text4.Text
    .Recordset("Телефон") = Text5.Text
    .Recordset.Update
End With
    Text1.Locked = True
    Text2.Locked = True
    Text3.Locked = True
    Text4.Locked = True
    Text5.Locked = True
Else
    Text1.Locked = True
    Text2.Locked = True
    Text3.Locked = True
    Text4.Locked = True
    Text5.Locked = True
End If
End Sub
 
Private Sub Command2_Click()
    With Form2.Data1.Recordset
    .MoveLast
    .Delete
    .MovePrevious
    End With
    Text1.Locked = False
    Text2.Locked = False
    Text3.Locked = False
    Text4.Locked = False
    Text5.Locked = False
End Sub
 
Private Sub Command3_Click()
    a = 1
    Form4.Hide
    Form2.Show
    Form2.Command1.Visible = True
    Form2.Command2.Visible = False
    Form2.Command4.Visible = False
End Sub
 
Private Sub Command4_Click()
'печать листа
Set xlw = xl.Workbooks.Open("D:\DP2013\dog.xls")
xlw.Sheets("Лист1").Select
xlw.PrintOut
End Sub
 
Private Sub Command5_Click()
    'oткрытие екселя
    Set xlw = xl.Workbooks.Open("D:\DP2013\dog.xls")
    'выбор листа
    xlw.Sheets("Лист1").Select
    'запись данных
    xlw.Application.Cells(1, 1).Value = Text1.Text
    xlw.Application.Cells(1, 2).Value = Text2.Text
    xlw.Application.Cells(1, 3).Value = Text3.Text
    'показ екселя
    xl.Visible = True
    Set xlw = Nothing
    Set xl = Nothing
End Sub
 
Private Sub Form_Load()
a = 0
End Sub

Set xlw = xl.Workbooks.Open(App.Path & "\mysheet.xls")

' Настройка принтера
    With xl
         .EnableEvents = False
         'Здесь Вы можете выполнить нужные действия
         .Dialogs(xlDialogPrint).Show Arg4:=1, Arg12:=1
         .EnableEvents = True
    End With

' Предпосмотр
    With xl
         .EnableEvents = False
         .ActiveSheet.PrintPreview
         .EnableEvents = True
    End With