Nach Access OK - Aber immer andere Tabelle?
04.09.2003 01:03:09
Karsten
ich arbeite schon den ganzen tag an einem problem.
und zwar habe ich ein macro das immer eine andere
csv datei aus einem ordner öffnet, diese formatiert und
ausdruckt (inventurbeleg). unteranderem wird ein teil der gerade geöfneten csv datei mit auf das blatt geschrieben. diese zahl zb. 123 (steht in zelle J1)möchte ich nun immer
in eine access datenbank schreiben. ich probiere dies mit diesem code:
Dim DB As DAO.Database
Dim Rs As DAO.Recordset
Set DB = DBEngine.OpenDatabase("c:\Inventur\database\inventur.mdb", False, False, ";pwd=")
Set Rs = DB.OpenRecordset("eingang", dbOpenDynaset)
With Rs
.AddNew
' nun muss ich jeweils den richtigen namen des tabellenblattes einsetzen
' und das ist das eigentliche problem weil der ja immer der der gerade
' geöfneten csv datei ist
!Datein = Worksheets("????????????").[J1]
'wie kann ich diesen namen in einer variablen speichern und an obiger stelle
'wieder richtig so ausgeben das der wert "datein" nicht null bleibt?
.Update
End With
DB.Close
eventuell ist es noch einfacher zu lösen da ich immer nur ein tabellenblatt
pro tabelle habe.
ich hoffe das ich mich einigermaßen verständlich ausgedrückt habe und
bedanke mich jetzt schon einmal bei jedem der sich über mein problem
gedanken macht.
gruß
karsten