主题：如何使用一个"已经"打开的workbook

 我已经打开了excel的test.xlsx文件. 目的是想让VBS macro 更新其中的一个CELL, 比如 cells(2,2)

 Set objExcel = GetObject("", "Excel.Application") -- okay 可以定义application, 但workbook却遇到问题

我不想用workbooks.add 或workbook.open 因为我必须用"已经"打开的一个固定的workbook (test.xlsx),不想用一个新的workbook.

我试过active workbook, this workbook, work activate (看下面例子) 但都出现错误. 请帮助一下!

谢谢

' Workbooks(sfname).Sheets("Sheets1").Activate

' objExcel.Application.Workbooks(sfname).Activate()

' set wkb  =  objExcel.Excel.Workbooks(1)
' objExcel.ActiveWorkbook.Sheets(1).Select
' objExcel.ActiveWorkbook.Activesheet

 '   Set wkb = objExcel.Workbooks(1)
 Set wkb = Workbooks(1).Worksheets(1)
 '    wkb.Activate
'    Set wks = wkb.ActiveSheet
'    objExcel.Visible = True
'    wks.Activate
 
'  set wkbname = ActiveWorkbook.Name
 '  objExcel.Workbooks(sfname).Activate
' activeworkbook.sheets(1).select()
    worksheets("Sheet1").Activate
'set xlBook = objExcel.WorkBooks.Open(filename)
'set xlSht = objExcel.activesheet
 
' objExcel.WorksSheets( "Sheet1" ).Activate
'  Dim wkb As Workbook
'  set  wkb = objExcel.Workbooks(1)
 
  objExcel.Visible = True
'  set objExcel.Workbooks(1).Sheets(1).Cells(2,2).Value = 100
 
'  Set wkb = objExcel.Application.Workbooks(1)
'  wkb.Activate
'  objExcel.WorkBooks.Add

 十万火急，请各位大侠尽快帮忙，，多谢了！！

 实际上我想做的就是每当海龟系统发出信号时，让金字塔在“已经”打开的excel文件中如何写入一个简单的“1”字。关键是excel文件必须打开，因为别的程序需要用它。

谢谢

 

非常感谢你的回复， 我刚刚试过，但它说该excel文件已经打开了被锁住。


 
 strSheet = "Sheet1"
 filename = "C:\Users\Public\test2.xlsx"
 sfname = "test2.xlsx"

  Set objExcel = GetObject("", "Excel.Application")
  Set objExcel = GetObject(filename)
 
    objExcel.Application.Visible = True
    objExcel.Application.ScreenUpdating = True
    objExcel.Parent.Windows(1).Activate
    objExcel.Application.Sheets(1).Visible=true

  objExcel.Cells(2, 2) = "1"


谢谢

 谢谢你的程序，直接写出程序反映你对用户的认真负责的态度，多谢！！！
我导入了你的vbs文件，同时打开我的test.xlsx，和打开金字塔IF价格但还是看到一个新的标有”excel“名字的excel文件，原来的test.xlxs还是没有被更新，新的excel也只是灰色的界面看不到任何cells。

请看我的屏幕截图。多谢

此主题相关图片如下：截图20140616120913446.jpg