时间戳

首页 > 解决方案 > MS Excel 2019 - VBA - Workbook.OpenText 未正确使用指定的原始值

vba - MS Excel 2019 - VBA - Workbook.OpenText 未正确使用指定的原始值

问题描述

我正在尝试在 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 的形式手动打开查询表，但无法将其转换为可在个人宏中一致且重复地工作的宏。

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

非常感谢史蒂夫

标签： vbautf-8excel-2019

解决方案

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

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

非常感谢

推荐阅读