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