txt-Datei mit ;
04.09.2007 14:31:54
Felix
ich habe gestern folgenden Code bereitgestellt bekommen (ein wenig von mir abgeändert)
'' ##### Save generated paths as txt-file
If savecheckbox.Value = True Then
S2.Activate
Dim intFileNumber As Integer
Dim lngRow As Long
Dim vntArray As Variant
Dim strText As String
Const strPre As String = ";"
Reset
intFileNumber = FreeFile
With ThisWorkbook
.Save
Open filesavename For Output As #intFileNumber
End With
With ActiveSheet.UsedRange
For lngRow = 1 To .Row + .Rows.Count - 1
vntArray = Range(Cells(lngRow, 1), _
Cells(lngRow, .Column + .Columns.Count - 1))
vntArray = WorksheetFunction.Transpose( _
WorksheetFunction.Transpose(vntArray))
strText = Join(vntArray, strPre)
Print #intFileNumber, strText
Next
End With
Close #intFileNumber
S1.Activate
Else
End If
Dieser speichert das Worksheet S2 als txt-Datei, in dem alle Spalten mit ";" getrennt sind. Das klappt auch alles wunderbar. Problem ist nur, dass ich teilweise leere Zeilen habe, und diese dann mit z.B. ;;;;; gespeichert werden. Kann man das umgehen, so dass dort einfach nur eine Leerzeile ist?
Momentan:
A;1;2;3
;;;
C;1;2;3
So sollte es sein:
A;1;2;3
C;1;2;3
Irgendwie müsste ich im Array suchen und ersetzen machen, dann wäre es relativ einfach. Aber ich krieg es nicht hin. Wäre für jede Hilfe dankbar.
Gruß
Felix