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
分享到:
相关推荐
在Excel VBA中,可以创建宏和自定义功能,与Access交互能够实现更复杂的数据库操作和数据分析。 VBA是Microsoft Office套件中的脚本语言,允许用户自动化任务,创建自定义功能,并与Office应用程序的其他组件进行...
标签“excel_vba_excel_vba_access excel+vba+access excel查询 vba_excel_access”表明了这个主题涉及Excel VBA的多个方面,包括VBA编程,与Access的集成,以及时间字段的查询操作。通过理解这些知识点,你可以构建...
在“VBA+Access实现Excel文件的数据库读写操作编码密码zqakak”这个主题中,我们将深入探讨如何利用VBA和Access进行高效的数据库交互,以及如何在VBA中实现进度条功能。 首先,让我们了解如何使用VBA来读取和写入...
10. **文件操作**:VBA可以读写文本文件、Excel文件,甚至与其他应用程序进行数据交换。 通过深入学习和实践这些范例源文件,开发者可以逐步提升在Access环境中使用VBA解决问题的能力,从基础的数据录入到复杂的...
VBA-access与Excel在局域网里面共享使用教程.doc
本篇将深入探讨Access、Excel与VBA的结合使用,帮助你提升工作效率并解决复杂的数据管理问题。 1. **Access中的VBA** - **宏和模块**:Access中的VBA允许用户通过宏和模块编写自定义代码。宏是一系列预定义的操作...
本实例将探讨如何使用Excel VBA操作Access数据库,实现数据的插入、修改和删除。 首先,我们需要了解基础环境。Access是一个关系型数据库管理系统,用于存储和管理结构化数据。VBA是Excel内置的编程语言,可以创建...
3. 查询与分析:利用VBA调用Access的SQL查询,实现高级数据分析,例如聚合函数、联接操作等。 4. 自动化工作流程:结合VBA和Access,可以创建复杂的业务流程,例如审批流程、库存管理等,自动化处理数据和业务逻辑。...
这些知识点为使用Access VBA操作Excel文件提供了坚实的基础,包括打开文件、检查Excel软件的存在、获取文件信息以及与用户进行交互。通过这些技巧,你可以自动化处理Excel数据,实现更高效的办公流程。
以上就是VBA操作并控制Excel与Access之间数据交互的关键步骤。这种自动化流程对于处理大量数据特别有用,可以提高工作效率,减少手动操作出错的可能性。在实际应用中,可能还需要添加错误处理和优化性能的代码,确保...
Access VBA讲解部分将深化对数据库编程的理解,通过VBA扩展Access的功能,实现更高级的数据操作和定制功能。 总之,这三部分教程构成了一套全面的微软Office自动化和数据库管理的学习资源,适合数据分析人员、Excel...
VbA_Access_Excel编程帮助手册(CHM版本).chm VBA_OWS10编程帮助手册(CHM版本).CHM VBA_Outlook编程帮助手册(CHM版本) .chm VBA_GR10编程帮助手册(CHM版本).CHM VBA_FrontPage编程帮助手册(CHM版本).chm VBA_...
4. 数据导出:编写程序将Access数据导出为其他格式,如Excel、CSV或文本文件。 5. 进程自动化:批量处理大量数据,如批量更新记录、生成报表等。 六、学习资源与实践 本教程以PDF格式提供,适合初学者和进阶者学习...
标题中的"EXCEL WORD ACCESS VBA帮助文件 CHM"表明这是一个关于Microsoft Office应用程序——Excel、Word、Access的VBA(Visual Basic for Applications)编程的CHM(Compiled Help Manual)文件集合。CHM文件是微软...
《Excel + VBA + Access构建的仓库管理系统详解》 仓库管理是企业运营中至关重要的一环,有效、高效的仓库管理系统能够确保库存数据的准确性,优化库存结构,降低运营成本。在这个数字化时代,利用Excel、VBA...
在Access数据库应用中,VBA(Visual Basic for Applications)数据库编程是开发高效、实用的数据库应用程序的关键技术。VBA利用Microsoft Jet数据库引擎作为基础,该引擎是一组动态链接库(DLL),在运行时与VBA程序...
在Excel VBA中操作数据库是一项强大的技能,可以让你在电子...以上是Excel VBA操作Access数据库的一些核心概念和方法。通过掌握这些知识点,你可以构建强大的自动化解决方案,将Excel与数据库的强大功能结合在一起。
此外,VBA还可以用于链接或嵌入Access数据库到Excel中,使得Excel可以直接操作数据库数据。这种方式对于需要在Excel环境中进行复杂数据分析但数据存储在Access的情况特别有用。同时,Access也可以通过VBA调用Excel,...
第11章~第14章主要介绍了如何利用ExcelVBA来操作数据库(包括Excel工作簿、Access数据库、SQLServer数据库和文本文件),尤其是将ExcelVBA与ADO和SQL结合起来,充分发挥利用数据库保存数据和利用Excel计算分析...
标题中的"excelVBA+access网络整理"指的可能是通过VBA编程在Excel中整合和操作Access数据库的信息。描述中提到的“VBA+EXCEL+ACCESS创建数据库目录”可能是指利用VBA在Excel中构建一个能够连接、管理和展示Access...