Excel читать текстовые файлы, удаляя котировки

Я пытаюсь прочитать текстовый файл в Excel, который представлен в следующем виде:

"DVXX = 2,37"

"DVID = 1,967"

"WLXX = 1906"

Я создал цикл, который ищет определенные ключевые слова, например, DVXX , смещает и сообщает значение:

 Open strFile For Input As #intFile For i = 1 To 23 Do While Not EOF(intFile) Line Input #intFile, strIn Key_len = Len(Keywords(i)) If Left(strIn, Key_len) = Keywords(i) Then strOut = Mid(strIn, Key_len + 3) Cells(25 + i, 1).Value = Keywords(i) Cells(25 + i, 2).Value = strOut Exit Do End If On Error Resume Next Loop Next i Close #intFile 

Этот код отлично работает, когда я просматриваю и удаляю все цитаты, однако текстовые файлы, которые были сгенерированы, будут иметь кавычки. Есть ли способ прочитать эту информацию без ручного удаления котировок?

Добавьте это право после прочтения строки:

 strIn = Replace(strIn, chr$(34), "") 
Interesting Posts

Деактивировать выбор всего листа после вставки

Функция Excel для сортировки двух столбцов в один

Маркировка с использованием вторичной оси и поворот

Запуск Total +% Of (сводная таблица)

Фиксация ячеек в Excel

Excel VBA для вызова одного макроса путем изменения нескольких независимых изменений рабочего листа

VBA Excel медленно перемещается на основе общих итераций цели

VBA Вставить пустую строку на основе различий в ячейках

Удаление нескольких столбцов в нескольких файлах Excel, находящихся в папке

Значение ячейки таблицы, указанной в другой ячейке таблицы

Как получить список фильтруемых параметров из Autofilter в Powershell?

Использование xlswrite для экспорта большой матрицы из MATLAB в Excel

Объединить 2 таблицы Excel в одно дополнение данных?

VBA: форматирование нескольких выбранных графиков (диаграмма, сюжет, легенда и т. Д.)

Перемещение строки в конец другого на основе определенных условий

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