Witam
Czy ktoś z was wie w jaki sposob dane z arkusza Excela przenieść do tabelki w Accessie?
Z góry dzięki za pomoc.
0
0
Tak, ten temat jest bardzo nietuzinkowy, jak na nietuzinkowe tematy... :) Chyba nie ten dział...?
0
Nie chodzi mi o zwykłe przepisywanie bo jest chyba z kilkanascie tysięcy pozycji.
Ja w Ofisie nie wymiatam,jesli wiesz jak to zrobić to mnie oświeć prosze.
0
Ctrl-C, Ctrl-V?
0
No cóż moja wina,że nie uściśliłęm o co dokładnie chodzi.W excelu nie mam bliżniaczej kopi tabeli .Rozumiem ,ze jest tu wielu zdolnych ludzi ale powyzsze posty naprawde nie wniosły nic konkretnego do tematu.Jesli ktos jest tym zainteresowany oto odpowiedz którą uzyskałem na innym forum:
Sub ToAccess()
Dim dbs As Database
Dim rst As Recordset 'tabela lub kwerenda
Dim zap As String 'nazwa tabeli
Dim i As Long
'tu możesz określić nazwę tablei lub
'zapytanie SQL, w przykładzie stosuję SQL
zap = "tabela"
On Error GoTo Err_ToAccess
i = 1
'otwórz bazę danych
'zmień ścieżkę dostępu
Set dbs = OpenDatabase(ThisWorkbook.Path & "\a.mdb"
Set rst = dbs.OpenRecordset(zap)
Do While ThisWorkbook.Worksheets("Arkusz1".Range("A" & i)
rst.AddNew
rst.Fields("Pole1" = ThisWorkbook.Worksheets("Arkusz1".Range("A" & i)
'rst.Fields("Pole2" = ThisWorkbook.Worksheets("Arkusz1".Range("B" & i)
rst.Update
i = i + 1
Loop
Exit_ToAccess:
On Error Resume Next
rst.Close
dbs.Close
Set rst = Nothing
Set dbs = Nothing
Exit Sub
Err_ToAccess:
Resume Exit_ToAccess
End Sub
0
ja myślałem, że wystarczy uruchomić accessa, wybrać Plik->Pobierz dane zewnętrzne->Importuj, wybrać plik Excela i działa, no ale skoro ktoś chce to zaprogramować...
0
Dobra juz na zakończenie tematu.Dane w Excelu były w formie surowej. Trzeba było wykonac na nich pewne operacje (np rozdzielić nazwisko i imię do dwóch komórek).Być moze da się to zrobić prosciej.
Samym importowanie nie udało się.
THE END