如何在VB窗体中直接操作EXCEL?
一定要先在VB中添加excel引用。
在工程中引用Microsoft Excel类型库: 从"工程"菜单中选择"引用"栏;选择Microsoft Excel 11.0 Object Library(EXCEL2003),然后选择"确定"。表示在工程中要引用EXCEL类型库。
调用excel的工作表中的命令按钮,代码如下:
Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet
Dim FileName, SheetName As String
FileName = "e:\data.xls" '打开的工作簿路径名称
SheetName = "sheet1" '命令按钮所在的工作表名
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(FileName) '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见(或不可见)
Set xlSheet = xlBook.Worksheets(SheetName) '设置活动工作表
'假设要调用的控件名称是CommandButton1
xlSheet.Shapes("commandbutton1").DrawingObject.object.Value = True '单击控件
xlBook.Close (True) '保存并关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
end sub
Set XLAPP = CreateObject("Excel.Application")
Set xlBook = XLAPP.Workbooks.Add
Set xlsheet = xlBook.Worksheets(1) xlsheet.Cells(1, 2) = “项目说明" XLAPP.Workbooks(1).Saved = True '/FALSE 判断文件是否需要保存
XLAPP.Workbooks(1).SaveAs strfile
xlBook.Close
Set xlsheet = Nothing
Set xlBook = Nothing
Set XLAPP = Nothing
代码很多,只能给你关键代码了。开动你聪明的大脑,会成功的!
一、 VB读写EXCEL表:
VB本身提自动化功能可以读写EXCEL表,其方法如下:
1、在工程中引用Microsoft Excel类型库:
从"工程"菜单中选择"引用"栏;选择Microsoft Excel 9.0 Object Library(EXCEL2000),然后选择"确定"。表示在工程中要引用EXCEL类型库。
2、在通用对象的声明过程中定义EXCEL对象:
Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet
3、在程序中操作EXCEL表常用命令:
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见(或不可见)
Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表
xlSheet.Cells(row, col) =值 '给单元格(row,col)赋值
xlSheet.PrintOut '打印工作表
xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏
xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏
4、在运用以上VB命令操作EXCEL表时,除非设置EXCEL对象不可见,否则VB程序可继续执行其它操作,也能够关闭EXCEL,同时也可对EXCEL进行操作。但在EXCEL操作过程中关闭EXCEL对象时,VB程序无法知道,如果此时使用EXCEL对象,则VB程序会产生自动化错误。形成VB程序无法完全控制EXCEL的状况,使得VB与EXCEL脱节。
二、 EXCEL的宏功能:
EXCEL提供一个Visual Basic编辑器,打开Visual Basic编辑器,其中有一工程属性窗口,点击右键菜单的"插入模块",则增加一个"模块1",在此模块中可以运用Visual Basic语言编写函数和过程并称之为宏。其中,EXCEL有两个自动宏:一个是启动宏(Sub Auto_Open()),另一个是关闭宏(Sub Auto_Close())。它们的特性是:当用EXCEL打含有启动宏的工簿时,就会自动运行启动宏,同理,当关闭含有关闭宏的工作簿时就会自动运行关闭宏。但是通过VB的自动化功能来调用EXCEL工作表时,启动宏和关闭宏不会自动运行,而需要在VB中通过命令xlBook.RunAutoMacros (xlAutoOpen)和xlBook.RunAutoMacros (xlAutoClose) 来运行启动宏和关闭宏。
三、 VB与EXCEL的相互勾通:
充分利用EXCEL的启动宏和关闭宏,可以实现VB与EXCEL的相互勾通,其方法如下:
在EXCEL的启动宏中加入一段程序,其功能是在磁盘中写入一个标志文件,同时在关闭宏中加入一段删除此标志文件的程序。VB程序在执行时通过判断此标志文件存在与否来判断EXCEL是否打开,如果此标志文件存在,表明EXCEL对象正在运行,应该禁止其它程序的运行。如果此标志文件不存在,表明EXCEL对象已被用户关闭,此时如果要使用EXCEL对象运行,必须重新创建EXCEL对象。
四、举例:
1、在VB中,建立一个FORM,在其上放置两个命令按钮,将Command1的Caption属性改为EXCEL,Command2的Caption属性改为End。然后在其中输入如下程序:
Dim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlsheet As Excel.Worksheet '定义工作表类
Private Sub Command1_Click() '打开EXCEL过程
If Dir("D:\temp\excel.bz") = "" Then '判断EXCEL是否打开
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = True '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open("D:\temp\bb.xls") '打开EXCEL工作簿
Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
xlsheet.Activate '激活工作表
xlsheet.Cells(1, 1) = "abc" '给单元格1行驶列赋值
xlBook.RunAutoMacros (xlAutoOpen) 运行EXCEL中的启动宏
Else
MsgBox ("EXCEL已打开")
End If
End Sub
Private Sub Command2_Click()
If Dir("D:\temp\excel.bz") <> "" Then '由VB关闭EXCEL
xlBook.RunAutoMacros (xlAutoClose) '执行EXCEL关闭宏
xlBook.Close (True) '关闭EXCEL工作簿
xlApp.Quit '关闭EXCEL
End If
Set xlApp = Nothing '释放EXCEL对象
End
End Sub
2、在D盘根目录上建立一个名为Temp的子目录,在Temp目录下建立一个名为"bb.xls"的EXCEL文件。
3、在"bb.xls"中打开Visual Basic编辑器,在工程窗口中点鼠标键选择插入模块,在模块中输入入下程序存盘:
Sub auto_open()
Open "d:\temp\excel.bz" For Output As #1 '写标志文件
Close #1
End Sub
Sub auto_close()
Kill "d:\temp\excel.bz" '删除标志文件
End Sub
4、运行VB程序,点击EXCEL按钮可以打开EXCEL系统,打开EXCEL系统后,VB程序和EXCEL分别属两个不同的应用系统,均可同时进行操作,由于系统加了判断,因此在VB程序中重复点击EXCEL按钮时会提示EXCEL已打开。如果在EXCEL中关闭EXCEL后再点EXCEL按钮,则会重新打开EXCEL。而无论EXCEL打开与否,通过VB程序均可关闭EXCEL。这样就实现了VB与EXCEL的无缝连接。
好详尽的回答阿!赞一声!
我先收藏起来,哈哈哈哈哈。
VB中Form_Initialize这个事件的用处何在?
可以 Initialize 事件在 Load 事件之前发生。这个事件一般用来初始化数据 此时窗口还没有创建,所以有关窗口的操作是不行的 向ImageList中加载图片不会影响到窗口 是可以的
在VB中怎么修改控件的NAME属性啊?也就是控件的名称!
name只有在属性框改,name要是可以随便修改,那你的代码事件不就出现很多问题了吗 caption是可以随意修改的,比如说form1.caption="Hello!"
VB中Form_Initialize这个事件的用处何在?
不建议这样做。Form_Initialize事件是在控件未加载的时候。建议你把加载图片写在Form_Load中。
vb中使用windows media player 控件设计一个MP3播放器,发现控件中的上...
这是因为引用wmp控件播放音乐你是使用WindowsMediaPlayer1.URL = "a.mp3" ,导致每次传递给wmp控件音乐数为1首,所以前进与后退按钮不可用,你可以建立一个播放列表,如二楼那样 引用2楼 你在你的播放器所在目录放一个a.m3u文件,文件内容类似 N:\\影音文件\\经典歌曲MP3\\好听Mp3\\知音.mp3 N:\\影音...
VB程序高手何在
程序运行后,单击按钮在窗体上显示的是( C)。A. 5 3 1 B. 7 5 3 C. 9 7 5 D. 11 9 7 7. 下列程序:Option Base 1 Private Sub Command1_Click()Dim x(10)Dim i As Integer For i = 1 To 10 x(i) = 10 - i + i Mod 2 Next For i = 10 To 1 Step -2 Print ...
关于vb中format函数的小小问题~
在这里format(1234.565,”###.###”)表示数字占位。主要是对于小数点后面的数有作用。这里小数点后面有四个“#”,如果只有两个,而且前面的数的小数位不只两位的话,就会只保留两位小数。比如format(1234.565,”###.##”)得到的数值就是1234.57 当然小数点左边的#个数不会影响最后结果。
为什么在vb6.0中向listbox添加的项无法显示?
楼主您好!aaaa和bbbb都是字符串,需要加上双引号("")所以改成:List1.AddItem "aaaa"List1.AddItem "bbbb"或者加入代码:Dim aaaa As String,bbbb As String aaaa = "aaaa"bbbb = "bbbb"望采纳~~
VB编程“求1到1000以内所有奇数之和”(do while 结构)
先把代码发出来,等会在评论中给你解释吧。复制粘贴以下代码:Option ExplicitPrivate Sub Command1_Click()Dim i As LongDim s As Longs = 0i = 0Do While i < 1000i = i + 1If i Mod 2 = 1 Thens = s + iEnd IfLoopPrint "计算1至1000之间的奇数之和为:"; sEnd Sub看运行结果吧 WBCR...
在VB.NET中,有些操作方法在书写代码时加与不加括号,有何区别。如show...
完全没有!vb .NET 编辑器会自动给你加上括号(如果需要的话),所以完全不用在意这些细节,妥妥的。可以自己测试下嘛。
当今社会学习vb意义何在?
1、有了C语言的基础,学习VB就容易的多。2、当今社会,多学点知识,没有坏处,技不压身,有利于以后的发展。3、学习了以后,要学以致用,才不至于淡忘。4、学任何一门编程都是这样,关键在于用不用,不光C++和VB是这样,其他的像Java、C#、PHP等等也是这样。C语言是一门通用计算机编程语言,应用...
脂夏妇炎: 1、打开VB-》在form1上增加一个command1按钮,双击command1按钮,把以下代码放入窗体内; 2、运行前,在菜单的选“工程”->“引用”->找到Microsoft Excel 12.0 Object Library->确定;然后才可以运行; 3、代码如下: Dim ExApp As ...
泉山区14729918240: 如何在VB窗体中直接操作EXCEL? - ?
脂夏妇炎: Set XLAPP = CreateObject("Excel.Application") Set xlBook = XLAPP.Workbooks.Add Set xlsheet = xlBook.Worksheets(1) xlsheet.Cells(1, 2) = “项目说明"XLAPP.Workbooks(1).Saved = True '/FALSE 判断文件是否需要保存 XLAPP....
泉山区14729918240: VB窗体下如何嵌入一个EXCEL表 - ?
脂夏妇炎: 1.部件-添加-可插入对象--选择excel 表格就可以在窗体添加该表格控件2.工程-引用-Microsoft Excel 11.0 Object Library 下面给个简单的例子 Private Sub Command1_Click() Dim xlExcel As Excel.Application Dim xlBook As Excel.Workbook Dim ...
泉山区14729918240: 如何在VB中调用EXCEL - ?
脂夏妇炎: 1.在当前目录建立一个空xls文件,a.xls2.创建bat文件: open "a.bat" for output as #1:print #1,app.path & "\a.xls":close3.shellbat文件:shell("a.bat")
泉山区14729918240: 怎样直接将Excel表加载到vb窗体上 - ?
脂夏妇炎: 打开“部件”窗口,选择“Insertable Object”选项卡,勾选Microsoft Excel 工作表
泉山区14729918240: vb中怎么读取excel文件 - ?
脂夏妇炎: 1、调用Excel对象打开EXCEL文件后,读取文件内容*************************************** 在VB中要想调用Excel,需要打开VB编程环境“工程”菜单中的“引用”项目,并选取项目中的“MicrosoftExcel 11.0 object library”项.由于你的Excel版本...
泉山区14729918240: 请问如何使用vb调用 excel 文件? - ?
脂夏妇炎: 添加引用 Microsoft Excel 12.0 Object Library (视你的office版本不同有所差异) 然后就可以用这个来编程啦 Dim xlapp As Excel.Application '代表excel程序 Dim wkBook As Excel.Workbook '代表excelworkbook(也就是excel工作簿文件 .xls .xlsx...
泉山区14729918240: 在vb窗体中显示并编辑excel文档?各位大侠请帮忙!在此感谢了! - ?
脂夏妇炎: 在窗体添加excel对象运行后在excel上双击或右键选择'打开'或'编辑'都行
泉山区14729918240: 怎么可以在VB中调用excel? - ?
脂夏妇炎: 在工程中引用Microsoft Excel类型库: 从"工程"菜单中选择"引用"栏;选择Microsoft Excel 11.0 Object Library(EXCEL2003),然后选择"确定".表示在工程中要引用EXCEL类型库. Dim xlApp As Excel.Application Dim xlBook As Excel....
泉山区14729918240: 如何在VB的窗体中显示Excel报表 - ?
脂夏妇炎: Option Explicit Public xlApp As New Excel.Application Public xlBook As Excel.Workbook Public xlSheet As Excel.Worksheet Public Function SaveAsExcel(rsErr As ADODB.Recordset, sFileName As String, _ sSheet As String, sOpen As String, ...