Public Function exptxt()
Dim XL As Object, WB As Object, WS As Object
Set XL = CreateObject("Excel.Application")
Set WB = XL.Workbooks.Open(CurrentProject.Path & "\test.xls")
Set WS = WB.Worksheets("Лист1")
XL.Application.DisplayAlerts = False
WS.SaveAs CurrentProject.Path & "\test.txt", 20
XL.Application.DisplayAlerts = False
WB.Close
Set WS = Nothing
Set WB = Nothing
Set XL = Nothing
End Function