Ich hab mal eine Frage?
Ich erstelle in exel meine Stücklisten für Baugruppen. Nun möchte ich mit einem Button die Zeichnungen im Cad-Programm öffnen.
Ist das überhaupt möglich und wenn ja wie?
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal lpnShowCmd As Long) As Long
Public Sub open_drawing()
ShellExecute 0, "open", "meineZeichnung.dwg", "", "H:\Zeichnungen\", 1
End Sub
Private Sub CommandButton1_Click()
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal lpnShowCmd As Long) As Long
Public Sub open_drawing()
ShellExecute 0, "open", "2004.20.00.00-000.dwg", "", "D:\Arbeit\Projekt Biegen\Zeichnungen AUTO CAD LT", 1
End Sub
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal lpnShowCmd As Long) As Long
Private Sub CommandButton1_Click()
ShellExecute 0, "open", "2004.20.00.00-000.dwg", "", "D:\Arbeit\Projekt Biegen\Zeichnungen AUTO CAD LT\", 1
End Sub