Witam!
Chciałem dokonać importu danych z pliku Excela (.xslx) do pliku Accessa przy pomocy języka VBA. Wszystkich operacji chcę dokonać w Accesie i o ile to możliwe, to w ogóle nie otwierać Excela (jedynie pobrać dane). Szukałem trochę w sieci i z tego co udało mi się znaleźć, to pierwszym co należy zrobić jest zadeklarowanie kilku zmiennych (np. Workbook lub Excel.Workbook, Worksheet itp). Kłopot polega na tym, że podczas deklaracji (np. Dim wb As Workbook) kompilator zwraca mi komunikat:
User-defined type not defined
Ktoś wie czym to jest spowodowane i jak temu zaradzić. Byłbym bardzo wdzięczny za radę lub przykładowy kod pobierający dane z pierwszej komórki Excela i wyrzucający je w MsgBox.
W sumie to już sobie z tym problemem poradziłem.
Rozwiązanie:
Dim WrksheetName As String
Dim i As Integer
Dim xl As Object
Set xl = CreateObject("Excel.Application")
xl.Visible = False
xl.Workbooks.Open "C:\Documents and Settings\amg\My Documents\Cookie Monster\InputTest.xlsx"
.......
Ale napotkałem kolejny problem. Otóż chciałbym skopiować wszystkie dane z Excela do mojej bazy danych. Wiem, że istnieje wbudowana funkcja, która to robi, ale chciałbym kopiować tylko część danych, a co za tym idzie mieć dostęp do poszczególnych komórek. Jeżeli ktoś jest mi w stanie pomóc to będę wdzięczny.
Z góry dziękuję za pomoc |