Dim
Exportfile
As
String
Dim
LastRow
As
Integer
Dim
iRow
As
Integer
Dim
iCol
As
Integer
Dim
ExportDatei
Dim
Export_TXT
As
String
Exportfile =
"C:\WSWIN\ws_merge.csv"
ExportDatei = FreeFile
LastRow = ActiveSheet.UsedRange.Rows.Count
Open Exportfile
For
Output
As
#ExportDatei
For
iRow = 1
To
LastRow
For
iCol = 1
To
ActiveSheet.UsedRange.Columns.Count
Export_TXT = Export_TXT &
CStr
(ActiveSheet.Cells(iRow, iCol).Text) &
","
Next
iCol
Export_TXT = Left(Export_TXT, Len(Export_TXT) - 1)
Print #ExportDatei, Export_TXT
Export_TXT =
""
Next
iRow
Close #ExportDatei
ActiveWorkbook.Close savechanges:=
False
Application.OnTime Now + TimeSerial(0, 5, 0),
"PERSONAL.XLSB!envoy"
End
Sub