вторник, 15 июня 2010 г.

CreateObject("Excel.Application") 

Private Sub Command1_Click()
    Dim objExcel As Object
     Set objExcel = CreateObject("Excel.Application")
    objExcel.Visible = True
    
    objExcel.WorkBooks.Open ("D:\K.xls")
     Call objExcel.Run("Лист1.TEST")
End Sub
Автор: на

Комментариев нет:

Отправить комментарий

Подписаться на: Комментарии к сообщению (Atom)