1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

Sub coding()

Const codepageWin1251 = "windows-1251"

Const codepageDOS866 = "cp866"

Const codepageKOI8R = "koi8-r"

Const codepageUTF7 = "utf-7"

Const codepageUTF8 = "utf-8"

Const codepageASCII = "ascii"

Const adWriteChar = 0

Const adTypeText = 2

Const adSaveCreateOverWrite = 2

Dim pStream As Object, sTxt As String

Set pStream = CreateObject("ADODB.Stream")

pStream.Type = adTypeText

pStream.Charset = codepageWin1251

pStream.Open

pStream.LoadFromFile ActiveWorkbook.Path & "" & global_save_date & "\NAM.csv"

sTxt = pStream.ReadText

pStream.Close

pStream.Charset = codepageDOS866

pStream.Open

pStream.WriteText sTxt, adWriteChar

pStream.SaveToFile ActiveWorkbook.Path & "" & global_save_date & "\NAM.csv", adSaveCreateOverWrite

pStream.Close

End Sub