title image


Smiley Re: Datei öffnen in ein Formular integrieren ?
Hallo Omron,

anbei die Synkax.

Function EXCEL_Oeffnen()

On Error GoTo Err_FehlerMarke

'On Error Resume Next

DoCmd.Hourglass True



Dim ExcelApp As Excel.Application 'earlybinding frühzeitiges einbinden der Objektklassen

Dim WB As Excel.Workbook

Set ExcelApp = GetObject(, "Excel.Application")

Set WB = ExcelApp.Workbooks.Open("E:\Kfm.Service\Controlling\Vertrieb\2002\A-Kostenrechnung\A-4_ERG\Übergreifend\Centerberichte_Basis-DEVI\SchlechtersterDB.xls")

' Init

WB.Application.Run "SchlechtersterDB.xls!Makro1"



' Range("A15:K15037").Select

' Selection.ClearContents



' Kopfdaten

WB.ActiveSheet.Range("E3") = 23

WB.ActiveSheet.Range("E4") = 45



DoCmd.Hourglass False

ExcelApp.Visible = True ' ExcelApp.Visible = visible bedeutet Excel am Bildschirm anzeigen







'WB.Close

'ExcelApp.Quit



'Set ExcelApp = Nothing



Exit_FehlerMarke:

Exit Function





Err_FehlerMarke:

If Err.Number = 429 Then

Set ExcelApp = CreateObject("Excel.Application")

Resume Next

Else

msgbox Err.Number & " " & Err.Description 'Fehlernummer und Fehlerbeschreibung

Resume Exit_FehlerMarke

End If









End Function

mit Gruss

Zamek

PS

Vergesse nicht bei nach der Functionöffnung bei:

Extras

Verweise

MSEXCEL in der entsprechenden Version zu holen

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: