vba判断文件编码格式_VBA 把目录下所有CSV文件的编码由UTF-8转换成ANSI

展开全部

给你编个VBS版的，但又没有文件，没有测试，请上传个文件让我试下？32313133353236313431303231363533e4b893e5b19e31333335326232以下文件复制到文本文件中，另存为  ===>  编码转换.vbs，即可。On Error Resume Next

Set WshShell = wscript.CreateObject("Shell.Application")

dirpath = WshShell.BrowseForFolder(0, "请选择路径", 0, "").items().Item().Path

If Right(dirpath, 1) <> "\" Then dirpath = dirpath & "\"

ma = InputBox("请输入要转换为的编码", "", "Unicode")

If ma = "" Or dirpath = "\" Or MsgBox("在使用前请确认已备份文件夹" & dirpath, 1) = 2 Then wscript.Quit

'遍历文件夹下的文件

Set FSO = CreateObject("scripting.filesystemobject")

Set f = FSO.GetFolder(dirpath)

Set fs = f.Files

For Each fileN In fs

FN = dirpath & fileN.Name &