Формат сохраняемой ячейки без кавычек

[Sanch]

Имеется лист в документе Excel, который нужно сохранить в тхт файл. Если просто взять и сохранить руками документ, то все нормально, получается содержание типа:

первое слово, второе слово число
третье слово и четвертое число

Если же сохранять через макрос (ActiveWorkbook.SaveAs Filename:="E:\temp.txt", FileFormat:=xlText, _
CreateBackup:=False), то формат сохраняемого файла выходит таким

"первое слово, второе слово" число
третье слово и четвертое число

Проще говоря, фразы, которые содержат запятую, знак & (может еще какие то) выделяются кавычками. Как бы сделать, чтобы никаких кавычек не появлялось в независимости от содержимого ячейки? Пробовал уже задавать NumberFormat = "@" для этих ячеек, все равно с кавычками сохраняет.

[Димитрий]

Попробуй сохранить как xlUnicodeText

[Sanch]

Пробовал, все равно кавычки лезут.

[Димитрий]

У меня всё идёт без кавычек, но и разделитель стоит Tab.
Попробуй открытьь какой - либо txt файл указав разделитель Tab или пробел, а потом сохрани свой файл снова (а лутше новый другой тестовый).
Я думаю здесь в разделителе дело.

[alibek]

Я бы сохранял вручную, открывая файл Open ... For Output, выгружая в него строки Print #FileNumber, и закрывая файл Close.
Уже не первый раз слышу о глюках при загрузке/выгрузке в CSV.

[Sanch]

Значения ячейкам у меня присваивается так:

Worksheets("Sheet" & k).Cells(m, 2).Value = _
Worksheets("Лист1").Cells(m, 6).Value

Соотвественно это в цикле, m и к - переменные.
Причем даже если присвоить значения в макросе, а сохранить руками, то никаких кавычек нет
А если написать сохранение макросом, то появятся в любом случае
Можно как-нибудь обойтись использованием этой конструкции (с присовоением значений через =)? А то вся программа построена на этом принципе, а Print в VBA я еще ни разу и не пользовался - неделю только на VBA проги пишу, до этого только QBasic и C++
Димитрий разделитель - таб

[uhm]

Сохраняешь ты как? Через SaveAs?

[Sanch]

ActiveWorkbook.SaveAs Filename:="E:\temp.txt", FileFormat:=xlText, _
CreateBackup:=False

Так сохраняю. Пробовал и просто Save после SaveAs и вариантов 7-10 для FileFormat.

[uhm]

Правильно, а тебе предлагают другой вариант - сохранить вручную, как

открывая файл Open ... For Output, выгружая в него строки Print #FileNumber, и закрывая файл Close.

Почитай хелп по Open, Print и Close.

[Sanch]

Да, как оказалось Open Print и Close простые операторы, спасибо, что их посоветовали. Только вот проблема странная с ними. Открываю любой файл, пытаюсь вписать в него любые данные и ошибка Bad File Mode появляется. Даже макрос в примере не работает!

Код: Выделить всё

Sub TestMacro()
Open "E:\TESTFILE" For Output As #1    ' Open file for output.
Print #1, "This is a test"    ' Print text to file.
End Sub

Ошибка вылетает на строке с Print. На компьютер залогинен под администратором, все права доступа к файлу есть.
Нашел похожую тему на форуме, там предлагают офис переставить, видимо придется переставлять. Сейчас стоит Windows XP SP2, Office 2003 Pro Edition English. Может можно обойти ошибку используя этот офис?

[alibek]

Видимо с правами все-же что-то не то.

А код бы я советовал использовать так:

Код: Выделить всё

Dim FN As Integer
FN = FreeFile
Open "C:\TEMP\testfile" For Output As #FN
...
Print #FN, "Test string"
Write #FN, "Test string with quotas"
...
Close #FN

[Sanch]

Та же самая ошибка

[Sanch]

Поставил Office XP Pro Rus - все заработало

[Sanch]

Переписал программу используя Print - получилась еще короче и выполняется быстрее. Но теперь другая проблема возникла - как менять формат не ячейки, а переменной? Раньше я задавал формат ячейки так: Worksheets("Лист1").Cells(m, 6).NumberFormat = "0" а потом заносил в эту ячейку значение. Допустим занесенное число 311.55 менялось на 312. Теперь же я заношу значение ячейки в переменную T. И хранится там значение уже 311.55. Как мне поменять формат этой переменной на "0"?

[uhm]

Либо читать из ячейки не .Value, а .Text, либо перед записью использовать функцию Format$.