VBA: Einzelnes Blatt aus Datei speichern, ggf. Txt

Sub SaveLog() Dim varPath As String varPath = "H:\My Files\" & Format(Now, "yyyymmdd-hhmmss") & "_" & Environ("Username") ActiveWorkbook.SaveAs Filename:=varPath, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub t() Dim strPath As String, iZeile As Long 'strPath = "H:\My Files\" & Format(Now, "yyyymmdd-hhmmss") & "_" & Environ("Username") & ".txt" strPath = ThisWorkbook.Path & "\test.txt" Open strPath For Output As #1 With Worksheets("Tabelle2") For iZeile = 1 To .Cells(Rows.Count, 1).End(xlUp).Row Print #1, .Cells(iZeile, 1) Next iZeile End With Close #1 End Sub

Hi,
das sieht dann z.B. so aus:

' allg. Modul, z.B. Modul1
Option Explicit
Function CSV_Erzeugen(Bereich As Range, Pfad$, t1$, t2$) As String
Dim aSp           ' ohne Angabe = as variant, unten als Array
Dim z&, s&        ' & = as long z wie Zeile, s wie Spalte
Dim st$           ' $ = as string, st wie string für Ausgabe
Dim maxZ&, maxS&  ' Anzahl Zeilen und Spalten
Dim d As Integer  ' d wie Dateinummer
On Error GoTo fehler
aSp = Bereich
maxZ = UBound(aSp)
maxS = UBound(aSp, 2)
For z = 1 To maxZ
For s = 1 To maxS
st = st & aSp(z, s) & t2 ' bei nur einer Spalte Aufruf mit t2=""
Next
st = st & t1      ' Zeilenschaltung, i.a. vbCrLf
Next
' statt For-Schleife kannst Du auch mal join() testen
d = FreeFile
Open Pfad For Output As #d
Print #d, st
Close #d
fehler:
If Err.Number  0 Then CSV_Erzeugen = Err.Description Else CSV_Erzeugen = "ok"
End Function
Sub aufruf()
Dim Pfad$, Ergebnis$
Dim Bereich As Range
' "H:\My Files\" & Format(Now, "yyyymmdd-hhmmss") & "_" & Environ("Username")
Pfad = ThisWorkbook.Path & "\"
Pfad = Pfad & Format(Now, "yyyymmdd-hhmmss") & "_" & Environ("Username") _
& ".csv" ' oder .txt oder wie auch immer
With Sheets("Tabelle2")
Set Bereich = .Range("A1", .Cells(.Rows.Count, 1).End(xlUp))
End With
'Variante mit Prüfung des Pfads
'If Dir(Pfad) = "" Then
'  Ergebnis = CSV_Erzeugen(Bereich, Pfad, vbCrLf,"")
'  If Ergebnis = "ok" Then
'     MsgBox "Datei " & Pfad & " wurde erzeugt"
'    Else
'     MsgBox "Fehler: " & Ergebnis
'  End If
' Else
'  MsgBox "Datei bereits vorhanden"
'End If
' *** oder ganz einfach:
MsgBox CSV_Erzeugen(Bereich, Pfad, vbCrLf, "")
' Trennen z.B. mit: vblf, vbcr oder vbcrlf
End Sub

Schöne Grüße,
Michael

Hi Max
Natürlich konnte ich es nicht lassen die Antwort zu suchen:
FreeFile:
https://activevb.de/tutorials/tut_text/textdateien.html
Liefert eine freie Dateinummer. Eine Dateinummer benötigt man beim öffnen eine Datei um den Datenkanal später eindeutig identifizieren können. Jede Dateioperation auf die Datei bezieht sich dann auf die Dateinummer.
FileNumber:
https://msdn.microsoft.com/en-us/library/office/gg264163.aspx
Required. A valid file number in the range 1 to 511, inclusive. Use the FreeFile function to obtain the next available file number.
https://msdn.microsoft.com/en-us/library/office/gg264568.aspx
Number used in the Open statement to open a file. Use file numbers in the range 1255, inclusive, for files not accessible to other applications. Use file numbers in the range 256511 for files accessible from other applications.
Und weil es fast immer nur eine Dateinummer auf einmal braucht, ist die Dateinummer fast immer #1 :)
cu
Chris

Beliebteste Forumthreads (12 Monate)

VBA: Einzelnes Blatt aus Datei speichern, ggf. Txt

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

336 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA: Einzelnes Blatt aus Datei speichern, ggf. Txt

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

336 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread