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

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.

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 ;-)

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige