Ein zweites Mal ist nicht möglich

[Nyn007]

Hallo an Alle.

Ein Problem mit dem ich schon lange kämpfe: Ich verwalte meine Rechnungen in Excel und generiere daraus jedemal eine Word-Rechnung. Dort ist auch eine Tabelle. Das Erstellen der ersten Rechnung funktioniert perfekt. Aber eine weitere ist nicht möglich. Ich lande beim Erstellen der Tabelle in dem Wordfile im folgenden Fehler
   
Ich muss dann das Excel-File schließen. Dann kann ich wieder nur 1x eine neue Rechnung erstellen. Dann wieder schließen usw. --> ziemlich nervig.
Ich habe schon überall wo es ging "Unload Me" eigefügt. Aber es hilft nicht.

Hat jemand eine Idee wo ich noch nachschauen soll?
Klar jetzt kommen die Fragen nach dem Code. Hier würde nur helfen das gesamte Projekt inkl. Vorlagen hochzuladen. Aber vielleicht versteht Ihr, daß ich das doch erst einmal vermeiden möchte.

Deshalb die Frage ob jemand zumindest ein Vermutung hat.
Das wäre nett.

Ich danke Euch.
Liebe Grüße
Nyn007

[Mase]

Hi,

Aber vielleicht versteht Ihr, daß ich das doch erst einmal vermeiden möchte.

ähm, ne.
Ggf. hat hier jemand ne Lösung, aber du verstehst, dass die erstmal keiner preisgeben will ;)


Spaß beiseite;
Ohne Code, für mich wie Glaskugel schauen. (wahrscheinlich auch für Andere)

[Nyn007]

Hallo Marco.

In der Datei habe ich meine gesamte Buchhaltung. Wenn ich die gesamte Datei hier poste, habe ich mich sozusagen ausgezogen.

Vielleicht jetzt Verständnis?
Liebe Grüße

[Steffl]

Hallo,

aber wenigstens der Code ist doch postbar.

[Nyn007]

Guten Morgen Steffi.

Kann ich den gesamten Code irgendwie exportieren, ohne die Einträge in der Excel?
Ich denke nur ein Modul zu posten wird nicht reichen. Das sind vermutlich Abhängigkeiten noch zu anderen Modulen und UserForms.

Grüße

[Steffl]

Hallo,

es geht ja nur um den Part mit der Verbindung zu Word. Vermutlich beendest Du die Verbindung mit Word nicht richtig.

[Nyn007]

Hi
Ich habe jetzt das eine Modul exportiert. S. anbei.
Der Fehler selbst tritt in der Zeile
".Columns(1).PreferredWidth = CentimetersToPoints(0.9) 'Position"

Ich hoffe es hilft nun. … Bin schon gespannt.
Liebe Grüße
Nyn007

[00202]

Hallo, :19:

"Laufzeitfehler 462" ist klar. Du referenzierst nicht ausreichend. :21:

Folgendes ist von Access nach Excel. Das spielt aber keine Rolle, denn es ist allgemein gültig: :21:

Schau es dir mal an...

Bzw. auch hier

Du musst also bei "CentimetersToPoints" die Variable der Wordapplication davor setzen. Muss also an die Sub "Sub Tabelle_Generieren" mit übergeben werden.

Also noch einmal - referenziere ausreichend. Sonst wird automatisch eine globale Variable angelegt und du kannst das Programm nur einmal laufen lassen. :21:

[Mase]

Hallo Marco.

In der Datei habe ich meine gesamte Buchhaltung. Wenn ich die gesamte Datei hier poste, habe ich mich sozusagen ausgezogen.

Vielleicht jetzt Verständnis?
Liebe Grüße

Klar, aber an Deinen Daten ist hier überhaupt keiner interessiert. Haben alle eigene Probleme :D
Und wie Du siehst, Stein rollt.

[Kuwer]

Hallo,

die Wordvariablen sollten wieder getrennt werden!

Sub Rechnung_Erstellen(ByRef daten() As String)

'... 
Dim wdapp As New Word.Application
Dim wddoc As Word.Document

'... 

   Call SpeicherVorlageBestellung("Kunden")

Set wddoc = Nothing '<<< zusätzlich einfügen! 
Set wdapp = Nothing '<<< zusätzlich einfügen! 
End Sub

Sub Tabelle_Generieren(ByRef wddoc As Word.Document, ByRef z1 As Integer)

'... 
Dim wdtab As Object

'... 

   Next zeile
Set wdtab = Nothing '<<< zusätzlich einfügen! 
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 14 - mit VBAHTML 12.6.0

Siehe z.B. auch hier: Zugriff auf andere Anwendungen (1) - Grundlagen und Irrtümer

Gruß Uwe