如何使用一個"已經"打開的workbook

作者：金字塔來源：cxh99.com 發布時間：2014年08月20日

咨詢內容： 我已經打開了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文件必須打開，因為別的程序需要用它。

謝謝
網友回復： VBA技術問題比較復雜,不可能馬上就能給出你答案,我們正在跟蹤解決你的問題,請耐心等待
網友回復：
http://www.weistock.com/bbs/dispbbs.asp?BoardID=5&ID=6539&replyID=&skin=1

看看這個例子，不行再說！