朋友们帮忙回答一下

Question

如果存在对象的当前实例，或者您希望使用已加载的文件创建对象，请使用 GetObject 函数。如果不存在对象的当前实例或者不希望使用已加载的文件启动对象，请使用 CreateObject 函数。如果对象已注册为 Active-X 单实例对象，则无论执行多少次 CreateObject，都只创建该对象的一个实例。对于单实例对象，当使用零长度字符串 ("") 语法调用 GetObject 时，GetObject 始终返回同一实例，如果省略 pathname 参数，则会导致错误。不能使用 GetObject 获取对用 Visual Basic 创建的类的引用。

Answer 1

Dim objexl As Excel.Application
Dim objWrk As Excel.WorkbookSet objexl = New Excel.Application
Set objWrk = objexl.Workbooks.Open("")
'.......................
objWrk.Close
objexl.Quit  

Answer 2

zyg0(影子(加班，加班，再加班) ( ) 信誉：98    Blog  2007-02-06 09:54:33  得分: 0  
 
 
   看看你的任务管理器
  
 进程里有EXCEL.EXE

Answer 3

我想希望实现的功能是首次运行程序时就由程序创建一个EXCEL,以后再运行此程序时就打开由程序创建的EXCEL,并向其写入数据.

Answer 4

再帮帮忙看看下面的代码:
Function readdata()
Dim x As String
Dim ncol As Integer
Open path_name + "/" + file_name For Input As #1
x = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1
Dim objexl As Excel.Application
Set objexl = New Excel.Application
Dim objWrk As Excel.Workbook
Set objWrk = objexl.Workbooks.Open("G:/发报报文.xls")
objexl.Workbooks.Add
objexl.Sheets(objexl.Sheets.Count).Name = "发报报文"objexl.Cells(1, 1) = "日期"
objexl.Cells(1, 2) = "报文内容"
objexl.Cells(1, 3) = "发报人"
  If Err.Number = 0 Then
   objexl.Quit
    Set objexl = Nothing
End If
Err.Clear
objWrk.Close           ‘此句老是说自动化出错
objexl.Quit                 
End Function
运行上述程序时为何G:/发报报文.xls此文件没有更改内容?

Answer 5

已经执行了objexl.Quit再objWrk.Close 当然出错