Dim excel_file_opened As Boolean = False

Private Sub Test(ByRef sName As String)

Dim fs As FileStream
Try
fs = File.Open(sName,FileMode.Open,FileAccess.Read,FileShare.None)
excel_file_opened = False
fs.Close() Catch ex As Exception excel_file_opened = True End Try End Sub 原文链接：https://www.f2er.com/vb/258524.html