[已解决]VBA更改txt文件“编码格式”为UTF-8？18楼附答谢文件

卧美吻花

各位达人，小生这厢有礼了先

 

我在excel中，需要使用VBA输出一些数据文件，代码如下：

    Dim i%, irow%
    Dim T As String
    FullName = "d:\dbf\output.txt"

    Open FullName For Append As #1
    For i = 1 To a
     Print #1, Cells(i, 14)
    Next i
    Close #1

 

但是，这样输出的文件，其编码方式是ANSI的[em11]

请问：如何定义这段代码，使之输出的output.txt文件为UTF-8编码方式呢？

看了半天帮助文件，也试了半天了，还是没明白“msoEncodingUTF8”该怎么用[em06]

还望各位达人不吝赐教

[此贴子已经被作者于2006-11-8 0:47:21编辑过]

卧美吻花

下面是我用来实现由VBA输出特定文件名的文本文件的程序代码

这个msoEncodingUTF8到底应该加在Open那一行的哪个位置啊？

高亮的那一行在VBA里运行不会报错，但是也没有效果[em06]

 

 

Private Sub CommandButton1_Click()
   Application.ScreenUpdating = False
           For ii = 3 To 5000
            Cells(ii, 14).Select
            If ActiveCell.Value <> "" Then
               a = ii
            End If
          Next ii
    Dim i%, irow%
    Dim T As String
    FullName = "d:\dbf\" & Cells(1, 1)
    Open FullName For Append As #1
    FullName.msoEncodingUTF8
    For i = 1 To a
     Print #1, Cells(i, 14)
    Next i
    Close #1
Application.ScreenUpdating = ture
Range("B2").Select
End Sub

[此贴子已经被作者于2006-11-7 8:45:46编辑过]

卧美吻花

没有人知道么？还是不屑于回答这样的菜鸟问题？很急的说[em11]

 

偶已经尝试过很多种方法了，还是不得其门而入[em06]

[此贴子已经被作者于2006-11-7 10:45:12编辑过]

northwolves

Application.DefaultWebOptions.Encoding = msoEncodingUTF8

lotustower

試試 轉化 UTF-8

Private Function GetUTF8String(s As String) As String
    Dim i As Integer
    Dim utf16 As Long, uc(2) As Byte
   
    GetUTF8String = ""
    For i = 1 To Len(s)
        utf16 = AscW(Mid(s, i, 1))
        If utf16 < 0 Then utf16 = utf16 + 65536
        If utf16 < &H80 Then ' 1 Byte
            GetUTF8String = GetUTF8String & Chr(utf16)
        ElseIf utf16 < &H800 Then ' 2 Byte
            uc(1) = &H80 + (utf16 And &H3F) ' Least Significant 6 bits
            utf16 = utf16 \ &H40 ' Shift UTF16 number right 6 bits
            uc(0) = &HC0 + (utf16 And &H1F) ' Use 5 remaining bits
            GetUTF8String = GetUTF8String & Chr(uc(0)) & Chr(uc(1))
        Else ' 3 Byte
            uc(2) = &H80 + (utf16 And &H3F) ' Least Significant 6 bits
            utf16 = utf16 \ &H40 ' Shift UTF16 number right 6 bits
            uc(1) = &H80 + (utf16 And &H3F) ' Use next 6 bits
            utf16 = utf16 \ &H40 ' Shift UTF16 number right 6 bits again
            uc(0) = &HE0 + (utf16 And &HF) ' Use 4 remaining bits
            GetUTF8String = GetUTF8String & Chr(uc(0)) & Chr(uc(1)) & Chr(uc(2))
        End If
    Next
End Function

卧美吻花

报告北狼版主，在第2楼贴出的代码中使用您提供的

Application.DefaultWebOptions.Encoding = msoEncodingUTF8

去替换

   FullName.msoEncodingUTF8 

后还是不行，输出的txt文件还是使用的ANSI编码[em11]

有朋友提醒我：应该先将文件的属性定义好，（包括编码方式）

然后再使用VBA语句往里面写数据

偶在VBA方面实在是菜菜，不知如何下手

 

 

lotustower贴出的代码貌似跟我遇到的问题无关[em11]

[此贴子已经被作者于2006-11-7 12:54:01编辑过]

卧美吻花

Private Sub Command1_Click()
  Dim wordapp As Variant
  Dim worddoc As Variant
  Dim filepath As String
  filepath = "c:"
  Set wordapp = CreateObject("word.Application") 
     Set worddoc = wordapp.documents.open(filepath + "\aa.doc", False)                          
  wordapp.Visible = False
  worddoc.SaveAs filepath + "\" + "attach.txt", wdSaveFormat.wdFormatEncodedText, Encoding:=msoencoding.msoEncodingUTF8
   wordapp.Quit
End

上面这一段代码是我的一个朋友给的VBA for word中的代码

可是，我怎样整合到excelVBA中呢？

[此贴子已经被作者于2006-11-7 15:51:31编辑过]

卧美吻花

还是复杂问题简单化吧：

已经使用excelVBA创建了一个文件"d:\mydata.txt"

但是这个文件是使用ANSI编码的

我需要将其改变成为使用UTF8编码的文件，文件名、内容都不变

请问如何写VBA代码？

northwolves

http://blog.csdn.net/klchen/archive/2006/10/14/1333921.aspx

卧美吻花

谢谢斑竹

您提供的程序在运行时

提示：编译错误：用户定义类型未定义

同时VBE高亮了这一行

        Dim   Stm   As   New   ADODB.Stream

高亮未包括前面的Dim

请问为何？

我现在使用的Windows2003 + SP1

Office2003 SP2