---

Guten Morgen,
ich habe mir ein Makro für SolidWorks geschrieben.
Ich möchte aus SolidWorks heraus ein Excel Sheet öffnen und dann Daten in das Arbeitsblatt schreiben.
Grundsätzlich funktioniert das ganze, aber nur wenn ich im Debugg Modus Zeile für Zeile ausführe.
Im Normallauf wird im Hintergrund ein Excel geöffnet und es passiert weiter nichts.
Kann mir jemand einen Tipp geben was ich falsch mache.

Code:

---

Public Function Daten_schreiben(Datensatz As Variant)

Dim Dateipfad_schreiben As String
Dim Dateinamen_schreiben As String
Dim Speicherort As String
Dim Arbeitsbereich As Object
Dim Arbeitsblatt As Object
Dim i As Double
Dim j As Double
Dim savedate As String
Dim Korrektur As Single
Dim ArbeitsblattNeu As String

savedate = Right$((Date), 4) & "-" & Mid$((Date), 4, 2) & "-" & Left$((Date), 2)
ArbeitsblattNeu = "Rohdaten " & savedate

Set Arbeitsbereich = CreateObject("Excel.Application")

Speicherort = Arbeitsbereich.GetOpenFileName(FileFilter:="Excel-Dateien (*.xlsm*), *.xlsm*", Title:="Eine Datei zum Öffnen auswählen", MultiSelect:=False)
Arbeitsbereich.Visible = False
Set Arbeitsblatt = Arbeitsbereich.Workbooks.Open(Speicherort)

Arbeitsblatt.Activate
Arbeitsblatt.Worksheets.Add.Name = ArbeitsblattNeu
Arbeitsblatt.Worksheets(ArbeitsblattNeu).Move After:=Arbeitsblatt.Worksheets(Arbeitsblatt.Worksheets.Count)
Arbeitsblatt.Worksheets(ArbeitsblattNeu).Activate

Arbeitsbereich.Visible = True

Arbeitsblatt.Worksheets("CAD-EPLAN Handover List").Activate

Auswertung = True

Set Arbeitsbereich = Nothing
Set Arbeitsblatt = Nothing

End Function

---

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

---

Ich hab den Code kurz getestet und bei mir er läuft ohne Probleme durch.

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

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

---

Hallo HenryV,

unter was hast du das ganze getestet.
Der Teil soll in SWX laufen. Bei uns hat es an drei Rechnern nicht funktioniert. Jedoch habe ich den Fehler so beheben können, das ich die Dateiauswahl über den SWX GetOpenFileName Dialog mache und dann in Excel öffnet. Ich habe das Gefühl VBA in SWX kümmert es nicht ob in Excel ein Dialog offen ist und springt darüber hinweg.

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

---

Ich habe eine Test Excel-Datei mit einem Tabellenblatt "CAD-EPLAN Handover List" erstellt, dein Code in ein Solidworks-Makro kopiert und eine kleine Aufrufprozedur geschrieben.

Code:

---

Sub Test
    Daten_schreiben Nothing
End Sub

---

Und auf Play gedrückt

Datei-öffnen-Dialog erscheint
Excel-Datei ausgewählt
Excel erscheint und Datei hat neues Blatt mit dem Namen "Rohdaten 2023-02-28"

Meine System-Infos siehst du links.

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

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

---

Habe das Problem lösen können.
Die Ermittlung des Pfades vorverlegt und dann hat es gepasst.

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