Hallo, ich habe leider keinerlei Erfahrung mit VBA und versuche mich nun für ein Projekt an diese Sache. (wurde ins eiskalte wasser geschmissen)
Ich schildere mal mein Ziel:
Ich habe eine Abfrage in Access erstellt, mit der ich alle Tabellen aus der aktuellen DB anzeige.
Die Tabellen die nicht angezeigt werden sollen starten mit "CST-". Diesen Selektion habe ich natürlich hinbekommen.
Nun möchte ich über VBA (mittels Button in einer FORM) alle selektierten Tabellen aus dem query (also alle Tabellen die nicht "CST-*" sind) als CSV exportieren.
Der Export für ALLE tabellen gelingt mir, jedoch nicht für die Selektion.
mein Code
Private Sub Command0_Click()
Dim AktTable As TableDef
Dim i As Integer
i = 0
For Each AktTable In CurrentDb.TableDefs
If AktTable.Attributes = 0 Then
DoCmd.TransferText acExportDelim, acFormat, _
AktTable.Name, _
"C:\" & AktTable.Name & ".csv", True, ""
i = i + 1
End If
Next AktTable
MsgBox (i & "CSV's " & "created")
End Sub |