Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
524to528
524to528
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Abspeichern in .csv Format

Forumthread: Abspeichern in .csv Format

Abspeichern in .csv Format
01.12.2004 13:52:52
Andreas
Hallo,
ich brauche ein Makro, dass einen bestimmten "worksheet" (Bsp_name: "Übergabetabelle") in eine .csv-Datei abspeichern kann (nur dieses Worksheet!)
Viell. könnte man den Dateinamen auch noch aus einem bestimmte Feld auslesen lassen (viell. Bsp: aus Zelle: "A1")
Wäre euch sehr dankbar, wenn ihr mir helfen könntet.
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Abspeichern in .csv Format
01.12.2004 15:17:44
Andreas
Probier'das mal. Mit Klick auf den Button wird die Datei gespeichert. ggf. nennst du dann das "workbook" in "worksheet" um.

Private Sub CommandButton1_Click()
Dim Vname As Variant
Dim NeuesVerz As Variant
Dim IndName As Integer
Dim Verzeichnis As String
Dim Dateiname As String
Verzeichnis = Range("A2")
Range("A1").Select
Dateiname = Range("A1")
If Dir(Verzeichnis, vbDirectory) <> "" Then
ActiveWorkbook.SaveAs Filename:=Dateiname, FileFormat:=csv, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
'nachfolgender Code vermeidet die nochmalige Frage, ob die Datei gespeichert werden soll.
Application.DisplayAlerts = False
ActiveWindow.Close
'die nächste Zeile wird benötigt, dass überhaupt wieder nach Speichern gefragt wird
Application.DisplayAlerts = True
Else
'vb..ergibt ROTES X
MsgBox "Bitte Verzeichnis " & Chr(13) & Verzeichnis & Chr(13) & _
" anlegen!" & Chr(13) & Chr(13), vbDirectory
On Error GoTo mkd_Err
For IndName = 0 To UBound(Vname)
NeuesVerz = NeuesVerz & Vname(IndName) & "\"
MkDir NeuesVerz
Next IndName
mkd_Err:
If Err = 75 Then Resume Next
End If
End Sub

Viel Erfolg
Anzeige
AW: Abspeichern in .csv Format
01.12.2004 16:10:19
Andreas
Hallo Namensvetter!
Ich mach mir ja sonst nicht solche Mühe aber:
hier ist alles was du brauchst, Tutto kompletto fertig.
https://www.herber.de/bbs/user/14179.xls
__________________________________________
Spenden und Huligungen sind willkommen ;-)
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige