如何将excel里的数据批量导入ACCESS.docVIP

下面是对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)) 8、设置EXCEL字体 xsheet.range(cells(1,1),cells(10,20)).font.name=黑体 9、设置EXCEL为粗体 xsheet.range(cells(1,1),cells(10,20)).fontbold=true 10、设置EXCEL表格边框 xsheet.range(cells(1,1),cells(10,20)).borders.linestyle=xlcontinuous 11、运行时，显示EXCEL或隐藏EXCEL x.visible=true 12、保存工作簿 xbook save 13、退出EXCEL x.quit 14、交还控制权给EXCEL set x=nothing 15、打印EXCEL表 x.active.window.selectedsheets.printout copies=numcopies 16、退出EXCEL时，不出现保存提示。 x.displayalerts=false 17、怎样运用EXCEL公式？ x.range(A3).formula= =max(A1,A2) 18、EXCEL代码获取技巧 打开EXCEL中的工具----宏----录制新宏，然后进行手工操作，结束后把所录的宏代码贴进你的VB程序就行。 19、合并单元格代码 x.range(A2:A5).inergecells=true 20、自动调整列宽代码 x.column(A:I).autofit a到 I列自动调整列宽 21、文本自动换行代码 x.rows(3).wraptext=true 22、设置字体颜色 x.rows(1).font.colorindex=4 23、打印预览代码 x.worksheets.printpreview 24、打开EXCEL文件 x.workbooks.open filename:=c:\my documents\my vb \lgx \dy.xls 下面是如何从EXECL文件中读写数据： 使用Excel Sheet对象的技术可以处理可变数量的数据，并将结果最后送到你的Visual Basic 应用程序中。例子如下： 新建一个工程并在新建的窗体上放置两个TextBox控件和一个CommandButton控件及六个Label控件。建设中的窗体如图2所示。 程序代码如下： Option Explicit Private Sub Command1－Click() Dim xObject As Object Set xObject = CreateObject(Excel.Sheet) Set xObject = xObject.Application.ActiveWorkbook.ActiveSheet xObject.Range(A1).Value = Text1.Text ′将数值送入Excel的A1单元格 xObject.Range(A2).Value = Text2.Text ′将数值送入Excel的A2单元格 xObject.Range(A3).Formula = =MAX(A1,A2) ′将最大值送入A3单元格 xObject.Range(A4).Formula = =ATAN(A1/A2)＊180/PI() ′将反正切值送入A4单元格 ′显示计