Question

vb中怎么打开用一个exe文件打开另一个文件

Answer 1

基本步骤：
1，引用EXCEL对象模型。
2，声明EXCEL对象变量，包括：工作簿对象、数据表对象，等等。
3，利用工作簿对象的打开、保存、就可以实现。
下面给一个例子：

'首先通过VB的菜单[工程] -- [引用]，勾选：Microsoft Excel XX.0 Object Library
'其中XX.0是不同EXCEL版本对应的数字也不同，由你计算机安装的OFFICE版本而定
'Office 2003 ---- 11.0
'Office 2007 ---- 12.0
'Office 2010 ---- 14.0

Private Sub Command1_Click()
Dim xlsApp As Excel.Application '声明Excel对象变量
Dim xlsBook As Excel.Workbook '声明工作簿对象变量
Dim xlsSheet As Excel.Worksheet '声明工作表对象变量

Set xlsApp = CreateObject("Excel.Application") '创建EXCEL对象实例
Set xlsBook = xlsApp.Workbooks.Open("C:\实验1.xls") '设置工作簿对象并打开已经存在的工作簿EXCEL文件

xlsApp.Visible = False '设置EXCEL对象不可见（或True为可见）
Set xlsSheet = xlsBook.Worksheets("Sheet1") '设置工作表对象为打开的工作簿中的表“Sheet1”

'引用单元格方法1
xlsSheet.Cells(1, 1) = 999 '给“Sheet1”表的第1行第1格即“A1”单元格赋值999
xlsSheet.Cells(2, 1) = "你好！" '给“Sheet1”表的第1行第1格即“A2”单元格赋值"你好！"
xlsSheet.Cells(3, 2) = "EXCEL" '给“Sheet1”表的第1行第1格即“B3”单元格赋值"EXCEL"

'读取单元格数据
Dim x As Integer
Dim s As String
Dim d1 As Date
x = xlsSheet.Cells(1, 1).Value
s = xlsSheet.Range("C1").Value
d1 = xlsSheet.Range("C2").Value
MsgBox x, , "VBA 实例"
MsgBox s, , "VBA 实例"
MsgBox d1, , "VBA 实例"

xlsBook.Close (True) '关闭工作簿并保存所做的修改 (False)则放弃修改，xlsBook.Close将会提问
xlsApp.Quit '关闭EXCEL对象
Set xlsApp = Nothing '释放xlApp对象

End Sub