MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 03.01.2018, 13:28   #16
Storax
MOF Profi
MOF Profi
Standard

Na ja, eigentlich bin ich ja Schuld, weil ich meine Beiträge noch zu oft editiere, also hier nochmal der Code. Diesmal sicher ich direkt das Blatt als CSV Datei
Code:

Option Explicit


Sub folgende_Reiter_als_TXT()


Dim wks As Worksheet
    'Dim SheetName As String
Dim path As String

    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = "C:\"
        .Title = "Ordnerauswahl"
        .ButtonName = "Auswahl..."
        .InitialView = msoFileDialogViewList
        If .Show = -1 Then
            path = .SelectedItems(1)
            If Right(path, 1) <> "\" Then path = path & "\"
        Else
            path = ""
        End If
    End With

    If path = "" Then
        MsgBox ("Kein Ordner gewählt!")
        Exit Sub
    Else
        MsgBox path
    End If

    ChDir path

    Application.DisplayAlerts = False

    For Each wks In Worksheets

        If wks.Index = 1 Then
        Else
            wks.SaveAs Filename:= _
                       path & wks.Name & ".txt", FileFormat:= _
                       xlCSV
        End If
    Next wks

    Application.DisplayAlerts = True

End Sub

__________________

This isn't a code writing service, you need to do some research and have a go at writing some of your own code.
Be careful, content may contain traces of irony.

Geändert von Storax (03.01.2018 um 13:32 Uhr).
Storax ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 03.01.2018, 13:34   #17
BlaWid
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hmmm...jetzt ist da ein Syntaxfehler???

Code:

Sub folgende_Reiter_als_TXT()


Dim wks As Worksheet
    'Dim SheetName As String
Dim path As String

    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = "C:"
        .Title = "Ordnerauswahl"
        .ButtonName = "Auswahl..."
        .InitialView = msoFileDialogViewList
        If .Show = -1 Then
            path = .SelectedItems(1)
            If Right(path, 1) <> 0"" Then path = path & ""            'hier ist ein Fehler? Muss die 0 da hin?
        Else
            path = ""
        End If
    End With

    If path = "" Then
        MsgBox ("Kein Ordner gewählt!")
        Exit Sub
    Else
        MsgBox path
    End If

    ChDir path

    Application.DisplayAlerts = False
    For Each wks In Worksheets

        If wks.Index = 1 Then
        Else
            wks.SaveAs Filename:= _
                       path & ActiveSheet.Name & ".txt", FileFormat:= _
                       xlCSV
        End If
    Next wks
    Application.DisplayAlerts = True

End Sub
BlaWid ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 03.01.2018, 13:37   #18
BlaWid
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Sorry, hatte schon wieder einen Copy Paste Fehler...
BlaWid ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 03.01.2018, 13:38   #19
BlaWid
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Ändert aber nix an der Fehlermeldung
Angehängte Grafiken
Dateityp: png Fehlermeldung.PNG (27,1 KB, 4x aufgerufen)
BlaWid ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 03.01.2018, 13:49   #20
Storax
MOF Profi
MOF Profi
Standard

Dann gib mal dann in das Direktfenster folgendes ein
Code:

debug.print path & wks.Name & ".txt"
Wird ein korrekter Dateiname angezeigt?
Und diese Datei ist nicht noch irgendwo offen?
Das ist nämlich der Nachteil von SaveAs ...

__________________

This isn't a code writing service, you need to do some research and have a go at writing some of your own code.
Be careful, content may contain traces of irony.
Storax ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 03.01.2018, 13:55   #21
BlaWid
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Nein, mir wird auch da eine Fehlermeldung angezeigt.

Laufzeitfehler 424, Objekt erforderlich
Angehängte Grafiken
Dateityp: png Fehlermeldung3.PNG (46,2 KB, 3x aufgerufen)
BlaWid ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 03.01.2018, 13:56   #22
BlaWid
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Und sonst ist kein weiteres Fenster offen...
BlaWid ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 03.01.2018, 14:00   #23
Storax
MOF Profi
MOF Profi
Standard

Das sollst Du auch erst dann machen, wenn Du in den ersten Fehler gelaufen bist. Nur dann sind die Variablen usw. belegt, vorher geht das nicht.

__________________

This isn't a code writing service, you need to do some research and have a go at writing some of your own code.
Be careful, content may contain traces of irony.
Storax ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 03.01.2018, 14:02   #24
BlaWid
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Ah, oke. Gemacht und ja, es ist der Dateinamen der dort angezeigt wird
BlaWid ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 03.01.2018, 14:05   #25
Storax
MOF Profi
MOF Profi
Standard

Und ist er korrekt?

__________________

This isn't a code writing service, you need to do some research and have a go at writing some of your own code.
Be careful, content may contain traces of irony.
Storax ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 03.01.2018, 14:07   #26
BlaWid
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Ja, der stimmt. Genauso wie der dazugehörtige Pfad
BlaWid ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 03.01.2018, 14:09   #27
Storax
MOF Profi
MOF Profi
Standard

Ok, dann nimm mal folgenden Code
Code:

Option Explicit


Sub folgende_Reiter_als_TXT()
Dim wks As Worksheet
Dim path As String

    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = "C:\"
        .Title = "Ordnerauswahl"
        .ButtonName = "Auswahl..."
        .InitialView = msoFileDialogViewList
        If .Show = -1 Then
            path = .SelectedItems(1)
            If Right(path, 1) <> "\" Then path = path & "\"
        Else
            path = ""
        End If
    End With

    If path = "" Then
        MsgBox ("Kein Ordner gewählt!")
        Exit Sub
    Else
        MsgBox path
    End If

    ChDir path

    Application.DisplayAlerts = False

    On Error GoTo ErrExit
    For Each wks In Worksheets

        If wks.Index = 1 Then
        Else
            wks.SaveAs Filename:= _
                       path & wks.Name & ".txt", FileFormat:= _
                       xlCSVUTF8
        End If
    Next wks

    Application.DisplayAlerts = True

    Exit Sub

ErrExit:
    Debug.Print Err.Number, Err.txt
    Debug.Print wks.Name, path & wks.Name & ".txt"
    MsgBox "Information im Direktfenster", vbOKOnly, "Fehler"

End Sub
Der wird zwar auch in den Fehler laufen, aber dann sollten mehr Informationen im Direktfenster stehen

__________________

This isn't a code writing service, you need to do some research and have a go at writing some of your own code.
Be careful, content may contain traces of irony.
Storax ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 03.01.2018, 14:13   #28
BlaWid
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hmmm...jetztz meckert er, weil er das Format "xlCSVUTF8" nicht kennt, bzw. weil die Varibale nicht definiert ist.
BlaWid ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 03.01.2018, 14:14   #29
Storax
MOF Profi
MOF Profi
Standard

Aha, warum kennt er das nicht?
Welche Excel Version? Windows oder Mac, welche Version?

Aber kannst Du ja nochmal gegen xlCSV tauschen.

__________________

This isn't a code writing service, you need to do some research and have a go at writing some of your own code.
Be careful, content may contain traces of irony.
Storax ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 03.01.2018, 14:16   #30
BlaWid
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Excel 2010, Windows 7
BlaWid ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:19 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.