0

我正在尝试在 MS Excel 2019 中打开 ebay 生成的 CSV 文件,它可以在其中正确加载 efile 中的外来字符。即“Harzstraße 25”作为文本导入时 - UTF8,但作为默认 ASCII 打开时会加载“HarzstraAßE 25”;ß 替换为 Aß

我尝试了以下代码:

Workbooks.OpenText Filename:=filetoopen, Origin:=65001
    Set wbDownload = ActiveWorkbook

但是,这会打开文件,其中替换的 ascii 字符仍然具有 Origin 65001 - UTF-8 指定的似乎被忽略/不起作用。

我能够使用数据/来自文本/CSV 进程以编码 UTF-8 的形式手动打开查询表,但无法将其转换为可在个人宏中一致且重复地工作的宏。

任何人都可以帮助确定我遇到的问题或可能的工作解决方案。

非常感谢史蒂夫

4

1 回答 1

2

我找到了另一个有效的选择

Set wsDownload = ActiveWorkbook.Sheets("Import")

    With wsDownload.QueryTables.Add(Connection:="TEXT;" & filetoopen, Destination:=wsDownload.Range("A1"))
        .TextFileParseType = xlDelimited
        .TextFilePlatform = 65001
        .TextFileCommaDelimiter = True
        .Refresh
    End With

非常感谢

于 2020-10-27T18:01:39.860 回答