战魂小筑

讨论群:309800774 知乎关注:http://zhihu.com/people/sunicdavy 开源项目:https://github.com/davyxu

   :: 首页 :: 新随笔 :: 联系 :: 聚合  :: 管理 ::
  252 随笔 :: 0 文章 :: 506 评论 :: 0 Trackbacks

网上找了很多, 真正好用的代码不多, 自己研究了下,写下例子备份

 

Private Sub ConvFile(InputFile As String, OutputFile As String)
 
    Dim ReadStream As Object
    Set ReadStream = CreateObject("ADODB.Stream")
    
    Dim FileContent As String
    
    With ReadStream
        .Type = 2               'adTypeText
        .Charset = "UNICODE"
        .Open
        .LoadFromFile InputFile
        FileContent = .ReadText
        .Close
        
    End With
    
    Set ReadStream = Nothing
    
    
    
    Dim WriteStream As Object
    Set WriteStream = CreateObject("ADODB.Stream")
       
    
    With WriteStream
        .Type = 2               'adTypeText
        .Charset = "UTF-8"
        .Open
        .WriteText FileContent
        .SaveToFile OutputFile, 2  'adSaveCreateOverWrite
        
        .Flush
        .Close
        
    End With
    
    Set WriteStream = Nothing
 
    
End Sub

 

上半截是读取文件, 下半截是写入文件, 需要转换不同格式, 请自行更换

posted on 2012-09-13 19:43 战魂小筑 阅读(5694) 评论(2)  编辑 收藏 引用 所属分类: 脚本技术

评论

# re: Excel中VBA转换文件编码到UTF-8 2016-01-11 16:06 ysd133_p
能不能给个例子啊,不知道怎么解。  回复  更多评论
  

# re: Excel中VBA转换文件编码到UTF-8 2016-02-26 15:04 THANKS
非常好的程序,节省了时间,调试通过!谢谢  回复  更多评论
  


只有注册用户登录后才能发表评论。
【推荐】超50万行VC++源码: 大型组态工控、电力仿真CAD与GIS源码库
网站导航: 博客园   IT新闻   BlogJava   知识库   博问   管理