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

Узнай цену своей работы

Формулировка задачи:

Помогите очень нужно сделать на форме кнопку по нажатию на которую открывался бы лист excel. За ранее спасибо

Решение задачи: «Открытие листа Excel нажатием кнопки»

textual
Листинг программы
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

Оцени полезность:

12   голосов , оценка 4.5 из 5
Похожие ответы