Копирование строк из Wordpad в Excel с помощью VBA

Question

Я пишу код, в котором я импортирую некоторые файлы в формате TMX (форма xml). Я попробовал различные варианты

а) с помощью Open FileName Для ввода, но это ухудшит кодировку

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

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

Мой вопрос прямо сейчас, это то, что мне нужно скопировать файл построчно, чтобы лечить его содержание в соответствии с моими потребностями (надеюсь, не теряя при этом кодировку

ли кто-нибудь знает, как копировать каждую строку из файл открыт в WordPad и вставьте его после обработки (выбор соответствующих элементов) в Excel

Спасибо

Answer 1

Для больших файлов, которые вы можете использовать это решение:

Public Sub ImportTMXtoExcel() 

Call Application.FileDialog(msoFileDialogOpen).Filters.Clear 
Call Application.FileDialog(msoFileDialogOpen).Filters.Add("TMX Files", "*.tmx") 
Application.FileDialog(msoFileDialogOpen).Title = "Select a file to import..." 
Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False 
intChoice = Application.FileDialog(msoFileDialogOpen).Show 
If intChoice <> 0 Then 
    strFileToImport = Application.FileDialog(msoFileDialogOpen).SelectedItems(1) 
Else 
    Exit Sub 
End If 

intPointer = FreeFile() 
Open strFileToImport For Input Access Read Lock Read As #intPointer 

intCounter = 0 
Do Until EOF(intPointer) 
    Line Input #intPointer, strLine 
    intCounter = intCounter + 1 
    Worksheets(1).Cells(intCounter + 1, 1).Value2 = strLine 
Loop 

Close intPointer 

End Sub 

Для других кодировок вы можете использовать поток ADO, как описано в этом растворе: VB6/VBScript change file encoding to ansi

Если у вас есть большие файлы, которые требуют поток ADO, то вы могли бы хотеть рассмотреть разбивают крупные файлы первой, как описано в этом растворе: How to split a large text file into smaller files with equal number of lines?

следующий сайт предоставляет инструмент, который имитирует команду раскол Unix для Windows, в командной строке: https://www.fourmilab.ch/splits/