资源描述：
《将同目录下excel工作薄中多个表导入access同一表中》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、将同目录下excelI作薄中多个表导入access同一表屮，excel表结构必须相同，工作薄名称：示例工作薄.xls,导入后access表名称"导入后"PrivateSubCommandO_Click()OnErrorResumeNextDimexappAsNewExcel.ApplicationDimexBookAsExcel.WorkbookDimexSheetAsExcel.WorksheetDimstrNameAsStringSetexBook=exapp.Workbooks.Open(Current
2、Project.Path&”示例工作薄.xIs”)Fori=1ToexBook.Sheets.CountDoCmd.TransferSpreadsheetaclmport,,”导入后JCurrentProject.Path&_”示例工作薄.xls"ATrue,exBook.Worksheets(i).Name&"!"NextexBook.CloseSetexBook=Nothingexapp.QuitEndSub'将同目录下excel工作薄中多个表导入access中，生成不同access表PrivateS
3、ubCommandl_Click()OnErrorResumeNextDimexappAsNewExcel.ApplicationDimexBookAsExcel.WorkbookDimexSheetAsExcel.WorksheetDimstrNameAsStringSetexBook=exapp.Workbooks.Open(CurrentProject.Path&”示例工作薄.xlsH)Fori=1ToexBook.Sheets.CountDoCmd.TransferSpreadsheetaclmpo
4、rt,zexBook.Worksheets(i).NamezCurrentProject.Path&”示例工作薄・xls”，True,exBook.Worksheets(i).Name&"!"NextexBook.CloseSetexBook=Nothingexapp.QuitEndSub现存问题：运行后，提示打开excel表编辑，不能保证excel关闭。下面是对EXECL的基础操作说明：SetxIApp=CreateObject(uExcel.Application")'激活EXCEL应用程序xIApp.
5、Visible=False'隐藏EXCEL应用程序窗口SetxlBook=xlApp.Workbooks.Open(strDestination)'打开工作簿，strDestination为一个EXCEL报表文件SetxISheet=xlBook.Worksheets(1)'设定工作表1、定义EXCEL对象变量dimxasexcel.application2、VB中，启动EXCELsetx=createobject(nexcel.application”)3、新建一个EXCELT作簿x.workbooks.a
6、dd4、选定工作表1setxsheet=xbook.worksheets(1)5、指定单元格，并赋值xsheet.cell(1,1)=ret.fields(O)6、指定EXCEL列宽xsheet.column(1).columnwidth=107、RANGE()函数，选定单元格区域range(cells(1,1),cells(10,20))8、设置EXCEL字体xsheet.range(cells(1,1),cells(10,20)).font.name=H黑体”9、设置EXCEL为粗体xsheet.rang
7、e(cells(1,1),cells(10,20)).fontbold=true10、设置EXCEL表格边框xsheet.range(cells(1,1),cells(10,20)).borders」inestyle=xlcontinuous11、运行时，显示EXCEL或隐藏EXCELx.visible=true12、保存工作簿xbooksave13、退出EXCELx.quit14、交还控制权给EXCELsetx=nothing15、打印EXCEL表x.active.window.selectedsheets
8、.printoutcopies=numcopies16、退出EXCEL时，不出现保存提示。x.displayalerts=false17、怎样运用EXCEL公式？x.range(HA3").formula=*'=max(A1,A2)”18、EXCEL代码获取技巧打开EXCEL中的工具…•宏…•录制新宏，然后进行手工操作，结束后把所录的宏代码贴进你的VB程序就行。19、合并单元格代码x.range("
