---

Hallo,

ich würde gerne via Klick auf einem Userform eine Exceldatei im Pfad x:\abc\def\ öffnen!

Hat jemand das schon mal gemacht?

------------------
Gruß, der Teddibaer
---------
Der Computer ist die logische Weiterentwicklung des Menschen: Intelligenz ohne Moral.
John Osborne (1929-94)

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

---

Ich glaube, dass könnte es sein. Hätte ja auch erst da mal nachschauen sollen:
http://solidworks.cad.de/mm_03.htm

------------------
Gruß, der Teddibaer
---------
Der Computer ist die logische Weiterentwicklung des Menschen: Intelligenz ohne Moral.
John Osborne (1929-94)

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

---

Hallo Teddibaer,
oder so z.B.:

Sub StartExcel()
  Dim strProgPfad As String
 
  strProgPfad = "c:\Programme\Microsoft Office\Office\excel.exe D:\SWX\Zubehör\Stückliste\Stückliste_SWX.xls"
  Call Shell(strProgPfad, 1)
 
End Sub

Gruß

------------------
pi-design

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

---

... und wenn das nicht hilft, lies mal hier nach:
http://www.vbarchiv.net/faq/vbvba_excel.php
http://www.vbarchiv.net/archiv/tipp_details.php?pid=701

------------------
mfg uc

[Diese Nachricht wurde von u.clemens am 08. Nov. 2004 editiert.]

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

---

Zitat:

---

Original erstellt von pi-design:

Hallo Teddibaer,
oder so z.B.:

Sub StartExcel()
  Dim strProgPfad As String
 
  strProgPfad = "c:\Programme\Microsoft Office\Office\excel.exe D:\SWX\Zubehör\Stückliste\Stückliste_SWX.xls"
  Call Shell(strProgPfad, 1)
 
End Sub

Gruß

---

Meine Lösung sollte so sein:
Private Sub CommandButton1_Click()

Dim Progpfad As String

  Progpfad = "c:\Programme\Microsoft Office\Office\excel.exe 'C:\Dokumente und Einstellungen\wellmann\Desktop\Systemoptionen.xls'"
  MyAppID = Shell(Progpfad, 1)
 
'Dim strProgPfad As String
 
End Sub

Problem ist aber, das trotz der Hochkommas (da Leerzeichen im Pfad) mehrere Exceldatei öffnen will, da er den Pfad zerstückelt.

Ne Idee? Muss noch irgendwas eingebunden werden?

------------------
Gruß, der Teddibaer
---------
Der Computer ist die logische Weiterentwicklung des Menschen: Intelligenz ohne Moral.
John Osborne (1929-94)

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

---

Kann Dir da leider auch nicht weiterhelfen
Sorry

------------------
pi-design

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

---

HI Peter,
ich machs so:

Code:

---

Const XLSPfad = "Z:\SolidWorks Tools\Makros\Makros\gismo.xls"    ' Pad zur Excel Datei
   

    Set ExcelDokument = GetObject(XLSPfad)
    ExcelDokument.Worksheets("Werkstoffe").Activate
    Set XlsDoc = ExcelDokument.activesheet

'zugreifen geht dann so:
    Dim i
    i = 1
    Do While XlsDoc.cells(i, 1) <> ""
        WerkstoffXLS(i, 1) = XlsDoc.cells(i, 1)
        WerkstoffXLS(i, 2) = XlsDoc.cells(i, 2)
    i = i + 1
    Loop
    WerkstoffXLS(0, 1) = i
    For i = 1 To WerkstoffXLS(0, 1)
        CmbWerkstoff.AddItem WerkstoffXLS(i, 1)
    Next

---

ich hoffe, das war etwas so, wie du es Brauchst

CU

------------------
Viele Grüße aus dem Schwarzwald
gismo
Meine bescheidene Website Klamm? Was ist Klamm?

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