我只想将每一行文本放入第一列的单元格中。
无论我设置什么设置,OpenText 都会对其进行解析。几乎尝试了一切,(给它 DataType:=xlDelimited 和 Other:=True 和 OtherChar:="$"没有帮助。仍然解析文本并将其放在每行的各个单元格中。
使用 Open File #1 进行输入对我不起作用,因为它不会逐行读取,而是将整个文件放入一个字符串中。 (Unix 源)。
我能做些什么。
编辑:作为旁注:我最终使用 FSO 使用以下代码更正了每行所需的希伯来语:
Public Function CorrectHebrew(ByVal gibberish As String) As String
Dim inStream As ADODB.stream
Set inStream = New ADODB.stream
inStream.Open
inStream.Charset = "WIndows-1255"
inStream.WriteText gibberish
inStream.Position = 0
inStream.Charset = "UTF-8"
CorrectHebrew = inStream.ReadText
inStream.Close
End Function
最佳答案
Excel 会记住您对“文本到列”的设置(也适用于 OpenText
)。如果您没有明确设置所有参数,则 Excel 将使用最近使用的参数。
尝试为所有参数提供值(Macro Recorder 应该为您执行此操作)。
关于excel - 如何在不解析的情况下使用 vba OpenText,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/41233307/