将同目录下excel工作薄中多个表导入access同一表中.doc

将同目录下excel工作薄中多个表导入access同一表中.doc

  1. 1、本文档共8页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
将同目录下excel工作薄中多个表导入access同一表中

将同目录下excel工作薄中多个表导入access同一表中,excel表结构必须相同,工作薄名称:示例工作薄.xls,导入后access表名称导入后 Private Sub Command0_Click() On Error Resume Next ?Dim exapp As New Excel.Application ??? Dim exBook As Excel.Workbook ??? Dim exSheet As Excel.Worksheet ??? Dim strName As String ??? Set exBook = exapp.Workbooks.Open(CurrentProject.Path \示例工作薄.xls) ??? For i = 1 To exBook.Sheets.Count ??????? DoCmd.TransferSpreadsheet acImport, , 导入后, CurrentProject.Path _ ??????????? \示例工作薄.xls, True, exBook.Worksheets(i).Name ! ??? Next ??? exBook.Close ??? Set exBook = Nothing ??? exapp.Quit End Sub 将同目录下excel工作薄中多个表导入access中,生成不同access表 Private Sub Command1_Click() On Error Resume Next ?Dim exapp As New Excel.Application ??? Dim exBook As Excel.Workbook ??? Dim exSheet As Excel.Worksheet ??? Dim strName As String ??? Set exBook = exapp.Workbooks.Open(CurrentProject.Path \示例工作薄.xls) ??? For i = 1 To exBook.Sheets.Count ?????????? DoCmd.TransferSpreadsheet acImport, , exBook.Worksheets(i).Name, CurrentProject.Path _ ??????????? \示例工作薄.xls, True, exBook.Worksheets(i).Name ! ??? Next ??? exBook.Close ??? Set exBook = Nothing ??? exapp.Quit End Sub 现存问题:运行后,提示打开excel表编辑,不能保证excel关闭。 下面是对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)).=黑体 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 s

文档评论(0)

pangzilva + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档