Valg af fil

Hej

Jeg bruger dette modul i access nogen som ved om det kan bruges i excel også ?

Dim stDocName As String
Dim strFilter As String
Dim strSaveFileName As String

strFilter = ahtAddFilterItem(strFilter, "Tekstfil (*.txt)", "*.txt")
strSaveFileName = ahtCommonFileOpenSave( _
                                    OpenFile:=False, _
                                    Filter:=strFilter, _
                    Flags:=ahtOFN_OVERWRITEPROMPT Or ahtOFN_READONLY)
                   

With CreateObject("Scripting.FileSystemObject").createTextFile(strSaveFileName)
    .Write Forms!dnk_formular1!Tekst4
End With

Venlig Hilsen
Lars