vba判断文件编码格式_vba中读取utf-8格式的csv文件保证不乱码

EXCEL中的导入data的功能。(data-> import   external   data)

Sub   Macro1() '

'   Macro1   Macro

'   test   for   sunhaifeng

'   sunhf@cn.ibm.com

'

If   FileExists( "c:\BookforTestData.csv ")   Then

Kill   "c:\BookforTestData.csv "

End   If

Workbooks.Add

With   ActiveSheet.QueryTables.Add(Connection:= "TEXT;E:\test.csv ",   Destination   _

:=Range( "A1 "))

.Name   =   "test "

.FieldNames   =   True

.RowNumbers   =   False

.FillAdjacentFormulas   =   False

.PreserveFormatting   =   True

.RefreshOnFileOpen   =   False

.RefreshStyle   =   xlInsertDeleteCells

.SavePassword   =   False

.SaveData   =   True

.AdjustColumnWidth   =   True

.RefreshPeriod   =   0

.TextFilePromptOnRefresh   =   False

.TextFilePlatform   =   932

'这里我的cvs文件的编码是shift-jis.需要其他编码的代号可以自己录

.TextFileStartRow   =   1

.TextFileParseType   =   xlDelimited

.TextFileTextQualifier   =   xlTextQualifierDoubleQuote

.TextFileConsecutiveDelimiter   =   False

.TextFileTabDelimiter   =   True

.TextFileSemicolonDelimiter   =   False

.TextFileCommaDelimiter   =   True

.TextFileSpaceDelimiter   =   False

.TextFileColumnDataTypes   =   Array(1,   1,   1,   1)

.TextFileTrailingMinusNumbers   =   True

.Refresh   BackgroundQuery:=False

End   With

ActiveWorkbook.SaveAs   Filename:= "c:\BookforTestData.csv ",   FileFormat:=xlCSV,   _

CreateBackup:=False

ActiveWorkbook.Close   SaveChanges:=True

Dim   MyChar

Dim   strText   As   String

Dim   FileNum   As   Integer

Dim   str()   As   String

Dim   count   As   Integer

Dim   count1   As   Integer

count   =   1

Open   "c:\BookforTestData.csv "   For   Input   As   #1

Do   While   Not   EOF(1)

Line   Input   #1,   strText

str   =   Split(strText,   ", ")

count1   =   UBound(str)

For   i   =   0   To   count1

Worksheets(1).Cells(i   +   1,   count).Value   =   str(i)

Next   i

count   =   count   +   1

Loop

Close   #1

If   FileExists( "c:\BookforTestData.csv ")   Then

Kill   "c:\BookforTestData.csv "

End   If

End   Sub

Private   Function   FileExists(fname)   As   Boolean

Dim   x   As   String

x   =   Dir(fname)

If   x   <>   " "   Then   FileExists   =   True   _

Else   FileExists   =   False

End   Function