Private Sub showExcel()
Dim xlApp As Excel.Application
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True '显示EXCEL应用程序
'申明EXCEL工作簿对象
Dim xlBook As Excel.Workbook
'设置工作簿对象为指定的工作簿
Set xlBook = xlApp.Workbooks.Open(CurrentProject.Path & "\导出结果\清册查询.xls")
xlBook.Save
End Sub
以上为显示excel表,以下为操作excel表
Private Sub myExcel()
'操作excel
Dim xlApp As Excel.Application
Set xlApp = GetObject(, "Excel.Application")
'申明EXCEL工作簿对象
Dim xlBook As Excel.Workbook
'设置工作簿对象为指定的工作簿
Set xlBook = xlApp.Workbooks.Open(CurrentProject.Path & "\导出结果\清册查询.xls")
xlApp.Visible = False '显示EXCEL应用程序
hang = ActiveSheet.UsedRange.Rows.Count
'以下部分为EXCEL录制宏录制整理后所得代码
Range("A" & hang + 1).Select
ActiveCell.FormulaR1C1 = "制表日期"
Range("B" & hang + 1).Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("A" & hang + 2).Select
ActiveCell.FormulaR1C1 = "总数"
Range("B" & hang + 2).Select
ActiveCell.FormulaR1C1 = hang - 1
Range("A" & hang + 3).Select
ActiveCell.FormulaR1C1 = "总额"
Range("B" & hang + 3).Select
ActiveCell.Formula = "=SUM(T6:T" & hang + 4 & ")"
Range("A1:T" & hang).Select
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 1
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 1
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 1
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 1
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 1
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 1
.TintAndShade = 0
.Weight = xlThin
End With
Range("A" & hang + 1 & ":B" & hang + 5).Select
'退应用程序并释放内存
xlBook.Save
xlBook.Close
xlApp.Quit
Set xlApp = Nothing
Set xlBook = Nothing
End Sub
分享到:
相关推荐
Access + Excel VBA Access + Excel VBA Access + Excel VBA
VBA-access与Excel在局域网里面共享使用教程.doc
自己写的VBA程序,基本覆盖了常用操作,还有进度条,数据库读写,格式定制
Excel VBA与数据库(Access)整合笔记.关于vba编程数据库方面的内容
通过excelvba编写代码对access数据库进行插入、修改和删除
excel vba 编程24学时教程+access 2007使用教程+access vba 讲解
通过EXCEL 查询 ACCESS 数据库时间
Access VBA编程指南 详细讲解了access开发的完整过程
Excel VBA与数据库(Access)整合笔记,通过实例中的代码解析式的教学,读者不仅能够学会VBA,更能快速应用实例内容,在最短的时间内解决棘手的办公问题。
Excel VBA与数据库(Access)整合笔记
VbA_Access_Excel编程帮助手册(CHM版本).chm VBA_OWS10编程帮助手册(CHM版本).CHM VBA_Outlook编程帮助手册(CHM版本) .chm VBA_GR10编程帮助手册(CHM版本).CHM VBA_FrontPage编程帮助手册(CHM版本).chm VBA_...
查询获取Access数据库数据.zip源码EXCEL VBA宏编程Excel VBA实用技巧范例下载查询获取Access数据库数据.zip源码EXCEL VBA宏编程Excel VBA实用技巧范例下载查询获取Access数据库数据.zip源码EXCEL VBA宏编程Excel VBA...
1.VBA从ACCESS数据库读取数据并写入到EXCEL中 2.在EXCEL中从一个Sheet按条件读取数据并存入另一个Sheet中 3.将ECXEL中的数据存入ACCESS中的方法及源代码。
创建Access数据库.zip源码EXCEL VBA宏编程Excel VBA实用技巧范例下载创建Access数据库.zip源码EXCEL VBA宏编程Excel VBA实用技巧范例下载创建Access数据库.zip源码EXCEL VBA宏编程Excel VBA实用技巧范例下载创建...
excel+vba+access的倉庫管理系統
·在Word、Excel和Outlook之间操作并共享Access数据: ·从Access创建Word文档; ·编写VBA代码来自动执行数据库任务; ·创建Access窗体,作为数据交换的控制面板: ·使用COM和Access加载项添加功能; ...
例学VBA:Excel·Access·PowerPoint中的VBA高效应用》主要介绍基于Microsoft Office的VBA应用程序开发。全书分为4篇:第1篇包括第0章,主要介绍与Office VBA编程相关的基础知识;第2篇包括实例1~实例20,主要通过20...
EXCEL WORD ACCESS VBA帮助文件 CHM
扫描完整版 例学VBA:EXCEL ACCESS POWERPOINT中的VBA高效应用
《财务会计管理系统》范例文件使用说明: 本套《财务会计管理系统》包括以下6个子系统: 1. 会计科目及期初余额管理系统.xls 用于设置会计科目及期初余额。...2. 会计凭证管理系统.xls 用于... 系统VBA源代码的密码为hxl。