Избавление от лишних кавычек в экспортируемых текстовых файлах

Иногда фильтры экспорта, используемые Excel, могут приводить к нежелательным результатам в экспортируемом файле. Например, при экспорте в текстовый файл с разделителями табуляции некоторые фильтры Excel помещают кавычки вокруг текста в ячейке. Например, предположим, что конкретная ячейка содержит следующий текст:

Create bts; sitemask = «0110»; pcmlink = 40

Однако вот как текст в ячейке экспортируется в Excel:

«Create bts; sitemask =» «0110» «; pcmlink = 40 »

Обратите внимание, что Excel добавляет дополнительные кавычки, сначала вокруг всего содержимого ячейки, а затем дополнительный набор вокруг любого ранее” цитируемого “текста в ячейке.

Одно из решений проблемы – просто загрузить текстовый файл, созданный Excel, в другую программу, например Word, и использовать функцию «Найти и заменить» для удаления нежелательных кавычек. Однако лучшим решением является создание собственного макроса, который создает выходной текстовый файл. Рассмотрим следующий макрос:

Sub Export () Dim r As Range, c As Range Dim sTemp As String Open «c: MyOutput.txt» для вывода как # 1 для каждого r в выделенном фрагменте. Строки sTemp = «» Для каждого c In r.Cells sTemp = sTemp & c.Text & Chr (9) Next c ‘Избавиться от конечных вкладок While Right (sTemp, 1) = Chr (9) sTemp = Left (sTemp, Len (sTemp) — 1) Wend Print # 1, sTemp Next r Close # 1End Sub

Все, что вам нужно сделать, это выбрать ячейки, которые вы хотите экспортировать, и затем запустить макрос. Выбранные ячейки извлекаются из рабочего листа и помещаются в файл c: MyOutput.txt. (Это имя файла можно изменить в макросе по своему усмотрению.)

Источник: frestage.ru

Бытовой вопрос