如何使用一个"已经"打开的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文件必须打开，因为别的程序需要用它。
谢谢
- 网友回复：
VBA技术问题比较复杂,不可能马上就能给出你答案,我们正在跟踪解决你的问题,请耐心等待
- 网友回复：
http://www.weistock.com/bbs/dispbbs.asp?BoardID=5&ID=6539&replyID=&skin=1
看看这个例子，不行再说！
有思路，想编写各种指标公式，程序化交易模型，选股公式，预警公式的朋友
可联系技术人员 QQ: 1145508240 进行 有偿 编写！（不贵！点击查看价格！）
相关文章
-
没有相关内容
会员登录/注册