- 1、本文档共8页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 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)