TXT Export
06.10.2016 08:19:44
Roland
Vielleicht kann mir Jemand Helfen.
Habe foglenden Code mit Forumshilfe gebastelt, und wenn ich diesen ausführe wird nur die erste Zeile von Tabelle "ACAD" in eine Textdatei exportiert, ich brauche aber Zeile 1 und 2
Sub TXTspeichern()
'___Das aktuelle Blatt als TXT Datei abspeichern
'___Modifizierter Code von Herber - 19198
Dim Bereich As Range
Dim iRow As Integer, iCol As Integer
Dim Zeilen As Long, Spalten As Integer
Dim sTxt As String
Dim Verzeichnis As String
Dim Datei As String
Worksheets("ACAD").Activate
Range("ACADSCHRIFTKOPF").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Verzeichnis = ActiveWorkbook.Path & "\"
Datei = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & "ACAD-Schriftkopf.txt"
'___Zieldatei befüllen
Close
Open Verzeichnis & Datei For Output As #1
On Error GoTo 0
Set Bereich = Range("ACADSCHRIFTKOPF").CurrentRegion
Spalten = Intersect(Bereich.SpecialCells(xlVisible), Bereich.Rows(1)).Count
Zeilen = Intersect(Bereich.SpecialCells(xlVisible), Bereich.Columns(1)).Count
For iRow = 1 To Zeilen
For iCol = 1 To Spalten
sTxt = sTxt & Cells(iRow, iCol).Text & vbTab
Next iCol
'___letztes Trennzeichen entfernen
sTxt = Left(sTxt, Len(sTxt) - 1)
Print #1, sTxt
sTxt = ""
Next iRow
'MsgBox "Die Datei " & Datei & " wurde im gleichen Verzeichnis erstellt!"
Worksheets("Checkliste Technik").Activate
End Sub Wenn ich den Code beim Schließen ausführe:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Call Modul2.TXTspeichern
End Sub
Kann mir da irgend jemand helfen?
Bin für jeden Rat dankbar!