（Workbooks.Open）的工作方式与正常打开不同

Question

我有一个非常奇怪的问题，当我尝试使用（Workbooks.open）在VBA中打开数字时，数字会在第一列中单独更改。所有数字都以“ 000”结尾，尽管原始值只有2位数字。在VBA中打开数字后，我尝试将数字转换为文本，但仍无法正常工作。

Dim wk As Excel.Workbook, sh As Worksheet 
hDrive "C:"
     ChDir "C:\DOKU\SAP"
        File = Application.GetOpenFilename(FileFilter:="Excel Mappen (*.xls),*.xls")
    If File = False Then Exit Sub

Set wk = Application.Workbooks.Open(file, 0, ReadOnly:=True, Format:=1, CorruptLoad:=xlRepairFile)
    Set sh = ActiveSheet
    Windows(file).Activate
    sh.Range("A:D").NumberFormat = "@"

在VBA中打开文件：

正常开放：

Answer 1

对于非美国用户，请将Workbooks.Open方法参数“ Local”设置为True。 默认值（False）对应于美国英语，并将格式化逗号（作为逗号）作为小数点分隔符（逗号后的位数不等于3），文本以及一些日期（日期和月份的顺序混合）向上，导致不可能的日期，例如以mm / dd / yyyy为单位的31/12/2019）