Word Dokument über Excel VBA speichern
18.04.2019 07:46:42
Marcel
vielleicht könnt ihr mir ja weiterhelfen.
Ich habe mir eine Art kleine Datenbank über Excel erstellt, die soweit auch super funktioniert nur hapert es daran bestimmte Einträge die ich in einer Listbox makiere(per Doppelklick), welche dann in Textboxen übernommen werden, in ein Word Dokument zu übernehmen und dann zu speichern.
Hier mal mein Problem und dafür hier mal meine Programmierung bisher:
1. Über ein Button wird ein Ordner erstellt der mit bestimmten Werten der Textboxinhalte _ angelegt wird.
Private Sub cb_Ordner_Click()
Dim Dateiname As String
If ListBox1.ListIndex > -1 Then
Dateiname = TextBox2 & "_" & TextBox3 & "_" & TextBox4
If Dir(ThisWorkbook.path & "\" & Dateiname, vbDirectory) = "" Then
MkDir ThisWorkbook.path & "\" & Dateiname
MsgBox "Sie haben den Ordner: " & Dateiname & " erstellt!"
Else
MsgBox "Dieser Ordner existiert bereits!"
End If
Else
MsgBox "Wählen Sie ein Datensatz aus!"
End If
End Sub
2. Nun würde ich gern diesen makierten Bereich aus der Listbox in ein Word Dokument speichern wollen(über einen Button)
- Dafür habe ich ein Dokument welches bereists vorgeschrieben ist.
- Nutze dafür Textfelder Formularsteuerelemente(obwohl mich das graue Kästchenstört ;-))
Es klappt soweit das er den Wert der Textbox übernimmt und in das Word Dokument schreibt aber _ dabei wird das Word Dokument schreibgeschützt. Das sollte irgendwie nicht sein und dazu muss ich es erst öffnen.
Private Sub cb_PAdd_Click1()
Dim PathFile As String
Dim objWDApp As Object
Dim objWDDoc As Object
PathFile = ThisWorkbook.path & Application.PathSeparator & _
"Test1.docx"
Set objWDApp = OffApp("Word", True)
If Not objWDApp Is Nothing Then
Set objWDDoc = objWDApp.Documents.Open(PathFile, ReadOnly:=True)
With objWDDoc
.FormFields("Text1").Result = TextBox1.Value
End With
End If
objWDApp.Visible = True
Frage dazu:
Wie bekomme ich es hin das aus der Vorgefertigten Word Datei sich die Felder füllen, dabei das Dokument nicht Schreibgeschützt ist und es sich ohne vorher zu öffnen in dem Ordner(der vorher angelegt wurde), abzuspeichern? Dazu soll die Neue Worddatei einen bestimmten Namen der Textfelder haben(also Speichern unter:)... wie beim Anlegen der Ordner.
Ich freu mich auf eure Hilfe
Lieben Dank Marcel
Anzeige