Wie kann ich per Makro die Spalten A-H als Textdatei speichern. Die Datei hat einen genauen Namen und Pfad und soll jedesmal überschrieben werden.
Wie geht das?
Grüße,
Daniel
Sub SpaltenSpeichern()
Const fn = "D:\SpalteA-H.txt" 'Dateiname
Dim sh1 As Worksheet
Dim sh2 As Worksheet
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
Set sh1 = ActiveSheet
Workbooks.Add
Set sh2 = ActiveWorkbook.Sheets(1)
sh1.Range("A:H").Copy sh2.Range("A:H")
With ActiveWorkbook
.SaveAs Filename:=fn, FileFormat:=xlTextWindows
.Close False
End With
With Application
.ScreenUpdating = True
.DisplayAlerts = True
End With
End Sub
Sub SpaltenSpeichern()
Const fn = "D:\SpalteA-H.txt" 'Dateiname
Dim sh As Worksheet
Dim Bereich As Range
Dim Zeile As Range
Dim Zelle As Range
Dim s As String
Dim ff As Integer
Set sh = Sheets("Aufträge1")
Set Bereich = Intersect(sh.UsedRange, sh.Range("A:H"))
ff = FreeFile
Open fn For Output As ff
For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
s = s & Zelle.Text & vbTab
Next
Print #ff, Left(s, Len(s) - 1) 'letzten [TAB] abschneiden
s = ""
Next
Close ff
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen