Иногда фильтры экспорта, используемые 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" For Output As #1     For Each r In Selection.Rows         sTemp = ""

For Each c In r.Cells             sTemp = sTemp & c.Text & Chr(9)

Next c

'Get rid of trailing tabs         While Right(sTemp, 1) = Chr(9)

sTemp = Left(sTemp, Len(sTemp) - 1)

Wend         Print #1, sTemp     Next r     Close #1 End Sub

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

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (2237) применим к Microsoft Excel 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и более поздних версий) здесь:

link: / excelribbon-Getting_Rid_of_Extra_Quote_Marks_in_Exported_Text_Files [Избавление от лишних кавычек в экспортированных текстовых файлах].