Eroare la folosirea diacriticelor in VBA

[cvmircea]

Buna.Pun aceasta problema pe forum in speranta ca sunt colegi care au solutie pentru urmatoarea eroare:
-La exportul datelor dintr-o interogare intr-un fisier txt da" Runtime error 5 invalid procedure call argument"
aceasta eroare apare doar daca unul din campurile interogarii contine diactritice.
Codul VBA este :

Cod: Selectaţi tot

Set rst = CurrentDb.OpenRecordset("SELECT * FROM DetaliiFacturaPtExport WHERE [FacturaId] =  " & FacturaId)
Dim fs, TextFile
Set fs = CreateObject("Scripting.FileSystemObject")
Set TextFile = fs.CreateTextFile(Forms!frmHidden!CaleExportMentor.Value & "\Articole.txt", True)
Do Until rst.EOF = True
TextFile.WriteLine ("[ArticoleNoi_" & rst![Cod] & "]")
TextFile.WriteLine ("Denumire=" & rst![Denumire])
TextFile.WriteLine ("Serviciu=N")
TextFile.WriteLine ("ContServiciu=") & vbCrLf
rst.MoveNext
Loop
TextFile.Close

Eroarea apare la linia :
TextFile.WriteLine ("Denumire=" & rst![Denumire])
in cazul in care denumirea contine diacritice

[Dr.Excel]

Incearca sa pui al treilea argument (optional) al metodei CreateTextFile, care se numeste UNICODE, pe TRUE, implicit e pe false (asta accepta doar text ASCII fisierul).

Cod: Selectaţi tot

Set TextFile = fs.CreateTextFile(Forms!frmHidden!CaleExportMentor.Value & "\Articole.txt", True, True)