Temat: Transfer danych: Access -> Excel

Przykładowy kod importujący dane z tabeli Access'owej (wykorzystanie ADO).

Sub transfer_from_access()

Dim rsData As ADODB.Recordset

Set rsData = New ADODB.Recordset

rsData.Open "SELECT * FROM JAKAS_TABELA", _

"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=<ścieżka do jakieś bazy>;Persist Security Info=False;Jet OLEDB:Database Password=<hasło>" _

, adOpenForwardOnly, adLockReadOnly, adCmdText

If Not rsData.EOF Then

    ThisWorkbook.Worksheets(1).Range("A1").CopyFromRecordset rsData

End If

rsData.Close

Set rsData = Nothing

End Sub

Uwagi/usprawnienia mile widziane.

W wolnej chwili dorzucę kod wykorzystujący QueryTable.

Pozdrawiam,
Marcin

Temat: Transfer danych: Access -> Excel

http://www.ozgrid.com/forum/showthread.php?t=31827&page=1

tu jest ciekawy przykład
po pierwsze korzysta z Querytable, po drugie wypełnia takie obiekt bezpośrednio recordsetem

tak na marginesie Querytable może równie dobrze sam wpiąć się w dane jak mu podamy connectionstring i commandtext

Temat: Transfer danych: Access -> Excel

'Maciej Kraszewski edytował(a) ten post dnia 02.04.12 o godzinie 09:15

Temat: Transfer danych: Access -> Excel

siemka,
ja mam taka ciekawa zagwozdke :)

pojawil mi sie problem, ktory chyba nie powinien sie pojawiac, mam baze w accesie i jest podlaczony do niej plik excela w wersji xlsx
jezeli odpalam ja u siebie na excelu 2010 odpala sie, aktualizuja sie dane, zapisuje sobie i wychodze
nastepnie odpalam na innym kompie tez z excelem 2010, jest OK
pozniej wracam do siebie odpalam i ... ZONK - wyskakuje info czy chce sie podpiac do bazy ... a jak klikam ze tak to wyskakuje: Could not find installable ISAM
wykasowalem z Connection String wpis: Jet OLEDB:Bypass UserInfo Validation=False

teraz wyglada tak:

Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=c:\baza.accdb;Mode=Share Deny Write;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Engine Type=6;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False;Jet OLEDB:Bypass UserInfo Validation=False - znowu sie pojawia jak otwieram ...

nie wiem o co chodzi, jeden office to wersja PRO, drugi SMALL BUSINESS ale oba 2010 i nie moge na zmiane odpalac jednego pliku excela - bez sensu

jak podpialem sie nie przez Data->From Access tylko przez Microsoft Query to problem zniknął - może komus to pomoże w odpowiedzi na moje pytanie

nie wiem - moze jest inna opcja podpiecia
musze zrobic tak by kilka osob moglo korzystac z jednek bazy danych w accesie, niektore z tych osob beda otwieraly ten sam plik oczywiscie nie naraz tylko pojedynczo ..

dzieki za ew pomoc