Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
892to896
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
892to896
892to896
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Frage Aus Excel mit VB eine Worddatei erzeugen

Frage Aus Excel mit VB eine Worddatei erzeugen
09.08.2007 10:58:46
painky
Hi,
ich habe ein Problem welches ich einfach nicht gelöst bekomme. Naja wahrscheinlich ist es eine kleinigkeit und mit fehlt einfach die Erfahrung mit VB dazu. Ich hoffe ihr könnt mir helfen und bedanke mich schonmal im voraus.
Also ich versuche über ein VB Script aus einer Exceltabelle ein neues und Formatiertes Worddokument zu erzeugen. Wie ich die Worddatei anlege und reinschreibe habe ich hinbekommen aber leider schaffe ich es nicht eine Tabelle anzulegen. Mein Script sieht folgend aus:
Code:

Private Sub Erstellen_Click()
Dim aZeit As String
Dim aBericht As String
aBericht = Bericht.Text
Dim WordDoc As Object
Set WordDoc = CreateObject("Word.Application")
With WordDoc
.Visible = False
.documents.Add
.Selection.TypeText "Arbeitszeit :" + aZeit + aBericht 'Test
.ActiveDocument.SaveAs Filename:="test.doc"
.ActiveDocument.Tables.Add Range:=Selection.Range, _
NumRows:=3, NumColumns:=2
.Quit
End With
Set WordDoc = Nothing
End Sub


Wenn ich das Script unter Word im VB schreibe um die Tabelle zu erzeugen funktioniert das. Also müsste der Syntax generell stimmen.
Ich hoffe ihr könnt mir weiterhelfen!
Danke

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Frage Aus Excel mit VB eine Worddatei erzeugen
10.08.2007 00:32:00
Herby
Hallo painky
ich habs mal so gemacht:
https://www.herber.de/bbs/user/44927.xls
Die Zeilen mit Word.Application.11 musst Du an die jeweilige Word-Version anpassen damits funktioniert.
Viele Grüße
Herby
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige