共3 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：这个貌似激活没用， 文件窗口打开了，但不显示内
1楼
qq代人发帖 发表于：2015/3/6 10:53:17请教：这个貌似激活没用， 文件窗口打开了，但不显示内容
激活的是一个空的EXCEL文件，但是已经打开的文件反而没激活
打开的MM不显示内容。
代码如下：
此主题相关图片如下：11.png
此主题相关图片如下：1.png
2楼
tiantian2888 发表于：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
3楼
tiantian2888 发表于：2015/3/6 12:57:26经过多次调试，终于通了，谢谢。。那个ON ERROR 把错误都隐含了。 去了就通了。
共3 条记录, 每页显示 10 条, 页签:
[1]