---

Hallo,

ich bin dabei Excel und Solid Works zu verbinden und hoffe ihr könnt mir wie immer weiterhelfen!

mit dem folgendem Code kann ich auf eine bestimmte Excel Datei und das standartmäßig geöffnete Worksheet zugreifen. Nun möchte ich aber zum Beispiel das Tabellenblatt 2 aufrufen. Ist dies auch unter Solid Works möglich?

Vielen Dank im Voraus!

Grüße

Johannes

Code:

---

Set ExcelApp = CreateObject("Excel.Application") 'Excel öffnen

ExcelApp.Workbooks.Open "C:\Users\....\Dokument-LEER.xlsx"    'Dokument öffnen

ExcelApp.Application.Cells(j, Spalte)   'Bestimmte Zelle auf aktiviertem Worksheet aufrufen 

---

[Diese Nachricht wurde von hannesoutoftrier am 15. Mai. 2011 editiert.]

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

---

Guten Morgen,

das sähe dann wie folgt aus:
excelApp.Workbooks("Test.xls").Worksheets("Tabelle2").Cells(j, Spalte).Value  'Bestimmte Zelle auf aktiviertem Worksheet aufrufen

Zum Austesten mit Meldungsbox:

Sub ZelleAuslesen()
Dim excelApp As Object
Set excelApp = CreateObject("Excel.Application") 'Excel öffnen
excelApp.Visible = true 'Excel sichtbar machen
excelApp.Workbooks.Open "C:\Test.xls"    'Dokument öffnen
Ergebnis = excelApp.Workbooks("Test.xls").Worksheets("Tabelle1").Cells(4, 3).Value  'Bestimmte Zelle auf aktiviertem Worksheet aufrufen
MsgBox Ergebnis
excelApp.Workbooks("Test.xls").Close
End Sub

Schönen Tag
Gruß Robin

[Diese Nachricht wurde von Robin69 am 16. Mai. 2011 editiert.]

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

---

Hallo,

vielen Dank für die schnelle Antwort. Hat alles bestens geklappt!

Grüße

Johannes

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