✔ Von Excel noch Access(2000) und Access nach Excel Import / Export

[al-Maghribi]

ich hab mir aus mehreren skripten im internet so was zusammengewürfelt:

Option Compare Database
Option Explicit

Private Sub NEWEFUNKTION()



Dim fd As FileDialog
Dim fs As Object
Dim bckupFolder As Object
Dim fl As Object
Dim ExcelApp As Object
Dim NewMap As Object

' Dialogtitel kann man setzen
fd.DialogTitle = "Open Importfiles"
' fd.hWnd = Me.hWnd ' nur beutzen wenn aus Formular gestartet
fd.ShowFolder
If fd.FileName = "" Then
'Me!txtFolder = "(nothing selected)"
Exit Sub
End If


Set fs = CreateObject("Scripting.FileSystemObject")
Set bckupFolder = fs.GetFolder(selDir)
For Each fl In bckupFolder.Files
' in fl.Path steht der Dateiname mit Pfad
' walk through files in selected folder
' do what ever you want with these files
DoEvents
Next fl





Set ExcelApp = CreateObject("excel.application")
ExcelApp.Visible = True
Set NewMap = ExcelApp.Workbooks.Open(FileName)

'dann kann man mittels
'ExcelApp.Workbooks bzw.
'ExcelApp.Worksheets
'ueber die einzelnen Elemente interieren

End Sub


ich kriege diesen fehler: Methode oder daten object nicht gefunden ""DialogTitle"

 

[RavelinePower]

Hy @ll

Da öfters die frage auftaucht wie man von Access ins Excel übergibt habe ich bei DBWiki was gefunden.

siehe Anhang.

Greatz RavelinePower