作者：乔山办公网日期：
返回目录：excel表格制作
只找出一个工作簿还是全部找出来？
Sub test()
Dim FileName, xlsName As String
FileName = Application.GetOpenFilename("Excel文件copyzhidao(*.xls),*.xls")
xlsName = Mid(FileName, InStrRev(FileName, "\") + 1, 100)
MsgBox xlsName
End Sub
Cells(aa, 1).Value =oFile
就好啦，，
还要怎么写？？
Cells(aa, 1).Value =oDoc.name
针对ThisWorkbook对象的百BeforeClose事件添加如下代码
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim fileStr As String
fileStr = "$111.xls$333.xls$“ ‘度头尾都问用$分隔，循环判断文件名
For I = Workbooks.count To 1 Step -1
If InStr(fileStr, Workbooks(I).Name) <> 0 Then
Workbooks(I).Close False ‘False是不保存关闭答 true是保存并关闭
End If
Next
End Sub
关闭时就会遍专历所有打开的excel文件，执行属不保存操作，并关闭