vb中如何运行一个excel

1.哪里有vb操作excel 详细教程

vb操作EXCEL文件 一、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 ============================ xlApp.Visible = True '使EXCEL可见 Application.DisplayAlerts = False '不显示提示 Me.MousePointer = 11 '改变鼠标样式沙漏，O时为正常 ============================== 3、在程序中操作EXCEL表常用命令： ----------------------------------- 获取工作名称 For i = 1 To xlBook.Worksheets.Count Set xlSheet = xlBook.Worksheets(i) MsgBox xlSheet.Name Next ------------------------------------- Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象 Dim objExl As Excel.Application '声明对象变量 Set xlBook = xlApp.Workbooks.Open（"文件名"） '打开已经存在的EXCEL工件簿文件 xlApp.Visible = True '设置EXCEL对象可见（或不可见） Set xlSheet = xlBook.Worksheets（"表名"） '设置活动工作表 xlSheet.Cells(row, col) =值 '给单元格（row,col）赋值 xlSheet.PrintOut '打印工作表 .Save SaveAs 另存 xlBook.Close (True) '关闭工作簿 xlApp.Quit '结束EXCEL对象 Set xlApp = Nothing '释放xlApp对象 xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏 xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏 Dim EndRow1 As Integer: EndRow1 = Sheets(sheetsCaption1).Range("L" & "65536").End(xlUp).Row Sub AddNew() Set NewBook = Workbooks.Add With NewBook .Title = "All Sales" .Subject = "Sales" .SaveAs Filename:="Allsales.xls" End With End Sub 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。

2.VB如何调用excel中的数据

要使用VB操作EXCEL，必须引用EXCEL对象，方法与步骤如下：

'首先通过VB的菜单 [工程] -- [引用]，勾选：Microsoft Excel XX.X Object Library

'其中XX.X，要看你计算机安装的OFFICE版本而定

Private Sub Command1_Click()

Dim xlsApp As Excel.Application '声明对象变量

Set xlsApp = Excel.Application '实例化对象

xlsApp.Visible = False '使Excel隐藏不可见

xlsApp.Workbooks.Open ("C:\1.xls") '打开EXCEL文件，假设文件在c盘根目录

Dim i As Long

i = 1

Do While xlsApp.ActiveWorkbook.Sheets("sheet1").Cells(i, 1) ""

If xlsApp.ActiveWorkbook.Sheets("sheet1").Cells(i, 1).Value = Text1.Text Then

Label1.Caption = xlsApp.ActiveWorkbook.Sheets("sheet1").Cells(i, 2).Value

Exit Do

End If

i = i + 1

Loop

xlsApp.ActiveWorkbook.Close savechanges:=False '关闭活动工作簿同时不保存对它的更改。

xlsApp.Quit '关闭EXCELL

Set xlsApp = Nothing '释放资源

End Sub

3.VB中怎么取得激活的Excel的窗口这样子,在VB中打开Exce

用API函数ShellExecute VB声明 Declare Function ShellExecute Lib "shell32。

dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long 说明 查找与指定文件关联在一起的程序的文件名。 关联的方式要么是运行程序，要么是打印文件。

可用Windows注册表编辑器将特定的文件类型同应用程序关联起来。例如，扩展名为。

TXT的文本文件通常与Windows记事本（NOTEPAD。EXE）关联到一起。

如在文件管理器中双击含。TXT扩展名的一个文件，就会自行启动记事本程序，并在其中载入文本文件；或者将指定的文件打印出来 返回值 Long，大于32表示成功 参数表 ： 参数 类型及说明 hwnd Long，指定一个窗口的句柄，有些时候，Windows程序有必要在创建自己的主窗口前显示一个消息框。

如果发生这种情况，由这个参数指定的窗口就会作为消息框的父窗口使用。在VB环境中，通常将活动窗体的窗口句柄作为这个参数使用 lpOperation String，指定字串“Open”来打开lpFlie文档；或指定“Print”来打印它。

也可设为vbNullString，表示默认为“Open” lpFile String，想用关联的程序打印或打开的一个程序名或文件名 lpParameters String，如lpFile是一个可执行文件，则这个字串包含了传递给执行程序的参数。 如lpFile引用的是一个文档文件，或者不需要使用参数，则设为vbNullString lpDirectory String，想使用的默认路径完整路径 nShowCmd Long，定义了如何显示启动程序的常数值。

注解 这个函数的说明在MSDN里是这样的：Opens or prints a specified file VB是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一但报表格式发生变化，就得相应修改程序，给应用软件的维护工作带来极大的不便。 因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。

