Habe eine Excel Tabelle in eine Visio - Datei eingebunden, nun versuche
ich den inhalt der Tabelle ("Die erste Zeile der Tabelle") zu ändern,
indem ich ein Shape von einer Visio Zeichnung darstellen lasse und dort
den Inhalt eingebe. Der Inhalt des Shapes, soll also in die eingebundene
Excel-Tabelle eingespeichert werden. Ich habs jetzt soweit, dass ich
gradmal die eingebundene Excel tabelle in eine Seperate Excel datei
öffnen kann:
Ich weiß jedoch nicht, wie ich Die Variable aus der Shape in die Excel
Spalte einfügen kann/soll. Wurde durch Google leider nicht schlauer.
Beispiel:
Shape:12.12.2016
Datum: 12.12.2016 soll das Datum in der Tabelle (14.10.2008) überschreiben.
Ich bedanke mich für eure Hilfe
Mit freundlichen Grüßen
Jizzy
ich den inhalt der Tabelle ("Die erste Zeile der Tabelle") zu ändern,
indem ich ein Shape von einer Visio Zeichnung darstellen lasse und dort
den Inhalt eingebe. Der Inhalt des Shapes, soll also in die eingebundene
Excel-Tabelle eingespeichert werden. Ich habs jetzt soweit, dass ich
gradmal die eingebundene Excel tabelle in eine Seperate Excel datei
öffnen kann:
VB.NET-Quellcode
- Public Sub OLEObjects_example()
- datum = Application.ActiveWindow.Page.Shapes.ItemFromID(2).Characters
- For i = 1 To ActiveDocument.OLEObjects.Count
- If Left(ActiveDocument.OLEObjects(i).ProgID, 11) = "Excel.Sheet" Then
- ActiveDocument.OLEObjects(i).Object.Activate
- ActiveDocument.OLEObjects(i).Object.Application.Visible = True
- ActiveDocument.OLEObjects(i).Object.Windows(1).Visible = True
- End If
- Next i
- End Sub
Ich weiß jedoch nicht, wie ich Die Variable aus der Shape in die Excel
Spalte einfügen kann/soll. Wurde durch Google leider nicht schlauer.
Beispiel:
Nr | Datum |
1 | 14.10.2008 |
2 | |
Shape:12.12.2016
Datum: 12.12.2016 soll das Datum in der Tabelle (14.10.2008) überschreiben.
Ich bedanke mich für eure Hilfe
Mit freundlichen Grüßen
Jizzy