title image


Smiley Re: Aus Access Excel öffnen Fehler 91

Hallo zusammen,ich habe leider immer noch die Fehlermeldung 91.Also ich möchte über einen Button in meinem Formular eine Exceldatei öffnen und auf die erste Zelle links oben positionieren.Bei der Zeile ActiveCell.Range("A1").Select kommt immer Fehlermeldung 91 (Objektvariable oder with-Block Variable nicht festgelegt).

Hier mal mein Code:

 

im Modulkopf  (in ALLEN Modulköpfen!)

Option Compare Database

Option Explicit

 

Private Sub hl_Button_Click()

On Error GoTo Err_Click

Dim Pfad As String

Dim Dateiname As String

Dim BKZ_xls As String

Dim xlApp As Object, xlBook As Object

Pfad = DMax("Pfad", "Parameter")   'Sinn ??

Dateiname = DMax("Dateiname", "Parameter") ' Sinn??

Pfad = Pfad & Dateiname

On Error Resume Next   

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

If xlApp Is Nothing Then       

Set xlApp = CreateObject("Excel.Application")       

blnExcelWasOpen = False   

Else       

blnExcelWasOpen = True   

End If   

On Error GoTo 0   

xlApp.Visible = True    

Set xlBook = xlApp.Workbooks.Open(Pfad, True, True) 'schreibgeschützt öffnen   

'Auf das erste Feld links oben bewegen   

With xlBook.ActiveSheet        

.Range("A1").Select   

End With

Exit_Click:   

' evtl hier alle Objekte schliessen/zerstören

Exit Sub

SubErr_Click:    MsgBox err.Number & " " & err.Description   

Resume Exit_Click

End Sub

 

 

 

Was soll der Code denn bewirken, außer die Zelle A1 zu markieren/selektieren?

 

 

 

Gruß

Franz, DF6GL


Gruß vom Bodensee
Franz, DF6GL

PS: Bitte nach Tipps oder Lösungsvorschlägen immer eine Erfolgs- / Mißerfolgsmeldung posten!


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: