Meine Bitte und Frage: Wie schaffe ich es, die Daten aus der Schleife nacheinander
in eine Textdatei zu schreiben? Der folgende Code gibt die Daten im VBA-Direktfenster aus und legt eine Textdatei an. Ich bin dann leider nicht weiter gekommen. Vielmals Dankeschön für Eure Unterstützung! U.
Dim cat As New ADOX.Catalog
Dim tbl As ADOX.Table
Dim i As Integer
Dim strtab As String
Dim objFSO As Object
Dim objFile As Object
Dim Spalte As String
cat.ActiveConnection = CurrentProject.Connection
Set tbl = cat.Tables("Tab_Test")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("D:\Users\UliBrenn\Desktop\Test
\ScriptLog.txt")
'Set objFile = objFSO.CreateTextFile("D:\Users\UliBrenn\Desktop\Test
\\ScriptLog.txt", False)
Set objFSO = CreateObject("Scripting.FileSystemObject")
With tbl
For i = 0 To .Columns.Count - 1
Debug.Print .Columns(i).Name
Debug.Print .Columns(i).Properties("Description")
Debug.Print .Columns(i).Type
Debug.Print .Columns(i).NumericScale
Debug.Print .Columns(i).Precision
Debug.Print .Columns(i).Attributes
Next i
End With
Set cat = Nothing