我正在开发一个模块,用于设置Excel电子表格的格式,以便导入到Access中。电子表格来自源,有7行标题数据,这是我需要的数据,数据下面有4行乱码。到目前为止,我已经删除了头部信息:
Sub ExcelFormat()
Dim excelApp As Object
Dim excelWB As Object
Dim excelWS As Object
Set excelApp = CreateObject("Excel.Application")
Set excelWB = excelApp.workbooks.Open("Z:\Data\Test.xlsx"