Jak odczytać plik Excela za pomocą oprogramowania VBA?

Out of category
1

Witam 

Chciałbym pobrać dane z Excela zgodnie z nazwą mojego zestawu i zapisać je w jego właściwościach.

Ale jak tylko uruchomię kod, pojawia się komunikat o błędzie "Biblioteka nie jest zarejestrowana", ale dla wszystkich tych odwołań do biblioteki obiektów programu Microsoft Excel 15.0 jest zaznaczone.

Masz pomysł? 

 

Sub OpenExcel()

Dim xlApp As Excel.Application
Ustaw xlApp = Excel.Application
Dim wbk As Excel.Workbook
Dim sht As Excel.Arkusz roboczy

Z xlApp
    . Widoczne = Prawda
    . Workbooks.Open ("P:\05-Solidworks\CAD\Żądanie programisty.xlsm")
    
Zakończ się na

Koniec subwoofera
 

2

Nie wiem, dlaczego to nie działa, ale oto strona z wieloma działającymi przykładami, w tym jednym z plikiem xls:

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

 

Druga strona z przykładem:

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

Mamy nadzieję, że to Ci pomoże, a następnie możesz przekazać nam swoją opinię.

3

Witam 

Widziałem już te strony i testowałem je ale nic nie pomaga, zawsze mi mówi, że mam problem z referencją :( 

4

Znalazłem ten kod, który jest funkcjonalny (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

Redagować:

Wymiana linii:

Ustaw XlApp=Excel.Application poprzez:

Ustaw xlApp = CreateObject("Excel.Application")

To otwiera przede mną Excela.

 

5

aaaaah tak, otwiera to Excela dla mnie też:D!  

Dziwne, nie rozumiem różnicy...  

Cóż, musiałbym zrobić połączenie ADODB , aby było szybciej, ale zrobię to później  

Dziękuję Denis! 

6

Witam

Brakowało CreateObject. Albo musiałeś zakodować jak poniżej, aby utworzyć instancję Excela

Set xlApp = New Excel.Application

 

3 polubienia