Bei Click Excel-Tabelle öffnen

Computer: Software & Programmierung Visual Basic
#1

Hallo,

ich hab folgendes Problem!
Ich möchte bei klick auf einen Button, dass Excel geöffnet wird oder eine Excel-Tabelle. Wie geht das???

Gruß

André

Im access mittels makro excel tabelle öffnen!
#2

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

#3

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)

#4

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

#5

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

#6

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