VB操作已经事先打开的excel-vb6 打开excel,excel怎么打开vb

没搞懂，有这需求么？

如果要看全部表格，得用表格控件，可以找个3方控件，也可以直接把excel作为一个对象放到vb中。不过一般没人这么做，因为excel打开表格肯定比自己设计的程序打开后操作方便么？

如果你是想知道怎么用自己的程序操作excel的某些细节，那就看看下面的例子代码。

例子如下：
新建一个工程并在新建的窗体上放置两个TextBox控件和一个CommandButton控件及六个Label控件。
程序代码如下：
Option Explicit
Private Sub Command1_Click()
Dim xObject As Object
′调用Excel 97
Set xObject = CreateObject(“Excel.Sheet")
Set xObject = xObject.Application.ActiveWorkbook.ActiveSheet
xObject.Range(“A1").Value = Text1.Text ′将数值送入Excel 97的A1单元格
xObject.Range(“A2").Value = Text2.Text ′将数值送入Excel 97的A2单元格
xObject.Range(“A3").Formula = “=MAX(A1,A2)" ′将最大值送入A3单元格
xObject.Range(“A4").Formula = “=ATAN(A1/A2)＊180/PI()" ′将反正切值送入A4单元格
′显示计算的结果
Label1.Caption = xObject.Range(“A3").Value
Label2.Caption = xObject.Range(“A4").Value
Set xObject = Nothing
End Sub

Private Sub Form_Load()
Text1.Text = “"
Text2.Text = “"
Label1.Caption = “"
Label2.Caption = “"
End Sub

该程序的作用是：首先在两个文本框（Text1和Text2）输e5a48de588b67a686964616f335入数值并分别将输入的数值送入Excel 97的“A1”和“A2”单元格中，然后用Excel 97中的“Max()”函数将计算的结果送入“A3” 单元格中；用反正切函数“ATAN()”进行计算并将结果送入“A4” 单元格中，最后输出。

Dim xlApp As Object '定义来EXCEL类
Dim xlBook As Object '定义工件自簿类
Dim xlsheet As Object '定义工作百表类

放在函数外面，做全局定义
public xlApp As Object
public xlBook As Object
public xlsheet As Object
当你上面的函度数执行正确以后，
在其知他地方调用 xlsheet 的时候道，就是Worksheets("sheet1") 了

Visual Basic开发工具模式可以直接复从Excel表格中进入，不需要另外打开。

具体步骤：

1、在电脑上桌面上找到Excel表格图标，双击打开。

2、打开Excel软件后，点击左上角按钮。

3、点击后会弹出一个菜单，在菜单中点击Excel选项按钮。

4、然后在弹出的对话框中勾选自定义功能制区中的“开发工具”。

5、然后点击右下方确定按钮。

6、点击确定后，会返回Excel页面。

7、然后在Excel上方的导zd航栏中点击开发工具按钮。

8、然后在开发工具页面，点击Visual Basic选项。

9、点击后就会进入Visual Basic开发模式。

10、点击左侧导航栏中的Excel中的sheet表格，就可以在Visual Basic中打开了。

一、检查是否你已经手动打开了c:\1.xls文件？
Set xlBook = xlApp.Workbooks.open("c:\1.xls") 语句的意思是打开c:\1.xls文件，因此，
对于已经打开的c:\1.xls文件，不能执行 Set xlBook = xlApp.Workbooks.open("c:\1.xls") 语句。
二、在每次执行完xlApp对象，需要关闭e79fa5e98193e4b893e5b19e339它才可以再次用代码打开。
如果不关闭代码打开的对象，也会像上面说的那样，出现已经打开文件的错误提示。
在你的事例中，Set xlSheet = xlBook.Worksheets(1)xlSheet.Cells(1, 2) = "11111" 是最后一句
处理 excel 工作表的语句，因此应把关闭对象代码放到这句后面。即：
Private Sub Command2_Click()
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
'Set xlApp = GetObject(, "Excel.Application")
Set xlBook = xlApp.Workbooks.open("c:\1.xls")
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Cells(1, 2) = "11111"
xlBook.Save
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
End Sub