VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

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

Ansicht des Beitrags:

Von:
Stan

Datum:
03.09.2019 14:32:27

Views:
1039

Rating:

Antwort:

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 ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
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

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
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

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