如何识别新窗口新建的未保存的工作簿

yangk30

      我在工作中经常需要使用一款软件生成报表，但是该软件生成的报表会在新窗口打开，而且是未保存的。每次都需要先保存，再关闭，再打开才能操作！尝试用VBA代码去保存，关闭，再打开，再执行复制粘贴，最后关闭它。

      但是！但是！但是！我试了好多方法都识别不到软件新生成的未保存的工作簿，各位大神有没有方法呀，谢谢！
      由于是新建的未保存的工作簿，而且是在新的表格窗口打开的，所以无法提供附件，望理解！

yangk30

D:\我的文档\Desktop\截图.jpg

yangk30

这个文件连类型都没有....

LIUZHU

VBA之别不到，那就是表示，这个软件打开了新的Excel进程，和VBA所在的工作簿不再一个进程里面。

yangk30

LIUZHU 发表于 2024-1-17 15:26
VBA之别不到，那就是表示，这个软件打开了新的Excel进程，和VBA所在的工作簿不再一个进程里面。

你好，这样的情况有没有办法能处理？

LIUZHU

yangk30 发表于 2024-1-17 15:33
你好，这样的情况有没有办法能处理？

不确定，这种情况极少遇到

yangk30

LIUZHU 发表于 2024-1-17 17:15
不确定，这种情况极少遇到

我试着查找进程，能查找到两个excel进程，但是不知道怎么在每个每个进程里面遍历里面的工作簿，能试试吗？谢谢

yangk30

LIUZHU 发表于 2024-1-17 17:15
不确定，这种情况极少遇到

Sub 测试()
Set objs = GetObject("WinMgmts:").InstancesOf("Win32_Process")
For Each obj In objs
If obj.Name = "et.exe" Then    '我使用的是WPS
   MsgBox obj.Description
   obj.Active   '不对
   For ws = 1 To Workbooks.Count
       If Workbooks(ws).Name Like "工作簿*" Then
          MsgBox Workbooks(ws).Name
'          Shell "taskkill /f /im " & obj
          Exit For
       End If
   Next
End If
a = a + 1
Next
End Sub

LIUZHU

yangk30 发表于 2024-1-17 17:22
我试着查找进程，能查找到两个excel进程，但是不知道怎么在每个每个进程里面遍历里面的工作簿，能试试吗 ...

这个情况的话，如果你要用VBA来保存的话，我觉得你可以试着做一个.xlam的加载文件，并且做一个新的功能区，这样就可以在软件新打开的工作簿的功能区调用VBA程序，来保存工作簿。

Again123456

没明白，没保存的工作簿是有Name没Path的，应该很好判断啊
function test(){
        [...Workbooks].map(v => v.Name).forEach(v=>{
                if (!Workbooks(v).Path) alert(`${v}:  是新打开工作簿，还没保存`)
        })
               
}