- 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
您可能关注的文档
- 室内TVOC 的测定.ppt
- 宣讲岩土工程.ppt
- 室温试验.doc
- 宫缩素的应用.ppt
- 宫妆临晓日.ppt
- 宴会设计系列课程:商务宴会的菜单和台面设计.ppt
- 宴会设计系列课程:美食节方案设计.ppt
- 宴會作業流程.ppt
- 宫腔声学造影术在妇科疾病诊断中的应用.ppt
- 室缺讲课.ppt
- 2023年江苏省镇江市润州区中考生物二模试卷+答案解析.pdf
- 2023年江苏省徐州市邳州市运河中学中考生物二模试卷+答案解析.pdf
- 2023年江苏省苏州市吴中区中考冲刺数学模拟预测卷+答案解析.pdf
- 2023年江苏省南通市崇川区田家炳中学中考数学四模试卷+答案解析.pdf
- 2023年江西省吉安市中考物理模拟试卷(一)+答案解析.pdf
- 2023年江苏省泰州市海陵区九年级(下)中考三模数学试卷+答案解析.pdf
- 2023年江苏省苏州市高新二中中考数学二模试卷+答案解析.pdf
- 2023年江苏省南通市九年级数学中考复习模拟卷+答案解析.pdf
- 2023年江苏省南通市海安市九年级数学模拟卷+答案解析.pdf
- 2023年江苏省泰州市靖江外国语学校中考数学一调试卷+答案解析.pdf
文档评论(0)