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

Dateityp im "Speichern unter"-Dialog vorgeben

Forumthread: Dateityp im "Speichern unter"-Dialog vorgeben

Dateityp im "Speichern unter"-Dialog vorgeben
01.07.2008 10:35:21
stefanseevetal
Hallo liebe Experten,
ich habe mal wieder eine Frage: Wie kann ich im "Speichern unter"-Dialog den Dateityp auf "*.doc" voreinstellen?
Das Problem ist, dass einige bei uns hier Office 2007 haben, andere 2003. Damit alle mit Office 2003 auch die mit 2007 gespeicherten Dateien öffnen können, muss die Datei in 2007 als *.xls abgespeichert werden und nicht als "*.xlsx" (Ich weiß, dass es einen Converter für 2003 gibt, das geht aber aus anderen Gründen nicht). Bis dieses Problem aufgetaucht ist, sah mein Code so aus:

With Application.Dialogs(wdDialogFileSaveAs)
.Name = Projektordner & "Lieferschein_" & LNummer
.Show
End With


Nun muss ich irgendwie ein ".Format=?" einfügen, schätze ich. Aber was muss an die Stelle des Fragezeichens schreiben? Ich weiß z.B., dass ".Format=100" in Word das Format "*.rtf" ist. Aber wo finde ich diese Nummern für die verschiedenen Formate/Dateitypen?
Hoffe, es kann jemand helfen!
Danke und Gruß,
Stefan

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateityp im "Speichern unter"-Dialog vorgeben
01.07.2008 10:41:00
Yusuf
Hi,
versuch es mal damit bitte. um es als Word Datei abzuspreichern
With Application.Dialogs(wdDialogFileSaveAs)
.Name = Projektordner & "Lieferschein_" & LNummer & ".doc"
.Show
End With
Gruß
Yusuf

AW: Dateityp im "Speichern unter"-Dialog vorgeben
01.07.2008 10:42:00
Hajo_Zi
Hallo Stefan,
unter Optionen kann man das in 2007 einstellen.
In Excel kannst Du keine DOC Datei erstellen.

Anzeige
AW: Dateityp im "Speichern unter"-Dialog vorgeben
01.07.2008 11:10:02
stefanseevetal
Hallo ihr zwei,
danke für die Antworten.
Zu Yusuf: Habe es schon versucht, aber das funktioniert leider nicht. In 2007 bleibt trotzdem das "*.docx" Format.
Zu Hajo: Ja, entschuldige bitte, ich suche eine Lösung für Word. Aber im Prinzip müsste es (mit xlDialogSaveAs) in Excel doch genauso gehen, oder? Deshalb habe ich es hier gepostet.
Das Problem ist, dass ich nicht weiß, wie ich ".Format=doc" bzw. ".Format=xls" hinbekomme (so funktioniert es auf jeden Fall nicht).
Danke und Gruß,
Stefan

Anzeige
AW: Dateityp im "Speichern unter"-Dialog vorgeben
01.07.2008 11:21:57
Yusuf
Hi,
nur zur Vergewisserung.
Du moechtest ein Makro fuer Word schreiben, welchen ein Dokument als .doc abspeichert und dir fehlt die entsprechende Befehlszeile.
Es geht hier also nicht um ein Excel-Makro!?
Falls dies so ist :
Hab dieses hier per Makro-Recorder in Word aufgezeichnet.
Habe irgendeine Datei in Word "Speichern unter..." als .doc gespeichert.
ActiveDocument.SaveAs FileName:="Dok1.doc", FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
Gruß
Yusuf

Anzeige
AW: Dateityp im "Speichern unter"-Dialog vorgeben
01.07.2008 11:36:00
stefanseevetal
Hallo Yusuf,
im Grunde ist es egal, ob Excel oder Word. Es geht darum, per vba den Dialog "Speichern unter" aufzurufen und das Speicherformat/ den Dateitypen vorzugeben. Wenn ich den Dialog per vba aufrufe, ist bei 2007 standardmäßig das Format "*.docx" bzw. "*.xlsx" eingestellt und wenn der Nutzer dann einfach auf speichern klickt, dann können andere Nutzer mit 2003 die Datei nicht mehr öffnen. Deshalb möchte ich neben dem Speichernamen auch das Format im Dialog vorgeben. Der SaveAs-Befehl soll nicht voll automatisch aufgeführt werden, da der Speicherort durch den Benutzer manuell bestimmt werden muss. In Excel müsste der Code dazu ungefähr so aussehen und an der Stelle mit dem Fragezeichen fehlt mit der Befehl mit dem ich den Dateityp im Dialog auf "*.xls" ändere. Ich weiß, dass man hinter Format verschiedene Zahlen angeben kann, um den Dateityp zu verändern. Nur welche Zahl steht für "xls" oder halt für "doc", wenn man es in Word überträgt. Kann ich diese konstanten Zahlen irgendwo rausfinden?

