---

Servus,
also ich würd gern aus ein Excel Tabelle eine Wert aus einer bestimmten Zelle auslesen und dann in einem Textfeld in der Userform zurückgeben. ich weiß zwar wie man des in einem Makro direkt in Excel macht, aber in solidWorks funzt des net wirklich.
Ach, und wie man die Tabelle holt, ist mir au klar.
scho mal vielen dank
lg

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

---

Hallo UserKD,

alles was du benötigst ist eine Objektinstanz zu Excel!
Diese kannst du mit den Befehlen Create oder GetObject erzeugen.
Zum Beispiel so:

Code:

---

Dim oExcelApp As Object
Set oExcelApp = CreateObject("Excel.Application")

---

Sinnvoll ist es natürlich auch einen Verweis zu Excel in deinem SW-Makro. Aber es funktioniert natürlich auch ohne.
Wie du in Excel vorgehen musst weist du ja.

------------------
Mfg Daniel

www.MySldWorks.de - SolidWorks Api Snippets

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

---

Is auch scho drin.
nur funzt es wie bei Excel deswegen trotzdem net.
hab aber keine ahnung warum

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

---

Hallo,

und herzlich willkommen im Forum. Vielleicht könnten wir das Rätselraten etwas abkürzen, wenn Du den Code postest und vielleicht in Deine Systeminfo reinschreibts, welche Software / Hardware Du verwendest. Das würde uns ungemein weiterhelfen, weil wir nicht immerzu in unsere Glaskugel schauen müssten  (Meine wird gerade frisch poliert  )

Gruß HaPe

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

---

Hallo UserKD

Hast du dir das Beispiel-Makro "Get Excel Cell Value for Density Example (VB)" aus der SolidWorks API-Hilfe schon angeschaut? (Im Index unter "Excel, cells")

Damit wird ein Wert aus Excel übernommen und in SolidWorks weiterverwendet.

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

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

---

Wenn Du mit mehreren Applikationen herumhantierst, ist es manchmal notwendig, den Befehlen noch voranzustellen, welche gerade gemeint ist.
Zum Beispiel für eine Auswahl, bei der Du normalerweise im Excel nur 'Range("A2").Select' schreibst, mußt Du dann 'Excel.Range("A2").Select' eintippen. Probier mal...

------------------
Lutz Federbusch
Mein Gästebuch
Der Mensch, Herr oder Sklave der Technik?

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

---

Hier mal ein paar Codeschnipsel, um einen vorher in Excel markierten Bereich auszuwerten:

1. Excel-Applikation holen und das aktive Sheet aktivieren:

Set swApp = CreateObject("Sldworks.Application")

On Error Resume Next
Set xlApp = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
    MsgBox ("Excel muss geladen sein!")
    End
End If

'On Error GoTo fehler

Set Blatt = xlApp.ActiveSheet

If (Blatt Is Nothing) Then
    MsgBox ("Kein Excel-Arbeitsblatt geöffnet!")
    End
End If

Dann beispielsweise den in Excel ausgewählten Bereich holen und prüfen ob die Größe stimmt:

Set Bereich = xlApp.Selection

'Es müssen mindestens 2 Reihen und 2 oder 3 Spalten selektiert werden!

If Bereich.Rows.Count < 2 Then
    MsgBox "Der markierte Bereich muss sich über mindestens 2 Zeilen erstrecken!"
    End
End If

If Bereich.Columns.Count < 2 Or Bereich.Columns.Count > 3 Then
    MsgBox "Der markierte Bereich muss über zwei oder drei Spalten gehen"
    End
End If

Hier noch eine Schleife über den ausgewählten Bereich, die prüft, ob die eingegebenen Werte ZAHLEN sind:

For i = 1 To Bereich.Rows.Count
    For j = 1 To Bereich.Columns.Count

    If Not IsNumeric(Bereich.Cells(i, j)) Then
        MsgBox "Bitte prüfen Sie die Eingabewerte: Nur Zahlen sind erlaubt!"
        End
    End If
    If (Bereich.Cells(i, j) = "") Then
        MsgBox "Bitte prüfen Sie die Eingabewerte: Keine leeren Felder!"
        End
    End If
    Next j
   
Next i

HTH,

Gruß Thilo

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