Добрый День, может я плохо искал но решения так и не нашел. У меня в базе ACCESS формируется из таблицы некоторая информация которая в xml формате методом POST передается на сервер. Перед отправкой я сохраняю данные в txt формате для проверки если потребуется (как бы лог файл), после отправки данных, получаю ответ от сервера и опять записываю его в txt файл сохраняю как log. А вот дальше идет моя полная безграмотность не смейтесь, я копировал тхт файл с данными от сервера, сохранял как xml и импортировал в Access. Все бы хорошо, но дело дошло до русского текста в файле, и на этом все застопорилось. Текст сохраняется в ANSI а мне нужно чтобы в utf-8. Вот здесь и возникает вопрос 1 как поменять кодировку в txt файле средствами VBA. И второй вопрос я подозреваю, что путь которым я импортирую xml файл хоть и рабочий но, как бы выразиться не красивый что-ли, не правильный он, ведь можно просто взять данные которые я получил от сервера и без лишних операций импортировать в базу данных, но вот как это сделать не знаю.
Заранее спасибо.
1 Private Sub check_etr_Click()
2 On Error GoTo Err_check_etr_Click
3 Set objXml = CreateObject("Msxml2.XMLHTTP")
4 Set objXmlDoc = CreateObject("MSXML2.DOMDocument")
5 Dim rs As Recordset
6 Dim doc As String, ccode As String, x As String, y As String, my_rc As String
7 Dim rc_int As Integer, rc_full As Double, z As Integer
8 Set rs = CurrentDb.OpenRecordset("check_entered_cards")
9 If rs.RecordCount > 0 Then
10 rs.MoveFirst
11 Do While Not rs.EOF
12 mycart = "
" & rs("card_code") & "" & mycart
13 rs.MoveNext
14 Loop
15 End If
16 strXML = "" & _
17 "
" & _
18 mycart & _
19 "" & _
20 Open "D:\c_info_list_exp.txt" For Output As #1
21 Print #1, (strXML)
22 Close #1
23 objXml.Open "POST", "
http://000.000.000.000:81/UCS/SOAP/SOAP.php?xml_data=" & strXML, False
24 objXml.send (strXML)
25 Open "D:\c_info_list.txt" For Output As #1
26 Print #1, strXML
27 Close #1
28 FileCopy "D:\c_info_list.txt", "D:\c_info_list" & ".xml"
29 ImportXML "D:\c_info_list.xml"
30 Exit_check_etr_Click:
31 Exit Sub
32 Err_check_etr_Click:
33 MsgBox Err.description
34 Resume Exit_check_etr_Click
35 End Sub
http://www.sql.ru/forum/1155649/izmenenie-kodirovki-txt-fayla