将文本文件最一行不为空的数据写入EXCEC表格中

ykcbf1100

零柒一 发表于 2024-9-11 16:51
再请老师们帮哈忙解哈惑：这个1.txt 默认是ANSI编码格式，用你们的公式需要转换为UTF-8,能不能再修改下加个 ...

不用加代码转换为UTF-8格式了，已经转换好了。

零柒一

ykcbf1100 发表于 2024-9-12 08:45
不用加代码转换为UTF-8格式了，已经转换好了。

试了，1.txt为UTF-8就可运行，使用原始文件AUSI提取数据是空白。（每次是另存为UTF-8编码有点麻烦，或者添加代码将2.txt另存为1.txt UTF-8编码再提取）

零柒一

已解决

' utf8无BOM头编码写入文件
Function WriteUtf8WithoutBom( _
    ByVal f As String, ByVal st As String)
    Set stream = CreateObject("ADODB.stream")
    Set BStream = CreateObject("ADODB.stream")
    stream.Open
    stream.Type = 2
    stream.Charset = "utf-8"
    stream.WriteText st
    stream.Position = 3
   
    BStream.Type = 1
    BStream.Mode = 3
    BStream.Open

    stream.CopyTo BStream
    stream.Flush
    stream.Close

    BStream.SaveToFile f, 2
    BStream.Flush
    BStream.Close
End Function

Sub utf8WBom()
    Dim stxt$, af$, bf$, fso As Object
    af = ThisWorkbook.Path & "\1.txt" ‘或指定路径    af = SourcePath & "c:\1.txt"
    bf = ThisWorkbook.Path & "\2.txt"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set tf = fso.OpenTextFile(af, 1)
    stxt = tf.readall '读取全部
    Call WriteUtf8WithoutBom(bf, stxt)
   
    Set tf = Nothing
    Set fso = Nothing
End Sub