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

  • Автор темы LandiSH
  • Дата начала
Статус
Закрыто для дальнейших ответов.
L

LandiSH

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

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

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

Tanya

Гость
#2
Код:
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
 
Статус
Закрыто для дальнейших ответов.