Overførsel fra Excel til Access

Sub ListFilesInFolder(SourceFolderName As String, IncludeSubfolders As Boolean)
' lists information about the files in SourceFolder
' example: ListFilesInFolder "C:\FolderName\", True
   
    Dim FSO As Scripting.FileSystemObject
    Dim SourceFolder As Scripting.Folder
    Dim SubFolder As Scripting.Folder
    Dim FileItem As Scripting.File
    Set FSO = New Scripting.FileSystemObject
    Set SourceFolder = FSO.GetFolder(SourceFolderName)

    For Each FileItem In SourceFolder.Files
        ' eksporter dine filer her til Access...
    Next FileItem
   
    If IncludeSubfolders Then
        For Each SubFolder In SourceFolder.SubFolders
            ListFilesInFolder SubFolder.Path, True
        Next SubFolder
    End If
   
    Set FileItem = Nothing
    Set SourceFolder = Nothing
    Set FSO = Nothing
End Sub

Hmmm... hvor skal denne kode indsættes?

og.. jeg er ikke lige så skarp til det kodeværk.. så jeg skal nok bruge lidt mere forklaring..

Det er denne der skal ændres til det:

Function Makro1111()
On Error GoTo Makro1_Err

    DoCmd.TransferSpreadsheet acImport, 7, "Test", "F:\jesper\8886.wk4", False, "A:A18..A:B18"


Makro1_Exit:
    Exit Function

Makro1_Err:
    MsgBox Error$
    Resume Makro1_Exit

End Function

Svar