如何批量导入EXCEL表，并且ACCESS默认将EXCEL表名命名为数据表名

我有很多EXCEL表，都在同一文件夹下。并且文件名很规律，即类似A01，A02，A03等。导入时一个一个导入工程太大了，我导入一天才导完一年的，可是有好几年的表。。。。想问问有没有什么好方法；另外就是导入后命名ACCESS默认的怎么不是EXCEL表的表名，还得一个一个改！在access中怎么样快速修改导入后的EXCEL表名

关注并学习一下

以下供参考：

如何指定TransferSpreadsheet方法中工作簿中的工作表

TransferSpreadsheet的语法：
　　Docmd.TransferSpreadsheet TransferType, SpreadsheetType, TableName, FileName, HasFieldNames, Range, UseOA  

　　针对Excel，其中Range的用法如下：

　　""（空字符串）：表示工作簿的第一个工作表；

　　"Sheet1!A1:D10"：表示工作表Sheet1的A1到D10区域；

　　"Sheet2!"：表示整个Sheet2工作表。

　　将Book1的Sheet1和Sheet2用TransferSpreadsheet方法导入Access mdb中。

　　Docmd.TransferSpreadsheet acImport, , "temp1", "C:“Book1.xls", False, "Sheet1!"

　　Docmd.TransferSpreadsheet acImport, , "temp2", "C:“Book1.xls", False, "Sheet2!"