?、俜祷貞?yīng)用程序完整路徑

　　Application.Path

　　比如：D:SoftWareOffice2003OFFICE11

　?、诜祷禺?dāng)前工作薄的路徑

　　ThisWorkbook.Path

　　比如：D:

　?、鄯祷禺?dāng)前默認(rèn)文件路徑

　　Application.DefaultFilePath

　　比如：C:Documents and SettingsAdministratorMy Documents

　　④只返回路徑

　　Application.ActiveWorkbook.Path

　　比如：D:

　?、莘祷芈窂郊肮ぷ鞑疚募?/p>

　　Application.ActiveWorkbook.FullName

　　比如：D:Book1.xls

　?、薹祷毓ぷ鞑疚募?/p>

　　Application.ActiveWorkbook.Name

　　比如：Book1.xls

　　上面的六種情況，在VBA環(huán)境下，你也可以通過(guò)如下的代碼測(cè)試：

　　MsgBox Application.Path

　　ActiveSheet.Cells(1, 1).Value = Application.Path

　　MsgBox ThisWorkbook.Path

　　ActiveSheet.Cells(2, 1).Value = ThisWorkbook.Path

　　MsgBox Application.DefaultFilePath

　　ActiveSheet.Cells(3, 1).Value = Application.DefaultFilePath

　　MsgBox Application.ActiveWorkbook.Path

　　ActiveSheet.Cells(4, 1).Value = Application.ActiveWorkbook.Path

　　MsgBox Application.ActiveWorkbook.FullName

　　ActiveSheet.Cells(5, 1).Value = Application.ActiveWorkbook.FullName

　　MsgBox Application.ActiveWorkbook.Name

　　ActiveSheet.Cells(6, 1).Value = Application.ActiveWorkbook.Name

　　除此之外，和路徑有關(guān)的一個(gè)函數(shù)Dir，是專(zhuān)門(mén)用來(lái)判斷文件是否存在的函數(shù)，代碼如下：

　　Application.ScreenUpdating = False

　　With Application.FileSearch

　　.FileType = msoFileTypeExcelWorkbooks

　　.LookIn = ThisWorkbook.Path

　　.SearchSubFolders = True

　　.Execute

　　If .Execute() > 0 Then

　　m = .FoundFiles.Count '當(dāng)前目錄及子目錄所有工作薄總數(shù)

　　'MsgBox m

　　For Each f In .FoundFiles '在所有的工作薄里做一個(gè)循環(huán)

　　'MsgBox Dir(f) '列出每個(gè)工作薄的名稱(chēng)，只顯示名稱(chēng)，如 dzwebs.xls ，無(wú)路徑

　　If (Dir(f) <> "Total.xls") Then

　　Set xlsApp = New Excel.Application

　　Set xlsBook = Workbooks.Open(ThisWorkbook.Path & "" & Dir(f))

　　Set MyWantGetsheet = xlsBook.Worksheets(1)

　　For i = 1 To 8

　　MyWantGetsheet.Cells(i, 6).Value = ""

　　Next i

　　xlsBook.Save

　　xlsBook.Close

　　xlsApp.Quit

　　Set xlsApp = Nothing

　　Set xlsBook = Nothing

　　Set MyWantGetsheet = Nothing

　　Application.ScreenUpdating = True

　　End If

　　Next

　　End If