PDA

Vollständige Version anzeigen : Save as Methode - Dateiname aus einer Variable


manne81
08.08.2009, 17:48
Hallo ihr lieben,

ich habe mir eine Word-Vorlage "Rechnung.dot" angelegt, diese habe ich mit
Textmarken versehen und lasse die Daten aus Access füllen.

Jetzt mein Problem:
Die Datei soll automatisch gespeichrt werden unter der Variablen Rechnungsnummer.

Hier mein QuellCode:

Private Sub btnRechnungNeu_Click()

Dim WordApp As Object
Dim WordDoc As Object
Dim RechnNr As String

Set WordApp = CreateObject("Word.Application")
WordApp.Visible = False
' Pfadangabe für die Wordvorlage
Set WordDoc = WordApp.Documents.Add("D:\Projekte\Test\Software\Rechnung.dot")

With WordDoc
' Hier werden die Daten aus dem Hauptform in Textmarken überschrieben
.Bookmarks("Nachname").Range = Me!Nachname & ""
.Bookmarks("Vorname").Range = Me!Vorname & ""
.Bookmarks("Straße").Range = Me!Straße & ""
.Bookmarks("Hausnummer").Range = Me!Nummer & ""
.Bookmarks("PLZ").Range = Me!PLZ & ""
.Bookmarks("Ort").Range = Me!Ort & ""
.Bookmarks("RechnungsNummer").Range = Me!txtRechnungsNummer & ""
' .PrintOut 'ausdrucken

' Datei speichern unter RechnungsNummer
RechnNr = Me!txtRechnungsNummer.Value
.SaveAs FileName:="D:\Projekte\Test\Rechnungen\RechnNr"
End With

WordApp.Quit
Set WordApp = Nothing

End Sub


Der SaveAs Teil funktionert so einfach wohl nicht. :(

Kann mir vielleicht irgendwer hierbei weiterhelfen???

Hotte
08.08.2009, 22:01
Hi,

was funktioniert denn nicht??? Eine Fehlermeldung????

So ist die Fehlerbeschreibugn etwas dünn....:)

Versuch es mal so:

.SaveAs "D:\Projekte\Test\Rechnungen\" & RechnNr & ".doc"

Die Variable gehört nicht in die Anführungszeichen....

manne81
08.08.2009, 23:19
Hi,

was funktioniert denn nicht??? Eine Fehlermeldung????

So ist die Fehlerbeschreibugn etwas dünn....:)

Versuch es mal so:

.SaveAs "D:\Projekte\Test\Rechnungen\" & RechnNr & ".doc"

Die Variable gehört nicht in die Anführungszeichen....

Hallo Hotte,

genau da lag mein Problem!!! :)
Danke schön