Mam taki kod. on pobiera dane z excella i tworzy nową tabele accesową wklejając dane pobrane z excella przy czym nagłówki z excella wstawia jako kolejne rekordy i nie potrafie przekształcić tego kodu żeby nagłówki z excella nadpisywał mi w bazie accesowej. ewentualnie jeśli znacie kod który by mi nadpisywał tabele accesową danymi z excella to by mnie też zadawalało. mój plik excellowy nie ma żadnych zabezpieczeń.
Sub ImportImex1()
On Error GoTo ImportImex1_Error
Dim strSql
strSql = "SELECT * INTO tblxxxx FROM [Excel 8.0;HDR=NO;IMEX=1;DATABASE=" & SciezkaPlikXls & ";].[Arkusz2$A:A]"
Dim db As DAO.Database
Set db = CurrentDb
db.Execute strSql, dbFailOnError
ImportImex1_Exit:
On Error Resume Next
'----------
Set db = Nothing
Exit Sub
ImportImex1_Error:
MsgBox "Błąd : ( " & Err.Number & " ) " & Err.Description & vbCrLf & _
"Procedura : " & "ImportImex1", vbExclamation
Resume ImportImex1_Exit
End Sub
proszę o pomoc
Z góry dzięki
Pozdrawiam Serdecznie |