最近在做一个将EXCEL表导入ACCESS的工具,想实现在导入前对EXCEL表排序,查了我们网上的文章,没有找到介绍这方面的方法,所以自己摸索最后也搞出来了。现在写出来和大家一起分享,第一次写发表文章,有点紧张。因为我是一个菜鸟,请高手指正,谢谢!
代 码:
Dim EXL As New Excel.Application
EXL.Workbooks.Open "E:\My ACCESS\temp.xlsx"
EXL.ActiveWorkbook.Sheets("Sheet1").Select
EXL.Application.Range("A2:G100" ).Sort EXL.Range("A2:A100"), xlAscending
以上示例是对A2:G100区域按照A列字段进行升序排序。