Navn på fil
HejKan man få denne kode til at, for den som standard skrive en bestemt tekstbox som filnavn, men man skulle kunne ændre det?
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
/lars