用Access打开EXCEL表并对工作表排序

时　间:2018-09-28 10:23:41
作　者:江中行   ID：69629  城市：广州
摘　要:在ACCESS中用VB打开一个EXCEL文件并对指定的工作表排序.
正　文:

      最近在做一个将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列字段进行升序排序。