Перенос данных из Excel в Access

Тема в разделе "Visual Basic", создана пользователем LandiSH, 13 июн 2010.

Статус темы:
Закрыта.
  1. LandiSH

    LandiSH Гость

    Проблема ни в том ,чтобы перенести все данные. У меня в Excel полностью со всеми данными набран баланс фирмы. Мне надо его проанализировать, но результат анализа и сам процесс анализа должен происходить в Access. Т.е. грубо говоря мне надо написать нечто следующее:

    Надпись 1 = с:\трампарампапам\1.xls\Ячейка такая то \Лист такой-то

    Всю эту радость мне надо написать с помощью VBA, кто-нибудь знает как это делается?
     
  2. Tanya

    Tanya Гость

    Код (LotusScript):
    Private Sub Form_Load()

    Const STR_PATH As String = "с:\трампарампапам\1.xls"
    Dim x As Object
    Dim sh As Object


    On Error Resume Next
    Set x = GetObject(, "Excel.Application")

    If Err Or x Is Nothing Then

    Err.Clear
    Set x = CreateObject("Excel.Application")

    If Err Or x Is Nothing Then
    Call MsgBox("Подключения к Excel нет", vbCritical)
    Exit Sub
    End If

    End If

    Set sh = x.Workbooks.Open(STR_PATH)
    If Err Or sh Is Nothing Then
    MsgBox "Книга '" & STR_PATH & " не существует!", vbCritical
    x.Quit
    Set x = Nothing

    Exit Sub
    End If

    Me.Надпись1.Caption = sh.worksheets(1).Range("A1").Value

    Set sh = Nothing
    x.Quit
    Set x = Nothing

    End Sub
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей