如何使用一個"已經(jīng)"打開的workbook [金字塔]
- 咨詢內(nèi)容：
我已經(jīng)打開了excel的test.xlsx文件. 目的是想讓VBS macro 更新其中的一個CELL, 比如 cells(2,2)
Set objExcel = GetObject("", "Excel.Application") -- okay 可以定義application, 但workbook卻遇到問題
我不想用workbooks.add 或workbook.open 因為我必須用"已經(jīng)"打開的一個固定的workbook (test.xlsx),不想用一個新的workbook.
我試過active workbook, this workbook, work activate (看下面例子) 但都出現(xiàn)錯誤. 請幫助一下!
謝謝
' 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
- 金字塔客服：
十萬火急，請各位大俠盡快幫忙，，多謝了！！
- 用戶回復：
實際上我想做的就是每當海龜系統(tǒng)發(fā)出信號時，讓金字塔在“已經(jīng)”打開的excel文件中如何寫入一個簡單的“1”字。關(guān)鍵是excel文件必須打開，因為別的程序需要用它。
謝謝
- 網(wǎng)友回復：
VBA技術(shù)問題比較復雜,不可能馬上就能給出你答案,我們正在跟蹤解決你的問題,請耐心等待
- 網(wǎng)友回復：
http://www.weistock.com/bbs/dispbbs.asp?BoardID=5&ID=6539&replyID=&skin=1
看看這個例子，不行再說！
有思路，想編寫各種指標公式，程序化交易模型，選股公式，預警公式的朋友
可聯(lián)系技術(shù)人員 QQ: 1145508240 進行 有償 編寫！（不貴！點擊查看價格！）
相關(guān)文章
-
沒有相關(guān)內(nèi)容
會員登錄/注冊