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

问题描述

我正在尝试在MS Excel 2019中打开由ebay生成的CSV文件，其中它可以正确地在efile中加载外来字符。例如，作为文本导入时为“Harzstraße25”-UTF8，但如果以默认ASCII格式打开则会加载“HarzstraAÃE25”； ß替换为Aß

我尝试了以下代码：

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

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

我能够使用“数据/来自文本/ CSV”过程正确地手动打开编码为UTF-8的查询表，但无法将其转换为可在个人宏中持续且重复地工作的宏。

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

非常感谢 史蒂夫

解决方法

我发现了另一个可行的选择

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

非常感谢