但由于VB与EXCEL由于分别属于不同的应用系统，如何把它们有机地结合在一起，是一个值得我们研究的课题。 一、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，在其上放置两。

4.如果实现vb对excel数据的调用?然后随机抽取?我想做一个软件

1。

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

但由于VB与Excel分别属于不同的应用系统，如何把它们有机地结合在一起，是一个值得我们研究的课题。 笔者在软件开发工作中，对VB的自动化功能和Excel的宏功能进行了一定的研究，实现了VB与Excel的有机结合。

现提出来与大家探讨。 一、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。CloseTrue '关闭工作薄 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\ ”)= “”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。 Worksheet(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\ ”) “” 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\ ” For Output As #1 Close #1 End Sub Sub auto_close() Kill “d:\temp\ ” End Sub 4、运行VB程序，点击Excel按钮可以打开Excel系统，打开Excel系统后，VB。

5.如何向一组Excel文件中的任意打开一个文件中用VB程序向其中写

抛砖引玉吧，分还是留点下面的人得。

因为代码我本机没有，从你的提问来看你还要学很多东西。提供一个方法给你参考：在vb里创建一个excel对象。

你的分给的太高了，所以我还是决定进行补充（虽然楼下辛苦了贴了很多代码）：不管你想做什么程序，VB与微软的EXCEL交互只有那么一两种方法，我个人曾经使用过楼下所贴代码的方法，也就是声明一个Excel。 Application对象，利用此对象提供的属性与方法对表格进行读写、格式控制。

我现在也经常用这种方法，不过是在网页中使用。我所知还有另一种方法，是利用ODB数据接口，将EXCEL看成一个数据库，利用数据库语言将数据写入到EXCEL中。

前一种方法，会打开一个EXCEL进程，效率上差点，但几乎能全面地控制EXCEL的所有功能。 后一种方法简单，效率高，但基本上只能进行数据的读写，无法控制格式等高级功能。

至于你应许选用什么方法，要看你想达到的效果和要求而定。如果你曾经在EXCEL中编写过宏，我想第一种方法对你来说学起来不难。

如果你对VBA不是很熟悉，我想你还是选第二种吧！顺便说一句：你的这个“万用表”的思路还是挺奇特的，祝你成功。

6.怎么在VB的一个文本框里显示Exce中的一个数据

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

'要在VB中操作Excel，需要引用Excel对象模型

'方法，在菜单里选择[工程] -- [引用]，在窗口里勾选 Microsoft Excel XX.X Object Library

'其中，XX.X取决于你安装的Office的版本号

'在你的显示按钮中加入以下代码。

'注："地址"中加入你的excel文件地址，如"C:\1.XLS"，要带双引号

'Sheet1也可以改为你的工作表的名字，要带双引号

Dimexcel_App AsExcel.Application

Dimexcel_Book AsExcel.Workbook

Dimexcel_sheet AsExcel.Worksheet

'启动Excel

Setexcel_App = CreateObject("Excel.Application") '引用程序对象实例

'设置Excel为不可见

excel_App.Visible = False

'打开文件

Setexcel_Book = excel_App.Workbooks.Open("book1.xlsx") '工作簿实例

Setexcel_sheet = excel_Book.Worksheets("Sheet1") '数据表实例

'这里需要先将你的车号存入valuesearch变量才能搜索

Form1.TextBox1.text = excel_sheet.Range("R1").Value

'''''''''''''''''''''''''''''''''''

'关闭Excel文件

Setexcel_sheet = Nothing

Setexcel_Book = Nothing

excel_App.Quit

Setexcel_App = Nothing

7.特急,在线等

VB是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一但报表格式发生变化，就得相应修改程序，给应用软件的维护工作带来极大的不便。

因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。但由于VB与EXCEL由于分别属于不同的应用系统，如何把它们有机地结合在一起，是一个值得我们研究的课题。

一、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分别属两个不同的应用系统。

8.如何在EXCEL中编写VB代码

按ALT+

F11

再ThisWorkbook

中加入如下语句

Dim

current_time

Private

Sub

Workbook_BeforeSave(ByVal

SaveAsUI

As

Boolean,

Cancel

As

Boolean)

Dim

used_time

used_time

=

Now()

-

current_time

MsgBox

("you

have

used"

&

Format(used_time,

"hh:mm:ss"))

End

Sub

Sub

?Image1_Click()

current_time

=

Now()

MsgBox

("start

time

at

"

&

current_time)

End

Sub

在表中画一个Label

,

然后定义的宏指向

image1_click就行了.