首页 Excel VBA把Excel导入到Access中

Excel VBA把Excel导入到Access中

Excel VBA把Excel导入到Access中ExcelVBA把Excel导入到Access中ExcelVBA把Excel导入到Access中导入单个EXCEL文件SubExport_Sheet_Data_ToAccess()DimmyFileAsVariantDimAppAccessAsNewAccess.ApplicationDimwbPathAsStringmyFile=Application.GetOpenFilename("ExcelFiles(*.xls),*.xls")IfVarType(myFile)=vbBooleanThen MsgBo...

ExcelVBA把Excel导入到Access中ExcelVBA把Excel导入到Access中导入单个EXCEL文件SubExport_Sheet_Data_ToAccess()DimmyFileAsVariantDimAppAccessAsNewAccess.ApplicationDimwbPathAsStringmyFile=Application.GetOpenFilename("ExcelFiles(*.xls),*.xls")IfVarType(myFile)=vbBooleanThen MsgBox"CanCelbyUser!" ExitSubEndIfApplication.ScreenUpdating=FalsewbPath=ThisWorkbook.Path&"\"WithAppAccess .OpenCurrentDatabasewbPath&"CheckIn.mdb",True .DoCmd.TransferSpreadsheetacImport,acSpreadsheetTypeExcel9,"data",myFile,True .CloseCurrentDatabaseEndWithApplication.ScreenUpdating=TrueMsgBoxmyFile&Chr(10)&"ExportisDone！"SetAppAccess=NothingEndSub导入多个EXCEL文件SubExport_MultiSheets_Data_ToAccess()DimmyFilesAsVariant,vItemAsVariantDimAppAccessAsNewAccess.ApplicationDimwbPathAsStringmyFiles=Application.GetOpenFilename(_ "ExcelFiles(*.xls),*.xls",,"SelectAllFiles",,True)IfVarType(myFiles)=vbBooleanThen MsgBox"CanCelbyUser!" ExitSubEndIfApplication.ScreenUpdating=FalsewbPath=ThisWorkbook.Path&"\"WithAppAccess .OpenCurrentDatabasewbPath&"CheckIn.mdb",True IfIsArray(myFiles)Then ForEachvItemInmyFiles .DoCmd.TransferSpreadsheetacImport,acSpreadsheetTypeExcel9,"data",vItem,True Next EndIf .CloseCurrentDatabaseEndWithApplication.ScreenUpdating=TrueMsgBox"ExportisDone！"SetAppAccess=NothingEndSub导入一个工作簿下的所有工作表 SubExport_Sheets_Data_ToAccess()DimmyFileAsVariantDimAppAccessAsAccess.ApplicationDimwbPathAsStringDimobjWbAsWorkbookDimrngDataAsRangeDimlRowAsLongDimlColAsLongDimarr()AsVariantDimiShtAsIntegerSetAppAccess=NewAccess.ApplicationmyFile=Application.GetOpenFilename("ExcelFiles(*.xls),*.xls")IfVarType(myFile)=vbBooleanThen MsgBox"CanCelbyUser!" ExitSubEndIfApplication.ScreenUpdating=FalseSetobjWb=GetObject(myFile)ReDimarr(1ToobjWb.Sheets.Count)ForiSht=1ToobjWb.Sheets.Count WithobjWb.Sheets(iSht) lRow=.[a65536].End(xlUp).Row lCol=.[iv1].End(xlToLeft).Column SetrngData=.Range(.Cells(1,1),.Cells(lRow,lCol)) arr(iSht)=.Name&"!"&rngData.Address(0,0) EndWithNextobjWb.CloseFalseSetobjWb=NothingwbPath=ThisWorkbook.Path&"\"WithAppAccess .OpenCurrentDatabasewbPath&"Database.mdb",True ForiSht=1ToUBound(arr) .DoCmd.TransferSpreadsheetacImport,acSpreadsheetTypeExcel9,_ "data",myFile,True,arr(iSht) Next .CloseCurrentDatabaseEndWithApplication.ScreenUpdating=TrueMsgBoxmyFile&Chr(10)&"ExportisDone！"SetAppAccess=NothingEndSub

                    本文档为【Excel VBA把Excel导入到Access中】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

你可能还喜欢

最新资料

资料动态

专题动态

is_633808

暂无简介~

格式：doc

大小：17KB

软件：Word

页数：0

分类：

上传时间：2021-08-30

浏览量：61

热点搜索

电网18项反措自我剖析范文12篇【doc】平底顶杆凸轮机构的MATLAB动画编程 [作文]“_____也美丽”话题作文范文(4篇) 带和带坐标转换 02194 工程经济三年级下品德与社会评课请到我的家乡来_苏教版-最新教学文档 2023年龙岩地区餐饮管理经理职位薪酬调查报告公司收购协议模板(官方版) 间歇性听课申请表付济华家藏方-----祛风蠲痹黑膏药（一贴灵）定期定额个体工商户高压验电器使用操作规程 PPAP管理规定电网18项反措自我剖析范文12篇【doc】平底顶杆凸轮机构的MATLAB动画编程 [作文]“_____也美丽”话题作文范文(4篇) 带和带坐标转换 02194 工程经济三年级下品德与社会评课请到我的家乡来_苏教版-最新教学文档 2023年龙岩地区餐饮管理经理职位薪酬调查报告公司收购协议模板(官方版) 间歇性听课申请表付济华家藏方-----祛风蠲痹黑膏药（一贴灵）定期定额个体工商户高压验电器使用操作规程 PPAP管理规定