Dim excel As Object = Nothing Dim word As Object = Nothing Dim hProcess() As Process = Nothing
hProcess = Process.GetProcessesByName("Excel")
If hProcess.Count > 0 Then
excel = GetObject(, "Excel.Application")
'エクセル
If System.IO.File.Exists(strFileName) Then
Dim xlBook As Object = Nothing
xlBook = excel.Workbooks.Open(strFileName)
CallByName(xlBook, "Close", CallType.Method, False)
ReleaseComObject(xlBook)
End If
End If
上記の方法で開いているstrFileNameに指定したファイルだけを終了させてたいですが、
現在はstrFileNameに指定したパスが存在するファイルを終了して他のエクセルファイルが開いていた場合も消えてしまっています。
どうしたら開いているstrFileNameに指定したファイルだけを終了できますか?
提示されたコードを実行してみましたが、開いたファイルのみ閉じられました。
他のところでクローズしているのでは?
あなたの回答
tips
プレビュー