Hallo!
Ich sitze gerade daran, dass Excel mir SolidWorks öffnen kann (via VBA). Soweit so gut... nun möchte ich noch eine Baugruppe öffnen, allerdings gibt mir SWX immer eine Fehlermeldung wieder
Wenn ich mit dem Code eine Batch-Datei aufrufe (start "" "C:\programme\solidworks (2)\solidworks (2)\sldworks.exe" "F:\Eigene Dateien\-1- Projekt - Konfigurator\test\Formen\Lichteinsatz\M60x90.SLDASM") geht es
Ich möchte das ganze aber möglichst ohne Batch!!
Besten Dank im Vorraus
Hier mal der gefundene Code
_________________________________________________________________
Option Explicit
Private Declare Function OpenProcess Lib "kernel32.dll" ( _
ByVal dwDesiredAccess As Long, _
ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32.dll" ( _
ByVal hObject As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32.dll" ( _
ByVal hHandle As Long, _
ByVal dwMilliseconds As Long) As Long
Private Const PROCESS_QUERY_INFORMATION = &H400
Private Const SYNCHRONIZE = &H100000
Private Const INFINITE As Long = &HFFFFFFFF
Public Sub ShellAndWait()
Dim lngTaskID As Long, lngProcID As Long, lngExitCode As Long
lngTaskID = Shell("C:\programme\solidworks (2)\solidworks (2)\sldworks.exe F:\Eigene Dateien\-1- Projekt - Konfigurator\test\Formen\Lichteinsatz\M60x90.SLDASM", vbMaximizedFocus)
lngProcID = OpenProcess(SYNCHRONIZE + PROCESS_QUERY_INFORMATION, 0&, lngTaskID)
Call WaitForSingleObject(lngProcID, INFINITE)
Call CloseHandle(lngProcID)
AppActivate Application.Caption, True
MsgBox "Jetzt geht's weiter"
End Sub
_________________________________________________________________
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP