Bei Click Excel-Tabelle öffnen

5 Antworten zu dieser Frage

1. Antwort von nach 2 Stunden 0 hilfreich

   Re: Bei Click Excel-Tabelle öffnen

   Hallo!
   

   public sub comand1_click()
   dim x as variant
   
   x=shell("C:\Programme\office\excel.exe") ' Pfad zu "Excel.exe"
   end sub
   

   
   
   Das ist eine ganz einfache Variante, wenn Du mehr darüber (OLE) wissen willst, poste.
   
   
   Gruß
   
   
   
   Gollum
   

   • Antwort von (abgemeldet) nach 9 Tagen 0 hilfreich

     Re^2: Bei Click Excel-Tabelle öffnen

     Hallo!
     

     public sub comand1_click()
     dim x as variant
     
     x=shell("C:\Programme\office\excel.exe") ' Pfad zu "Excel.exe"
     end sub
     

     
     
     Das ist eine ganz einfache Variante, wenn Du mehr darüber
     (OLE) wissen willst, poste.
     
     
     Gruß
     Hi Gollum,
     
     Erst mal danke. Du sag mal gibt es auch so eine einfache Variante zum Excel-Dateien öffnen. Diese Version funktioniert ja nur mit Programmen, oder?
     
     Gruß André
     
     
     Gollum
     
     • Antwort von (abgemeldet) nach 9 Tagen 0 hilfreich

       Re^3: Bei Click Excel-Tabelle öffnen

       Hallo André,
       
       natürlich funktioniert das nur mit Programmen (mit VB bzw. VBA um genau zu sein). Aber wo sollte denn sonst dein Button herkommen??
       
       Gruß
       Daniel
       

2. Antwort von nach 3 Stunden 0 hilfreich

   Re: Bei Click Excel-Tabelle öffnen

   Besser mit ShellExecute, dann musst du den Pfad zur Excel.Exe nicht wissen:
   

   
   Public Declare Function ShellExecute Lib "shell32.dll" _
     Alias "ShellExecuteA" _
     (ByVal Hwnd As Long, ByVal Ipoperation As String, _
      ByVal Ipfile As String, ByVal Ipparameters As String, _
      ByVal Ipdirectory As String, ByVal nshowcmd As Long) _
   As Long
    
       Call ShellExecute(Me.Hwnd, vbNullString, _
         "C:\woauchimmer\xyz.xls", vbNullString, vbNullString, 1)
   

   
   
   Gruß aus dem Norden
   Reinhard Kraasch
   (http://www.kraasch.de - Access Tipps & Tricks)
   

3. Antwort von (abgemeldet) nach 2 Tagen 0 hilfreich

   Re: Bei Click Excel-Tabelle öffnen

   Hallo André,
   
   wenn du dann von deinem Programm aus noch was mit Excel veranstalten willst, empfielt sich Automation:
   - Füge in dein VB-Projekt einen Verweis auf die Excel Objektbibliothek hinzu.
   - Mit dem Code sollte es klappen:
   Private Sub Command1_Click()
   Dim ExApp As Excel.Application, ExWb As Excel.Workbook
   
   On Error Resume Next
   Set ExApp = GetObject(, "Excel.Application")
   If Err.Number = 429 Then Set ExApp = CreateObject("Excel.Application")
   On Error GoTo 0
   
   ExApp.Visible = True
   Set ExWb = ExApp.Workbooks.Open("E:\test\test.xls")
   'Hier kann noch mehr rein!
   
   Set ExWb = Nothing
   Set ExApp = Nothing
   End Sub
   
   Der Vorteil ist, das du nun über ExWb Zugriff auf die Arbeitsmappe hast als wärst zu im Excel-VBA, also kopieren, drucken und was weiss ich nicht noch alles.
   
   Gruß
   Daniel