VBA从web服务器导入UTF-8 CSV文件
VBA从web服务器导入UTF-8 CSV文件
提问于 2014-05-13 16:48:49
我在web服务器上存储了一个UTF-8 CSV文件。当我下载文件时，把它放到我的硬盘上，然后用这个宏将它导入到Excel工作表中(从宏录制器)：
Sub Macro2()
Workbooks.OpenText Filename:= _
"C:/myFile.csv", Origin _
:=65001, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False _
, Comma:=True, Space:=False, Other:=False
End Sub所有字符(越南语字符)都正确显示。
当我尝试相同的宏但没有给出文件的本地地址("C:/myFile.csv")时，我传递了文件的URL ("http://myserver.com/myFile.csv")，CSV正确地导入到我的Excel表格中，但越南文字不再正确显示。
我也尝试过使用Data选项卡，但Excel似乎忽略了编码：
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:/myFile.csv" _
, Destination:=Range("$A$1"))
.Name = "myFile.csv"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 65001
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = "~"
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With示例数据：„; Â; ˜; Â1/4; ‰; ™,™
将Excel错误地理解为：„; Â; ˜; Â1/4; ‰; ™,™;
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/23626622
复制相关文章
相似问题