VBA导入CSV文件以excel

Question

我有一个VBA代码可以将CSV文件（35列，80行）导入Excel，它在开始时运行良好，但它不适用于某些文件。我的代码中的问题在哪里？

Dim Wb As Workbook
Dim Arr

    Set Wb = GetObject(Application.GetOpenFilename("csv file,*.csv", , "please choose a csv file", , False))
    Arr = Wb.ActiveSheet.Range("A12").CurrentRegion
    Wb.Close False
    Range("A12").Resize(UBound(Arr), UBound(Arr, 2)) = Arr