Thema Datum  Von Nutzer Rating
Antwort
Rot Bestimmte Tabelle als CSV UTF8 exportieren
03.09.2019 14:32:27 Stan
NotSolved
03.09.2019 15:05:59 Gast58946
NotSolved
03.09.2019 15:14:03 Gast28808
NotSolved
03.09.2019 15:50:06 Stan
NotSolved
03.09.2019 15:51:06 Stan
NotSolved
03.09.2019 16:05:24 Gast27126
NotSolved

Ansicht des Beitrags:
Von:
Stan
Datum:
03.09.2019 14:32:27
Views:
50
Rating: Antwort:
  Ja
Thema:
Bestimmte Tabelle als CSV UTF8 exportieren

Hallöchen ich hab hier  folgenden Code im Internet gefunden und wollte fragen wie es möglich ist nicht das Active Sheet sondern ein bestimmtes Sheet zu exportieren?(Ja habe schon versucht ActiveSheet mit Worksheets("") ein bestimmtes zu exportieren)

Sub Export2()
Dim fsT As Object, sFilename As Variant, tmpStr As String
Dim lS As Long, lZ As Long, l As Long
Dim SrcRg As Range

'Pfad und Name der zu erstellenden Datei
sFilename = Application.GetSaveAsFilename("", "CSV File (*.csv), *.csv")

If Selection.Cells.Count > 1 Then
    Set SrcRg = Selection
Else
    Set SrcRg = ActiveSheet.UsedRange
End If

With SrcRg
    For lZ = 1 To .Rows.Count
        For lS = 1 To .Columns.Count
            tmpStr = tmpStr & """" & .Cells(lZ, lS) & """;"
        Next lS
        tmpStr = Left(tmpStr, Len(tmpStr) - 1) & vbCrLf
    Next lZ
End With

Set fsT = CreateObject("ADODB.Stream")
fsT.Type = 2                'Stream-Typ: Text/String
fsT.Charset = "utf-8"       'Zeichensatz
fsT.Open                    'Stream öffnen
fsT.WriteText tmpStr        'Daten schreiben
fsT.SaveToFile sFilename, 2 'Datei speichern
Set fsT = Nothing

End Sub

Danke schonmal :)

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Bestimmte Tabelle als CSV UTF8 exportieren
03.09.2019 14:32:27 Stan
NotSolved
03.09.2019 15:05:59 Gast58946
NotSolved
03.09.2019 15:14:03 Gast28808
NotSolved
03.09.2019 15:50:06 Stan
NotSolved
03.09.2019 15:51:06 Stan
NotSolved
03.09.2019 16:05:24 Gast27126
NotSolved