tabellenblat abspeichern , als trennzeichen
21.02.2007 21:22:00
Swen
ich habe folgenden code aus dem forum,
Sub TabellezuCad()
'am 20.02.2007 überarbeitet
Dim smsg As String, spath As String
Dim iCol As Integer, iRow As Long, strTmp As String
If Worksheet_suchen("cad") = True Then
Worksheets("cad").Select
smsg = "Wo soll die Datei abgelegt werden ?"
spath = ordner(smsg)
If spath <> "" Then strTempFolder = spath
strName = Worksheets("Coordinates").Cells(1, 7).Value
'** Es wird eine Tabelle in eine cad/txt Datei gespeichert
Open strTempFolder & strName & ".cad" For Output As #1
With ThisWorkbook.Sheets("cad")
For iRow = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
strTmp = ""
For iCol = 1 To .Cells(iRow, Columns.Count).End(xlToLeft).Column
strTmp = .Cells(iRow, iCol) & vbTab
Next iCol
strTmp = Left(strTmp, Len(strTmp) - 1)
Print #1, strTmp
Next iRow
End With
Close #1
End If
End Sub
diesen verstehe ich aber noch nicht!
Ich möchte diesen gerne dahin gehend ändern das die datei gespeichert wird und
das trennzeichen ein , ist!
Wie muss ich diesen code ändern und kann mir evtl. jemand den einen oder
anderen kommentar in den code zur erklärung dzu schreiben.
vielen dank!
gruß
swen