---

Welchen Befehl muss ich verwenden, um ein Ecxeldokument mit einem SW-Macro zuöffnen.  ICh scaff es zwar Excel aufzumachen, aber halt ohne Dokument.

Danke CHristoph

------------------
cma

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

---

Möchtest du das Dokument in Excel öffnen (dann Excel VBA) oder möchtest du die Tabelle in SolidWorks öffnen?

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

Brauchen Sie Hilfe, sind Sie in Not? Wir retten Sie mit unserem Code!
----------------------------------------------
SolidWorks API-Programmierung | Es gibt neue Freeware Tools und Addins

SolidWorks API Programmierung; Schuler Design Automation GmbH |      kontakt@schuler-da.de

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

---

gehts nicht mit:
Set xlbook = GetObject(docDir + "\" + xlName) ?

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

[Diese Nachricht wurde von u.clemens am 22. Jan. 2007 editiert.]

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

---

Abs probiert, aber der macxht dann nix.

Es soll nicht eine Tabelle in SW aufgemacht werden, sondern in Excel

------------------
cma

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

---

Hallo Oma1,

In diesem beitrag steht's wies geht!   http://ww3.cad.de/foren/ubb/Forum2/HTML/011716.shtml#000000
Grüße aus dem Allgäu
Conrad

[Diese Nachricht wurde von Conrad am 22. Jan. 2007 editiert.]

[Diese Nachricht wurde von Conrad am 22. Jan. 2007 editiert.]

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

---

Bei Excel 2003 gehts z.B. so:

Dim oExcelApp As Microsoft.Office.Interop.Excel.Application
Dim oWorkBook As Microsoft.Office.Interop.Excel.Workbook
dim sPfad = "C:\Test.xls"
'Excel Objekt belgen
oExcelApp = CreateObject("Excel.Application")
'Workbook (Tabelle) öffnen
oWorkBook = oExcelApp.Workbooks.Open(sPfad)

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

Brauchen Sie Hilfe, sind Sie in Not? Wir retten Sie mit unserem Code!
----------------------------------------------
SolidWorks API-Programmierung | Es gibt neue Freeware Tools und Addins

SolidWorks API Programmierung; Schuler Design Automation GmbH |      kontakt@schuler-da.de

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

---

Hallo Oma1,

versuchs mal hiermit:

Set xlsApp = GetObject(, "Excel.Application")
xlsApp.UserControl = False
xlsApp.DisplayAlerts = False
Set xlsWorkbook = xlsApp.Workbooks.Open(PFAD & DATEINAME.XLS)
Set xlsSheet = xlsWorkbook.Worksheets("Tabelle1")
xlsApp.Workbooks.Close

Grüße, Petra

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

---

Hallo

soll es nur darum gehen eine Datei mit der ihr zugewiesenen Anwendung zu starten, dann ist auch der nachfolgende Code ganz brauchbar.

LG
Heinz

Const MAX_FILENAME_LEN = 260
Private Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long

Sub main()
  Dim s2 As String
 
  s2 = String(MAX_FILENAME_LEN, 32)
 
  datei = "E:\01-03-bis-31-03-2005.xls"
 
  i = FindExecutable(datei, vbNullString, s2)
  If i > 32 Then
    Shell Left$(s2, InStr(s2, Chr$(0)) - 1) + " " + datei, vbMaximizedFocus
  Else
    MsgBox "Keine Anwendung gefunden!", vbOKOnly, "Fehler"
  End If
End Sub

------------------
Grüße
Heinz

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

---

Hallo Christoph,

versuche mal wie folgt.

Dim openXLS As String
Dim FilePath as String
FilePath = "C:\Path\"

openXLS = Shell("C:\Programme\Microsoft Office\OFFICE11\excel.exe " & FilePath & "Tabelle.xls", 1)

Wichtig: Leerzeichen nach excel.exe nicht vergessen!

------------------
Gruss Denys

[Diese Nachricht wurde von Denys am 23. Jan. 2007 editiert.]

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