Anzeige
Archiv - Navigation
348to352
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
348to352
348to352
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Speichern

Speichern
10.12.2003 14:54:16
Karin
Guten Tag

Ich möchte Daten die ich von einem .txt File ins Excel lade nach der Formatierung als .xls abspeichern. Mit folgendem Code öffne ich das "Speichern unter" Fenster.


Private Sub cmdJA-Click()
Application.Dialogs(xlDialogSaveAs).Show
Unload frmAbspeichern
End Sub


Im aufgerufenem Fenster steht bei Dateityp: Text (Tabstopp-getrennt) (*.txt)
Beim Speichern würde das aber das Ursprüngliche File überschreiben.

Um diese Fehlerquelle zu umgehen und um weitere Änderungen machen zu können, möchte ich dass bei Dateityp immer "Microsoft Excel-Arbeitsmappe (.xls)"
steht.

Ich hoffe das mir jemand weiterhelfen kann, oder eine andere Lösung weiss.

Besten Dank und Gruss
Karin

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speichern
10.12.2003 17:23:48
Klaus Schubert
Hallo Karin,

versuch's mal hiermit:


Private Sub cmdJA-Click()
Application.Dialogs(xlDialogSaveAs).Show(arg2:=1)
Unload frmAbspeichern
End Sub


Gruß Klaus
AW: Fehlernachricht
11.12.2003 10:40:19
Karin
Hallo Klaus

Besten Dank aber leider bekomme ich eine Fehlermeldung:

Fehler beim Kompilieren: Syntaxfehler

Gruss Karin
AW: Fehlernachricht
11.12.2003 17:00:47
Klaus Schubert
Hallo Karin,

habe leider etwas vergessen, der Dialog gibt einen Rückgabewert zurück, der verarbeitet werden muß. Wenn du auf "OK" beim Speichern klickst, so enthält die Variable Ergebnis den Wert Wahr, bei Abbrechen den Wert Falsch. Du mußt diesen Wert aber nicht weiterverarbeiten. Hiermit müßte es dann funktionieren (zumindest bei mir unter Office 2000):


Private Sub cmdJA-Click()
Dim Ergebnis
Ergebnis = Application.Dialogs(xlDialogSaveAs).Show(arg2:=1)
Unload frmAbspeichern
End Sub


Gruß Klaus
Anzeige
AW: SUPER!!
12.12.2003 09:41:11
Karin
Hallo Klaus

Vielen Herzlichen Dank!!
Funktioniert jetzt super.

Gruss Karin

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige