title image


Smiley Bibliothek nicht auffindbar
Hallo

(Access 97)

Auf www.kraasch.de hab ich mir ein Formular mit Buttons zum Übertragen von Daten von Access nach Excel runtergeladen, und das funzt aber leider nicht:



Private Sub ExcelRecordset_Click()

Dim oExcel As Excel.Application, DB As DAO.Database, RS As DAO.Recordset, I As Long

On Error Resume Next

Err.Clear

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

If Err.Number 0 Then Set oExcel = CreateObject("Excel.Application")

On Error GoTo 0

With oExcel

.Visible = True

.Workbooks.Add

.ActiveSheet.Name = CStr(Me!Blatt)

' Set RS = Me.RecordsetClone

Set DB = CurrentDb

Set RS = DB.OpenRecordset("qryAdresse", dbOpenSnapshot)

If Me!Spaltenk Then

For I = 0 To RS.Fields.Count - 1

.Cells(1, I + 1) = RS.Fields(I).Name

Next I

.Range("A2").Select

Else

.Range("A1").Select

End If

.Selection.CopyFromRecordset RS

If MsgBox("Speichern?", vbYesNo + vbQuestion) = vbYes Then

.ActiveWorkbook.SaveAs Me!FName

Else

.ActiveWorkbook.Close SaveChanges:=False

End If

.Quit

End With

End Sub



gleich in der ersten Zeile kommt für oExcel as Excel.Application die Meldung, daß die Bibliothek nicht auffindbar sei. Was heisst das und woran kann das liegen? In der Access-Hilfe kann ich leider nüx sinnvolles zum Thema Bobliotheken finden. :(

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: