Registerkarte exportieren
17.06.2013 12:11:03
Herbert
ich hatte vor ein paar Jahren Hilfe für den Export einer Registerkarte im .csv-Format. Die Werte wurden nach C:\temp geschrieben und mit Tabulator getrennt.
Nun wollte ich das gleich mit Semikolon-getrennten-Werten durchführen. Leider erscheint beim Ausführen des Buttons die Meldung "Typen unverträglich". Die Zeile " strTxt = Join(strTmp, strSep)" ist markiert.
Hier der urprüngliche Code mit Trenner Tabulator (wie heißt Semikolon?)
Private Sub CommandButton1_Click()
Dim strSep As String, strDat As String, _
iCols As Byte, iRows As Integer, _
iR As Long, strTxt As String, strTmp, _
strPfad As String
strPfad = "c:\temp\"
Reset
With ActiveSheet
iRows = .UsedRange.Rows.Count
iCols = .UsedRange.Columns.Count
strSep = vbTab
strDat = strPfad & ActiveSheet.Name & "_" & Format(Date, "YYYYMMDD") & ".csv"
Open strDat For Output As #1
For iR = 1 To iRows
strTmp = .Range(.Cells(iR, 1), .Cells(iR, iCols))
strTmp = WorksheetFunction.Transpose(WorksheetFunction.Transpose(strTmp))
strTxt = Join(strTmp, strSep)
Print #1, strTxt
Next iR
Close #1
End With
End Sub
Bin über jede Hilfe sehr dankbar.