Thema Datum  Von Nutzer Rating
Antwort
30.06.2009 15:24:41 Matthias Lumma
NotSolved
Blau Aw:Speichern eines geöffneten Dokument über UserFo
 30.06.2009 19:28:16 jh
NotSolved

Ansicht des Beitrags:
Von:
jh		 Datum:
30.06.2009 19:28:16		 Views:
1702		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Speichern eines geöffneten Dokument über UserFo
Hallo,

ich nehme mal an, in den beiden Textboxen stehen Pfad und Dateiname, unter
dem gespeichert werden soll. Wenn es nicht so ist, musst du das anpassen.
Leider schreibst du nicht, um was für eine Anwendung es sich handelt,
"Dokument" deutet zwar auf Word hin, aber ich bringe auch ein Beispiel für
Excel. Je nach den tatsächlichen Gegebenheiten musst du dir die passenden
Anweisungen heraussuchen.

Private Sub CommandButton1_Click()
Dim docNeu As Document
Dim wkbNeu As Workbook
Dim strPath As String
Dim strFileName As String

Set docNeu = Documents.Add
Set wkbNeu = Workbooks.Add

strPath = TextBox1.Value
If Right$(strPath) UNGLEICH Application.PathSeparator Then
strPath = strPath & Application.PathSeparator
End If

' UNGLEICH ersetzt du bitte durch den entsprechenden
' Vergleichsoperator, diese Zeichen bringen manchmal die
' Software dieses tollen Forums durcheinander

strFileName = TextBox2.Value

' wenn die Endung .doc bzw. .xls NICHT in der TextBox steht,
' musst du sie noch anhängen: ... & .doc bzw. ... & .xls

' andere Variante: Das neue Dokument soll im gleichen Ordner
' wie das bestehende gespeichert werden, die TextBoxen
' enthalten nur zwei Bestandteile des Dateinamen:

strPath = ThisDocument.Path
strPath = ThisWorkbook.Path

' ggf. wie oben noch den Backslash anhängen

strFileName = TextBox1.Value & TextBox2.Value

docNeu.SaveAs strPath & strFileName
wkbNeu.SaveAs strPath & strFileName
docNeu.Close SaveChanges:=False
wkbNeu.Close SaveChanges:=False
Set docNeu = Nothing
Set wkbNeu = Nothing

End Sub

Gruß Jürgen

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
30.06.2009 15:24:41 Matthias Lumma
NotSolved
Blau Aw:Speichern eines geöffneten Dokument über UserFo
 30.06.2009 19:28:16 jh
NotSolved