如何将excel里的数据批量导入access

《如何将excel里的数据批量导入access》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、下面是对EXECL的基础操作说明：SetxlApp=CreateObject("Excel.Application")‘激活EXCEL应用程序xlApp.Visible=False‘隐藏EXCEL应用程序窗口SetxlBook=xlApp.Workbooks.Open(strDestination)‘打开工作簿，strDestination为一个EXCEL报表文件SetxlSheet=xlBook.Worksheets(1)‘设定工作表1、定义EXCEL对象变量dimxasexcel.applicat

2、ion2、VB中，启动EXCELsetx=createobject("excel.application")3、新建一个EXCEL工作簿x.workbooks.add4、选定工作表1setxsheet=xbook.worksheets(1)5、指定单元格，并赋值xsheet.cell(1,1)=ret.fields(0)6、指定EXCEL列宽xsheet.column(1).columnwidth=107、RANGE（）函数，选定单元格区域range(cells(1,1),cells(10,20))8

3、、设置EXCEL字体xsheet.range(cells(1,1),cells(10,20)).font.name="黑体"9、设置EXCEL为粗体xsheet.range(cells(1,1),cells(10,20)).fontbold=true10、设置EXCEL表格边框xsheet.range(cells(1,1),cells(10,20)).borders.linestyle=xlcontinuous11、运行时，显示EXCEL或隐藏EXCELx.visible=true12、保存工作簿xb

4、ooksave13、退出EXCELx.quit14、交还控制权给EXCELsetx=nothing15、打印EXCEL表x.active.window.selectedsheets.printoutcopies=numcopies16、退出EXCEL时，不出现保存提示。x.displayalerts=false17、怎样运用EXCEL公式？x.range("A3").formula="=max(A1,A2)"18、EXCEL代码获取技巧打开EXCEL中的工具----宏----录制新宏，然后进行手工操作

5、，结束后把所录的宏代码贴进你的VB程序就行。19、合并单元格代码x.range("A2:A5").inergecells=true20、自动调整列宽代码x.column("A:I").autofit'a到I列自动调整列宽21、文本自动换行代码x.rows(3).wraptext=true22、设置字体颜色x.rows(1).font.colorindex=423、打印预览代码x.worksheets.printpreview24、打开EXCEL文件x.workbooks.openfilename:="

6、c:mydocumentsmyvblgxdy.xls"下面是如何从EXECL文件中读写数据：使用ExcelSheet对象的技术可以处理可变数量的数据，并将结果最后送到你的VisualBasic应用程序中。例子如下：新建一个工程并在新建的窗体上放置两个TextBox控件和一个CommandButton控件及六个Label控件。建设中的窗体如图2所示。程序代码如下：OptionExplicitPrivateSubCommand1－Click()DimxObjectAsObjectSetxObjec

7、t=CreateObject("Excel.Sheet")SetxObject=xObject.Application.ActiveWorkbook.ActiveSheetxObject.Range("A1").Value=Text1.Text′将数值送入Excel的A1单元格xObject.Range("A2").Value=Text2.Text′将数值送入Excel的A2单元格xObject.Range("A3").Formula="=MAX(A1,A2)"′将最大值送入A3单元格xObject.

8、Range("A4").Formula="=ATAN(A1/A2)＊180/PI()"′将反正切值送入A4单元格′显示计算的结果Label1.Caption=xObject.Range("A3").Value'从EXECL读出数值Label2.Caption=xObject.Range("A4").ValueSetxObject=NothingEndSubPrivateSubForm_Load()Text1.Text=""Text2.Text=""Lab