With Application.Dialogs(xlDialogSaveAs)
.Name = Projektordner & "Lieferschein_" & LNummer
.FileFormat = wdFormatDocument
.Format=?
.Show
End With


Danke und Gruß,
Stefan

Anzeige
AW: Dateityp im "Speichern unter"-Dialog vorgeben
01.07.2008 12:04:30
Yusuf
Hi,
also in Excel 2000 kann man die Version in der die Datei abgespeichert werden soll, bei
"Speichern unter..." so festlegen:
.FileFormat:=xlExcel4
da ist dann kein .Fromat=? mehr nötig danach.
Ich kann das ganze leider nicht mit 2007 durchspielen, da ich nur 2000 zur Verfuegung habe.
Gruß
Yusuf
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Dateityp im "Speichern unter"-Dialog vorgeben

Schritt-für-Schritt-Anleitung

Um im "Speichern unter"-Dialog den Dateityp in Excel oder Word voreinzustellen, kannst du folgenden VBA-Code verwenden. Achte darauf, dass du die entsprechende Excel-Version hast, um den gewünschten Dateityp zu speichern.

  1. Öffne den VBA-Editor in Excel oder Word (Alt + F11).
  2. Füge ein neues Modul hinzu (Rechtsklick auf "VBAProject" > Einfügen > Modul).
  3. Kopiere den folgenden Code in das Modul:
Sub SpeichernUnter()
    Dim Projektordner As String
    Dim LNummer As String
    Projektordner = "C:\DeinPfad\" ' Setze hier deinen Pfad ein
    LNummer = "001" ' Setze hier die gewünschte Nummer ein

    With Application.Dialogs(xlDialogSaveAs)
        .Name = Projektordner & "Lieferschein_" & LNummer
        .FileFormat = xlExcel8 ' Setze hier den gewünschten Dateityp ein (z.B. xlExcel8 für .xls)
        .Show
    End With
End Sub
  1. Passe die Variablen Projektordner und LNummer an deine Bedürfnisse an.
  2. Führe das Makro aus, um den Dialog "Speichern unter" mit dem voreingestellten Dateityp anzuzeigen.

Häufige Fehler und Lösungen

  • Problem: Der Dateityp wird nicht korrekt voreingestellt.

    • Lösung: Achte darauf, dass du den richtigen FileFormat-Wert verwendest. Für .xls verwende xlExcel8, für .doc in Word wdFormatDocument.

  • Problem: Der Dialog zeigt weiterhin .xlsx oder .docx.

    • Lösung: Stelle sicher, dass du den FileFormat korrekt gesetzt hast und verwende die Methode xlDialogSaveAs in Excel.

Alternative Methoden

Falls du keine VBA-Programmierung verwenden möchtest, kannst du auch die Optionen in Excel oder Word nutzen, um den standardmäßigen Dateityp zu ändern. In Excel 2007 kannst du dies unter "Datei" > "Optionen" > "Speichern" anpassen.

Praktische Beispiele

Hier sind einige Beispiele für die Verwendung verschiedener Dateitypen:

  1. Speichern als Excel 97-2003 Arbeitsmappe (.xls):

    .FileFormat = xlExcel8

  2. Speichern als Word-Dokument (.doc):

    .FileFormat = wdFormatDocument

Tipps für Profis

  • Verwende Konstanten für Dateiformate, um den Code lesbarer zu machen. Beispielsweise xlExcel8 für Excel 97-2003.
  • Halte deinen Code modular, indem du separate Subroutinen für verschiedene Dateiformate erstellst.
  • Teste dein Makro in verschiedenen Excel-Versionen, um sicherzustellen, dass es überall funktioniert.

FAQ: Häufige Fragen

1. Wie finde ich die Werte für FileFormat?
Du kannst die Werte für FileFormat in der VBA-Dokumentation von Microsoft nachlesen. Dort findest du eine Liste der verfügbaren Formate für Excel und Word.

2. Kann ich den Dateityp auch ohne VBA ändern?
Ja, in Excel und Word kannst du die Standardoptionen unter "Datei" > "Optionen" ändern, um den gewünschten Dateityp voreinzustellen.

3. Funktioniert dieser Code in Excel 2003?
Ja, der Code sollte auch in Excel 2003 funktionieren, solange du die entsprechenden Dateiformate verwendest.

Beliebteste Forumthreads (12 Monate)

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