---

Hallo VBA- Anwender,
ich habe ein folgendes Problem, das nur per Makro lösbar ist, so vermute ich zumindest und deswegen bitte ich euch um Hilfe und übrigens wollte ich mich künftig auch mit Makro etwas mehr auseinandersetzen  und dieses Problem betrachte ich schon als Einstieg.

Ich möchte in der Excel-Tabelle, die übrigens meine Steuertabelle ist, in einer Zelle den Text als Variable bei bestimmtem Bedingungen angeben und dem Excel sagen: Überträg mal den Text in iProperies von der bestimmten Datei ins Dialogfeld ''Kategorie''
Vielleicht hat jemand von euch schon sowas gemacht.

MfG Kristof

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Kristof,

gibts in der OnlineHilfe zu IV kein Beispiel zur Interaktion mit Excel?
Also sowas in der Art:

Code:

---

dim excelapp as Excel.application
dim xlwb as workbook
set excelapp = New Excel.application
set xlwb = excelapp.workbooks.open("Pfad+Filename")
with xlwb.sheets("Tabelle1")
  .cells(1,1)= ....iProperties(?).text 'keine Ahnung wie das heisst
  .'usw
end with

---

Gruss Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Tabelle.zip

Hallo Nancy,

Ehrlich gesagt, weiss ich nicht, wie ich damit anfangen soll 
Ich habe eine Excel-Datei angehängt und dein Code mit Änderungen.
Der Text, der in der Zelle B3 erscheint, soll nach Speicherung dieser Datei und anschliessend nach der Aktualisierung der BAugruppe ins iPropertie einer bestimmten Datei übertragen werden. Übrigens ist diese Excel-Datei mit dem Projekt verknüpft.

Übrigens sollte es zufällig in dem Code diese zwei Zeile auch nicht auftauchen??
Dim ThisApplication As Inventor.Application
Set ThisApplication = GetObject(, "Inventor.Application")

Gruß Kristof

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Kristof,

sorrysorry, da hab ich dich total falsch verstanden ;-(
Ich dachte Du willst von IV nach Excel schreiben und nicht umgekehrt ...
In dem Falle brauchst Du Excel nicht zu instanzieren, startest ja daraus,
aber für die Diva musste es tun.
Allerdings kann ich dir da nun garnich helfen, ... isch abe gar kein Inventor ;-)

Könnte vielleicht so ausschauen, keine Ahnung:

Code:

---

dim Diva as Inventor.application
dim IVDoc as Document
set Diva = New Inventor.application
set IVDoc = Diva.Documents.open("Pfad+Filename")
with IVDoc.iProperties(Kategorie)
  .Text = sheets("Tabelle1").cells(2,3)
end with

---

Musst natürlich im Excel nen Verweis auf die Inventor-Bibliothek setzen.
An dieser Stelle hör ich aber besser auf, wiegesagt, könnte sonst noch mehr Käse rauskommen ;-)

lg Nancy   

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Kristof,

oder suchst du sowas um das iPropertie zu setzen?
http://ww3.cad.de/foren/ubb/Forum258/HTML/000086.shtml

HTH

------------------
Gruß Wilfried 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP