发布时间:2024年11月06日 17:50:16分享人:岁月并非如歌来源:互联网8
Private Sub Command1_Click()
Dim S() As String, FileName As String, i As Integer, j AsInteger
Dim xlApp
Dim xlBook
Dim xlSheet
FileName = App.Path & "1.xls"'程序所在目录下的文件,请修改
Set xlApp =CreateObject("Excel.Application")'创建EXCEL对象

xlApp.DisplayAlerts =False'不显示对话框
Set xlBook =xlApp.Workbooks.Open(FileName)'打开已经存在的EXCEL工件簿文件
xlApp.Visible =True'设置EXCEL对象可见
Set xlSheet=xlBook.Worksheets("Sheet1")'设置活动工作表
xlSheet.Cells(1, 1) = ""'清除单元格内容
xlSheet.Cells(1, 1) =1'修改单元格内容
xlSheet.PrintOut '打印工作表
xlBook.SaveAsFileName:=FileName'保存工作表,结束时一定别忘了保存
xlBook.Close(True) '关闭工作簿这里的True表示退出时保存修改
xlApp.quit'结束EXCEL对象
Set xlApp =Nothing'释放xlApp对象
End Sub
爱华网本文地址 » http://www.413yy.cn/a/25101011/44190.html
更多阅读

上回看到“excel 编程入门教程”求助贴,不料被别人捷足先登。没想到今天又看到这个求助经验贴,而且又有优先评优支持当然要领取了。本人也算上个世纪的编程老鸟,虽然对于当前的主流技术不是非常精通,但是对于Excel VBA,还是略知一二的。

Excel VBA之快速上手转载第一章VBA语言基础第一节 标识符一.定义标识符是一种标识变量、常量、过程、函数、类等语言构成单位的符号,利用它可以完成对变量、常量、过程、函数、类等的引用。二.命名规则1) 字母打头,由字母、数字和下划线

傻瓜都会用Excel VBA(教你怎么用VBA)——简介VBA是Excel的底层根本。只有明白使用最底层的东西,使用起来才能随心所欲。对于多数读者而言,由于未使用过VBA或者不具备计算机语言知识,所以被VBA直白的语句所

一、Excel对象模型为了在VB应用程序中调用Excel,必须要了解Excel对象模型。Excel对象模型描述了Excel的理论结构,所提供的对象很多,其中最重要的对象,即涉及VB调用Excel最可能用到的对象有:二、调用Excel在VB应用程序中调用Excel,实质是将

VB是常用的应用软件开发工具之一,由于VB的报表功能有限,而且一但报表格式发生变化,就得相应修改程序,给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。但由于VB与EXCEL由于分别