Запись набора записей в текстовый файл из Excel vba - PullRequest
Новая
       51

Запись набора записей в текстовый файл из Excel vba

0 голосов
/ 13 февраля 2020

Приведенный ниже код работает правильно и записывает набор записей в текстовый файл: 

  Set rs = cnn.Execute(Sql)
  Dim objFSO As Object
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set txtfile = objFSO.CreateTextFile("d:\Test.txt", True)
  txtfile.Write rs.GetString

Однако выходные данные в текстовом файле разделяются табуляцией. Как я хотел, чтобы поля в текстовом файле были разделены "|" символ, последняя строка выше была заменена на 

txtfile.Write (rs.GetString(adClipString, , "|", , ""))

Это показывает ошибку времени выполнения 3001 с сообщением, что аргументы имеют неправильный тип, вне допустимого диапазона, конфликт и т. д. c. Как мне решить проблему.

...