0

Excelファイルを開いてデータを取得するVBScriptがあります。Excel ファイルへのパスはハードコードされているため、ファイルは同じ名前で、同じ場所にある必要があります。

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

スクリプトを実行すると、使用するファイルを選択できるエクスプローラーが表示され、そのファイルのパスが取得され、ハードコーディングされたパスの代わりにそのパスが使用されるようにしたいと考えています。

質問する前に検索しましたが、解決策が見つかりませんでした。これは可能ですか？または同様の解決策があり、どうすればそれを行うことができますか?

ありがとうございました。

4

1 に答える 1

2

これはすべてのファイル タイプで機能するわけではありませんが、不思議なことに .xls はサポートされているファイルの 1 つです。

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
于 2013-10-22T13:57:26.390 に答える