Kак связать Visual Basic с Excel

[Vceznayka]

Помогите, как связать Excel с Visual Basic. У меня все данные находятся в таблицах Excel, до этого я работал только с VBA. В VB команда workbook не работает или я что то не так делаю.
И так необходимо чтобы в Label1 (форма в Visual Basic) заносились данные с ewsd.xslm / incident / A5

[EducatedFool]

В VB команда workbook не работает или я что то не так делаю

Добавляете в проект VB ссылку на библиотеку Microsoft Excel - и VB начинает понимать объектную модель Excel





workbook заработает только будучи связанной с объектом Excel.Application

Private Sub Form_Load()
    On Error Resume Next
    Dim cell As Range, wb As Workbook, XL As Excel.Application
    file$ = "C:\Documents and Settings\Admin\Рабочий стол\Гиперссылка.xls"
    Set XL = New Excel.Application
    Set wb = XL.Workbooks.Open(file$)
  '  Dim sh As Worksheet
  '  For Each sh In wb.Worksheets
  '      Debug.Print sh.Name
  '  Next sh
    Set cell = wb.Worksheets("Перечень абонентов").Range("d22")
    Me.Label1.Caption = cell
    wb.Close False
    XL.Quit
End Sub

[alex77755]

А будет ли така программа работать на компе где нет 14.0?
Попадались советы(и я им пользуюсь) Не ставить ссылку, а создавать объект. Тогда создастся установленны на компе

Private Sub Комманда1_Click()
   Set XL = CreateObject("Excel.Application")
        Set wb = XL.Workbooks.Open("C:\Гиперссылка.xls")
    XL.Visible = True
    ''' делаем
    wb.Close False
    XL.Quit
End Sub