Sheet-Export in txt - Speicherung mit 'now'
Dietmar
habe nachfolgenden Code hier (von Sepp) gefunden, der für meine Belange schon sehr gut ist.
Der Code überschreibt aber die bestehende Datei ständig. Ich möchte aber immer neu speichern,
wenn Datum und Zeit sich ändern (minutengenau).
Perfekt wäre folgende Anpassung:
1) Die txt soll nicht überschrieben werden, sondern fortlaufend minutengenau abgelegt werden.
2) Der name der txt-Datei soll sich aus dem Wort 'Sicherung', dem Inhalt von Tabelle1("A1") und dem aktuellen Datum mit Uhrzeit generieren.
Vielen vorab für jeden Tipp!
Viele Grüße
Dietmar
Sub exportFixedLength()
Dim strFile As String, strTmp As String * 30, strOut As String
Dim lngRow As Long, lngLastRow As Long, lngCol As Long, lngLastCol As Long
Dim FF As Integer
' HIER VERMUTLICH DIE ANPASSUNG:
strFile = "C:\Testumgebung\Testordner1\Sicherung.txt" 'Speicherort und Dateiname
With Sheets("Tabelle2")
lngLastRow = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
lngLastCol = .UsedRange.SpecialCells(xlCellTypeLastCell).Column
FF = FreeFile
Open strFile For Output As #FF Len = lngLastCol * 30
For lngRow = 1 To lngLastRow
strOut = ""
For lngCol = 1 To lngLastCol
strTmp = .Cells(lngRow, lngCol).Text
strOut = strOut & strTmp
Next
Print #FF, strOut
Next
Close FF
End With
End Sub