- 金字塔客服中心 - 专业程序化交易软件提供商 (http://weistock.com/bbs/index.asp)
-- 高级功能研发区 (http://weistock.com/bbs/list.asp?boardid=5)
---- 这个貌似激活没用， 文件窗口打开了，但不显示内 (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=76209)
-- 发布时间：2015/3/6 10:53:17
-- 这个貌似激活没用， 文件窗口打开了，但不显示内
请教：这个貌似激活没用， 文件窗口打开了，但不显示内容
激活的是一个空的EXCEL文件，但是已经打开的文件反而没激活
打开的MM不显示内容。
代码如下：
此主题相关图片如下：11.png
此主题相关图片如下：1.png
-- 发布时间：2015/3/6 10:59:22
--
补充代码如下：其中打开的文件叫MM.XLSX 。求修改，激活MM窗口，而不是一个空的EXCEL文件。
PUBLIC myxl
Function lsgd(Formula,strocode)
\'系统会在逐K线模式解释公式时的每个周期都会调用此函数一遍，因此设计时应该注重程序的执行效率，不要重复的执行一些没必要的代码
lsgd=0
Set abc = CreateObject("scripting.filesystemobject")
GetExcelFile("D:\\mm.xlsx")
\'call application.MsgOut("23323")
End Function
Sub GetExcelFile(sFileName)
Dim sWinName \'窗口名
Dim iPos
\'测试 Microsoft Excel 的副本是否在运行。
On Error Resume Next \'延迟错误捕获。
\'不带第一个参数调用 Getobject 函数将
\'返回对该应用程序的实例的引用。
\'如果该应用程序不在运行，则会产生错误。
Set MyXL = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Set MyXL = CreateObject("Excel.Application")
End if
\'将对象变量设为对要看的文件的引用。
Set MyXL = GetObject(sFileName)
iPos = InStrRev(sFileName, "\\", -1, vbTextCompare)
sWinName = Mid(sFileName, iPos + 1, Len(sFileName) - iPos) \'这个使用 sWinName = Mid(sFileName, iPos + 1, Len(sFileName) - iPos-5)也不对
Function lsgd(Formula,strocode)
\'系统会在逐K线模式解释公式时的每个周期都会调用此函数一遍，因此设计时应该注重程序的执行效率，不要重复的执行一些没必要的代码
lsgd=0
Set abc = CreateObject("scripting.filesystemobject")
GetExcelFile("D:\\mm.xlsx")
\'call application.MsgOut("23323")
End Function
Sub GetExcelFile(sFileName)
Dim sWinName \'窗口名
Dim iPos
\'测试 Microsoft Excel 的副本是否在运行。
On Error Resume Next \'延迟错误捕获。
\'不带第一个参数调用 Getobject 函数将
\'返回对该应用程序的实例的引用。
\'如果该应用程序不在运行，则会产生错误。
Set MyXL = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Set MyXL = CreateObject("Excel.Application")
End if
\'将对象变量设为对要看的文件的引用。
Set MyXL = GetObject(sFileName)
iPos = InStrRev(sFileName, "\\", -1, vbTextCompare)
sWinName = Mid(sFileName, iPos + 1, Len(sFileName) - iPos)
\'msgbox swinname
\'设置其 Application 属性，显示 Microsoft Excel。
\'然后使用 MyXL 对象引用的 Windows 集合
\'显示包含该文件的实际窗口。
MyXL.Application.Visible = true
MyXL.Application.ScreenUpdating = True
\'AppActivate swinName
MyXL.Parent.Windows(1).Activate
MyXl.Application.Sheets(1).Visible=true
End Sub
\'msgbox swinname
\'设置其 Application 属性，显示 Microsoft Excel。
\'然后使用 MyXL 对象引用的 Windows 集合
\'显示包含该文件的实际窗口。
MyXL.Application.Visible = true
MyXL.Application.ScreenUpdating = True
\'AppActivate swinName
MyXL.Parent.Windows(1).Activate
MyXl.Application.Sheets(1).Visible=true
End Sub
-- 发布时间：2015/3/6 12:57:26
--
经过多次调试，终于通了，谢谢。。那个ON ERROR 把错误都隐含了。 去了就通了。