2013-10-22 35 views
0

我有一個VBScript,它打開一個excel文件並從中獲取數據。 Excel文件的路徑是硬編碼的,因此文件必須命名相同,並且必須位於同一位置。獲取所選文件的文件路徑

Set objWorkbook = objWbs.Open("C:\Users\name\Desktop\form.xls") 

我想使它所以當腳本運行它表明探險家在使用,那麼可以選擇他們要使用的文件,它會採取該文件的路徑,並使用該路徑,而不是硬編碼的。

我在提問之前搜索過,但找不到解決方案。這可能嗎?或類似的解決方案,我將如何去做呢?

謝謝。

+0

我不太熟悉VBScript,但我會說你可以放在一個文本框中,讓用戶鍵入一個格式良好的路徑。您可以隨時進行檢查以查看是否有任何不良字符,或者文件不存在,並在出現問題時向他們發送消息。編寫完整的瀏覽功能看起來會更困難,但我從來沒有嘗試過,也不太熟悉VBScript,所以我不積極。 –

回答

2

這不適用於所有文件類型,但好奇的是.xls是支持的文件之一。

Set objShell = CreateObject("Shell.Application") 

On Error Resume Next 
Set objFile=objShell.BrowseForFolder(0, "Choose a XLS file:", &h4001&, "c:\") 

If Not objFile is Nothing Then 

    WScript.Echo objFile.Title 
    WScript.Echo objFile.self.Path 

End If