Excel / CreateObject

Jeg bruger pt denne til at lave en text fil

'Gemmer signalet i tablen sendtsignaler
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, _
                    FileName:=Forms!dnk_formular1!datotid)
                   
'ahtCommonFileOpenSave
With CreateObject("Scripting.FileSystemObject").createTextFile(strSaveFileName)
    .Write Forms!dnk_formular1!Tekst4
End With

Det virker fint.

Istedet for at skrive til en TextFile ville jeg gerne skrive til et Excel regneark og i kommandoen .Write Forms!dnk:formulaer1!tekst4 vil jeg gerne kunne sige noget i retning af .Write report.databaser men jeg kan ikke rigtigt finde ud af det og kan det lade sig gøre ??