Question

我已经构建了几个成功的宏，它们将CSV或txt文件中的数据导入到现有的Excel工作表中;但是，当我将文件类型更改为xls *时，它会导入为乱码。

导入数据的示例：

PK！bîha[Content_Types] .xml¢（¬“MOÃ0†ïHü‡WÔfã€Z·G~Äø¡q×hiÅÞØþ=nö！”Ê|‰]μ±ß‰‰kg4Y·6 [ ADA]）†埃@Dà¯>-âcö'ß

我正在使用的是：

  
Dim Fname As Variant

Fname = Application.GetOpenFilename("Excel Files (*.xls*),*.xls*", , "Please select Excel file...")
With Worksheets("Import").QueryTables.Add(Connection:="TEXT;" & Fname, Destination:=Worksheets("Import").Range("A1"))
     .TextFileParseType = xlDelimited
     .TextFileCommaDelimiter = False
     .Refresh
End With

使用Import作为工作表，宏引用所有未来活动。

我不想删除此“导入”工作表并从其他工作簿导入工作表，然后再次将其重新标题为“导入”，因为这可能会更改工作表编号，这很重要。我需要保留现有的“导入”表格并将数据粘贴到其上。

有没有办法使用这个GetOpenFilename来处理Excel文件，还是我必须打开工作簿，复制使用的范围，然后将其粘贴到我想要的“导入”表中？

由于

Excel数据以乱码形式导入新工作簿

0 个答案: