VBA中如何获取当前打开的EXCEL文件名？

Question

例如，我打开了一个EXCEL文件，用VBA编写宏命令时如何获取这个打开并活动的这个EXCEl文件名？谢谢

Answer 1

Dim xl As New Excel.Application
Dim xlBook As Workbook
Set xl = GetObject(, "Excel.Application")
Set xlBook = xl.ActiveWorkbook
Debug.Print xlBook.Path & "\" & xlBook.Name

Answer 2

Dim str1 As String,str2 as string
str1 = Application.ActiveWorkbook.FullName
str2 = ThisWorkbook.Path
其中，str1得到的是带有文件名的路径名，str2得到的是路径名。如：
str1="e:\test\book1.xls"
str2="e:\test"