如何将excel里的数据批量导入ACCESS，要用vb代码？

 

下面是对EXECL的基础操作说明：

Set xlApp = CreateObject("Excel.Application")

‘激活EXCEL应用程序

xlApp.Visible = False ‘隐藏EXCEL应用程序窗口

Set xlBook = xlApp.Workbooks.Open(strDestination)

‘打开工作簿，strDestination为一个EXCEL报表文件

Set xlSheet = xlBook.Worksheets(1)

‘设定工作表

 1、定义EXCEL对象变量

dim x as excel.application

2、VB中，启动EXCEL

set x=createobject("excel.application")

3、新建一个EXCEL工作簿

x.workbooks.add

4、选定工作表1

set xsheet=xbook.worksheets(1)

5、指定单元格，并赋值

xsheet.cell(1,1)=ret.fields(0)

6、指定EXCEL列宽

xsheet.column(1).columnwidth=10

7、RANGE（）函数，选定单元格区域

range(cells(1,1),cells(10,20))