Thema Datum  Von Nutzer Rating
Antwort
Rot Word Formulare auslesen und an Excel senden
 12.05.2010 11:29:03 Jareth85
NotSolved

Ansicht des Beitrags:
Von:
Jareth85		 Datum:
12.05.2010 11:29:03		 Views:
1665		 Rating:
     
Antwort:
  Ja
Thema:
Word Formulare auslesen und an Excel senden
Hallo Zusammen,

ich hoffe ich werde nicht gesteinigt, weil ich vielleicht ein neues Thema begonnen habe, dass es möglicherweise schon gibt. Aber trotz intensiver Suche konnte ich die Lösung für mein aktuelles Problem noch nicht finden.

Ich bin seit ein paar Tagen immer mal wieder damit beschäftigt, eine möglichst komfortable Lösung für die Erstellung unterschiedlicher Statistiken in einer unserer Abteilungen zu basteln.

Es geht um folgendes: Ich möchte gezielt Formularfelder aus einem Word-Formular per Knopfdruck auslesen und in eine bestehende Excel-Datei (Statistik) einpflegen. Das funktioniert ja schon wunderbar mit diesem Code:

Code:
Sub Word_nach_Excel()
Dim xlApp As Object
Dim xlWkb As Object
Dim xlWks As Object
Dim oDoc As Document
Set oDoc = ActiveDocument
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlWkb = xlApp.Workbooks.Add
Set xlWks = xlWkb.Worksheets(1)
If oDoc.FormFields("kk1").CheckBox = True Then
xlWks.Range("A1").Value = "ja"
ElseIf oDoc.FormFields("kk2").CheckBox = True Then
xlWks.Range("A1").Value = "nein"
End If
xlWks.Range("B1").Value = oDoc.Bookmarks("Text1").Range.Text
xlWks.Range("C1").Value = oDoc.Bookmarks("Vorname").Range.Text
xlWks.Range("D1").Value = oDoc.Bookmarks("Name").Range.Text
xlWks.Range("E1").Value = oDoc.Bookmarks("Straße").Range.Text
xlWks.Range("F1").Value = oDoc.Bookmarks("PLZ").Range.Text
xlWks.Range("G1").Value = oDoc.Bookmarks("Ort").Range.Text
Set xlApp = Nothing
Set oDoc = Nothing
End Sub



Nun möchte ich aber weitere Formulare über den selben Vorgang auslesen. Die ausgelesenen Daten sollen ebenfalls in diese Excel-Tabelle übertragen werden. Wie schaffe ich es nun, dass immer die nächst mögliche freie Zeile gewählt wird?

Ich habe da schon so einen Code-Schnipsel gefunden, hab aber ehrlich gesagt keine Ahnung wie ich den in Deinen Code einbauen soll. Er lautet:

Code:
z = Range("A65565").End(xlUp).Row + 1


Kann mir vielleicht jemand behilflich sein? Wäre echt spitze!

Vielen Dank für Eure Hilfe!

Schöne Grüße
Jareth85

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
Rot Word Formulare auslesen und an Excel senden
 12.05.2010 11:29:03 Jareth85
NotSolved