Dim wkm As String = "D:\123.xlsx"
If FileIsOpened(wkm)= True Then
Output.Show("文件已打开")
Dim ps As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("excel")
For Each p As System.Diagnostics.Process In ps
msgbox(p.MainWindowTitle)
If p.MainWindowTitle.contains("123") Then p.kill
Next
Else
Output.Show("未打开")
Dim proc As new Process
proc.File = wkm
proc.Start
End If
这代码 尚有缺点
一，如果是 先打开 123.xlsx 文件 再打开了其它EXCEL 文件 ，即123.xlsx 文件 非当前活动 EXCEL窗口，则不能关闭123这个WORKBOOK。
二，如果打开了多个 EXCEL WORKBOOK 则本程序 直接杀了 EXCEL程序 其它用户 已打开 的 EXCEL 文件 也会直接杀掉，这是万万不可的。
那么请教一下 写法：
- Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook =
App.WorkBooks.Open("D:\123.xlsx")
如果123.xlsx 文件已打开了，如何将 123.xlsx这个WORKBOOK 赋值给 Wb了
加好友 
发短信
Post By：2016/8/11 10:42:00 [显示全部帖子]
此主题相关图片如下：qq图片20160811162741.png