Напишите экспорт выбранных ячеек как .txt-файл без "кавычек"

Я работаю над листом Excel, который получает много информации. В некоторых столбцах есть информация, которую мне нужно использовать в скрипте, и я использую следующий код, который я нашел, чтобы сохранить все, что я выбираю в .txt-файле после того, как я нажму кнопку.

Private Sub CommandButton21_Click() Dim myFile As String, rng As Range, cellValue As Variant, i As Integer, j As Integer myFile = Application.DefaultFilePath & "\NumeroChamados.txt" Set rng = Selection Open myFile For Output As #1 For i = 1 To rng.Rows.Count For j = 1 To rng.Columns.Count cellValue = rng.Cells(i, j).Value If j = rng.Columns.Count Then Write #1, cellValue Else Write #1, cellValue, End If Next j Next i Close #1 End Sub 

Вещь – это все, что я сохраняю, заканчивается кавычками, как показано ниже:

 "4146546546523133" "4285725763131" "461" "4230236646435356694197285187451644148" "4230375763756379653464564" 

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

Чтобы избежать добавления кавычек ко всему, что Excel интерпретирует как строку (даже текст, который выглядит как-a-number), используйте Print вместо Write .

 Private Sub CommandButton1_Click() Dim myFile As String, rng As Range, cellValue As Variant, i As Integer, j As Integer myFile = Application.DefaultFilePath & "\NumeroChamados.txt" Set rng = Selection Open myFile For Output As #1 For i = 1 To rng.Rows.Count For j = 1 To rng.Columns.Count cellValue = rng.Cells(i, j).Value If j = rng.Columns.Count Then Print #1, cellValue Else Print #1, cellValue, End If Next j Next i Close #1 End Sub 

введите описание изображения здесь

  • Функции Excel с динамическим диапазоном
  • экспорт Datatable csv to excel научный номер c #
  • python csv форматирует все строки в одну строку
  • Преобразование ctrl Файл с разделителями в csv
  • Java - запись строк в файл CSV
  • Вставка больших объемов данных в Excel
  • Экспорт конкретных столбцов из Excel в .csv Powershell
  • Как добавить значения, разделенные запятыми, в ячейку ячейки CSV с помощью java
  • Python / Excel - объединить .xlsx книги из файла в .csv
  • Сохранение в CSV в Excel теряет региональный формат даты
  • Обработка нескольких значений в одной ячейке для экспорта в CSV
  • Interesting Posts

    Не удается отправить вложение в сообщениях электронной почты с помощью макроса VBA

    Обязательная ячейка в Excel предотвращает второй столбец перед первым

    Автоматическая калибровка и автоматическая копия в Excel

    Форматирование текста Excel

    OLEDB выделяет нежелательный символ (')

    Можно ли отображать сообщение в соседней ячейке в Excel, если на листе есть ЛЮБЫЕ точные совпадения?

    Excel VBA IE Получить координаты элемента для мыши

    HYPERLINK с переменной (имя столбца или ячейка), содержащее номер отслеживания несущей

    Свернуть Столбцы вокруг столбца даты в Excel

    Схема xsd от excel с идентификационными идентификаторами

    имя столбца max no в строке

    Почему этот формат CDATE не будет равен mm / yyyy?

    excel 2007 VBA Subscript вне диапазона, проблема ReDim Preserve, когда не найдены дубликаты

    (Вложенные транзакции не поддерживаются), когда данные вставлены с использованием листа excel в базе данных mysql

    Почему FreezePane работает только на первом листе?

    Давайте будем гением компьютера.