title image


Smiley Aus Access2010 eine Tabelle in *.TXT abspeichern

Hallo liebe VBA-Spezies,

ich habe eine Access 2010 Datenbank, aus der ich per VBA Tabellen im *.TXT-Format abspeichere. Ich nutze eine Routine für unterschiedliche Tabellen. Dies hat auch soweit sehr gut funktioniert.

Bisher waren alle Spalte in den zu exportieren Tabellen Text-Spalten. In einer neuen Tabelle existiert nun eine Memo-Spalte. Wegen dieser Spalte scheint mein Makro nicht mehr zu funktionieren. Denn ich bekomme folgende Fehlermeldung:

 

Das Microsoft Access-Datenbankmodul konnte das Objekt 'SST....#txt' nicht finden. Stellen Sie sicher, dass das Obejkt vorhanden ist ....

 

So sieht mein Quell-Code aus:

 

Exportdateiname = InputBox("Bitte bestätigen oder ändern Sie den vorgeschlagenen Namen der Testdatei!!", "----Eingabeaufforderung-----", stDocName & "-" & Format$(Year(Date), "0000") & Format$(Month(Date), "00") & "-Testdatei") ExportdateinameTxt = Exportdateiname & ".txt" 'Prüfe ob Ordner für Testdatei bereits vorhanden, wenn nicht erstelle diese If Dir(Me!Quellverzeichnis & "\Testdateien_" & Year(Date) & Month(Date) & Day(Date), vbDirectory) = "" Then MkDir Me!Quellverzeichnis & "\Testdateien_" & Year(Date) & Month(Date) & Day(Date) End If 'Abfangen eines doppelten Slashes, nicht unbedingt erforderlich If (Right(Me!Quellverzeichnis, 1) = "\") Then DoCmd.TransferText acExportFixed, Exportstring, stDocNameTmp, Me!Quellverzeichnis & "Testdateien_" & Year(Date) & Month(Date) & Day(Date) & "\" & ExportdateinameTxt Else DoCmd.TransferText acExportFixed, Exportstring, stDocNameTmp, Me!Quellverzeichnis & "\Testdateien_" & Year(Date) & Month(Date) & Day(Date) & "\" & ExportdateinameTxt End If

 

Hinweis: Lasse ich das Programm Schritt für Schritt durchlaufen, ist in der Variable "ExportdateinameTxt" die Ende "*.txt" enthalten.

 

Was könnte hier falsch sein?

Vielen Dank für wertvolle Tipps.

Gruß kleiner-Riese 



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: