Wie lese ich eine Excel-Datei über die VBA-SW?

Out of category
1

Hallo 

Ich möchte Daten aus einem Excel entsprechend dem Namen meiner Assembly abrufen und in die Eigenschaften dieser Assembly schreiben.

Aber sobald ich meinen Code ausführe , erhalte ich die Fehlermeldung "Bibliothek nicht registriert", aber für all das ist die Microsoft Excel 15.0 Object Library-Referenzen überprüft.

Haben Sie eine Idee? 

 

Sub OpenExcel()

Dim xlApp As Excel.Application
Legen Sie xlApp = Excel.Application fest
Dim wbk As Excel.Workbook
Dim sht As Excel.Arbeitsblatt

Mit xlApp
    . Sichtbar = Wahr
    . Arbeitsmappen.Öffnen ("P:\05-Solidworks\CAD\Developer Request.xlsm")
    
Enden mit

Ende Sub
 

2

Ich weiß nicht, warum es nicht funktioniert, aber hier ist eine Seite mit vielen funktionierenden Beispielen, einschließlich einer mit einer xls-Datei:

https://www.codestack.net/solidworks-api/document/tables/write-excel-table-into-general-table/

 

Eine 2. Seite mit Beispiel:

https://www.cadsharp.com/blog/using-microsoft-excel-with-the-solidworks-api/

Hoffentlich hilft Ihnen das und dann können Sie uns Feedback geben.

3

Hallo 

Ich habe diese Seiten bereits gesehen und getestet, aber nichts hilft, er sagt mir immer, dass ich ein Referenzproblem habe:( 

4

Ich habe diesen Code gefunden, der funktionsfähig ist (sw2020 Excel 16.0)

Option Explicit

 

Dim swApp As Object
Dim swModel As Object
Dim xlApp As Object

Dim xlSheet As Object
Dim xlBooks As Object
 

Sub Main()

 

Set swApp = Application.SldWorks

Set swModel = swApp.ActiveDoc

 

Set xlApp = CreateObject("Excel.Application")

xlApp.Visible = True

xlApp.Workbooks.Open "\\Hul-fps1\fsm$\BOLSTERS.xls"

Set xlSheet = xlApp.ActiveSheet

 

End Sub

Redigieren:

Ersetzen Sie Ihre Leitung:

Legen Sie XlApp=Excel.Application wie folgt fest:

Set xlApp = CreateObject("Excel.Application")

Das eröffnet mir ein Excel.

 

5

aaaaah ja, es öffnet auch Excel für mich:D!  

Seltsam, ich verstehe den Unterschied nicht...  

Nun, ich müsste eine ADODB-Verbindung herstellen, um es schneller zu machen, aber ich werde es später  tun

Danke Denis! 

6

Hallo

Es war das CreateObject, das fehlte. Oder Sie mussten wie folgt programmieren, um eine Excel-Instanz zu erstellen

Set xlApp = New Excel.Application

 

3 „Gefällt mir“