Hm...to nie jest podpucha, powaznie szukam pomocy.

Szukam makra VB dla MS Access - taki sobie automacik, który kopiuje zakres komórek aktualnie otwartego skoroszytu Excel (ActiveWorkBook) i dodaje te dane jako nowy rekord do istniejącej tabeli Access.

Niby proste a jakoś mnie zmęczyło. Macie może jakieś (same i tylko wyłącznie dobre) pomysły?

<dodam, że wewn. makro TransportArkusza i polecenie Importuj nie wchodzą w grę>

Z góry dzięki i pzdr

Ja to robię właśnie przez Import, tyle że odwrotnie - uruchamiam całą akcję z Accessa, wybieram arkusz i dołączam dane do tabeli. Nie jest to trywialne zadanie, bo po drodze sprawdzam jeszcze poprawność danych

Zainteresuj się ADO I nie sądzę, żeby to się dało zrobić inaczej jak jadąc komórka po komórce

nie da sie tak

Etam się nie da, wszystko się da:

Private Sub Polecenie121_Click()

On Error GoTo Makro1_Err

Dim ex As Object
Set ex = GetObject(, "Excel.Application")

ex.Range("P2:BB2").Select
ex.Selection.Copy

DoCmd.OpenTable "TabWnioski", acNormal, acEdit
DoCmd.GoToRecord acTable, "TabWnioski", acNewRec

DoCmd.RunCommand acCmdPasteAppend

DoCmd.Close acTable, "TabWnioski"
DoCmd.Close acForm, "FormDodajWniosek"
DoCmd.OpenForm "FormDodajWniosek", acNormal, "", "", , acNormal
DoCmd.GoToRecord acForm, "FormDodajWniosek", acLast
DoCmd.SelectObject acForm, "FormDodajWniosek", False

Makro1_Exit:
Exit Sub

Makro1_Err:
MsgBox Error$
Resume Makro1_Exit

End Sub