czjt1234

转换当前目录下所有.xls
"1.xls"  转换为 "Unicode 1.xls"
就是不清楚原来是什么格式

strPath = CreateObject("Wscript.Shell").CurrentDirectory
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPath)
set objFiles = objFolder.Files

for Each objFile In objFiles
    If LCase(Right(objFile.Name, 3)) = "xls" Then
        With CreateObject("Adodb.Stream")
            .Charset = "utf-8"    '原来是什么格式？
            .Type = 2
            .Mode = 3
            .Open
            .LoadFromFile objFile.Name
            strRead = .ReadText
            .Close
        End With

        With CreateObject("Adodb.Stream")
            .Charset = "Unicode"
            .Type = 2
            .Mode = 3
            .Open
            .WriteText strRead
            .SaveToFile "Unicode " & objFile.Name, 2
            .Close
        End With
        Msgbox objFile.Name & " 转换完毕。"
    End If
Next
复制代码

czjt1234

哦，不对，不能直接读取.xls文件

要读取里面的工作表的内容

excel对象还没学习过，帮不了你

czjt1234

不能直接读取.xls文件

不是文本流的数据