2016-10-21 6 views
2

Excel-VBAでワークブックを作成していますが、HEC DSSを使用してスクリプトを実行します。つまり、excel-vbaを使用して、まず「HEC DSS」を開いてから、アプリケーションにスクリプトを開くよう指示します。Ms Excel VBA - シェルコマンドを使用してファイルを開く

上記のscnerioをNotePAd.exeとtxtファイルと簡単に関連付けてみましょう。その目的のために、私はグーグルで別のものを試しましたが、誰も働いていませんでした。私はSHELLコマンドを使用しようとしています。


Sub test() 

Dim retval as string 

dim file name as variant 

filename="C:\Users\Nayar Asif\Desktop\Test_2.txt" 

retval = Shell("notepad.exe" & filename, vbnormalfocus) 

end sub 

上記のコードは動作しません:以下のコードを見つけてください。考え方は、メモ帳アプリケーションを開き、メモ帳ファイルを開くことです。どんな助け?スペースで

よろしく Nayyar

答えて

2

ファイルのパスは引用符で囲む必要があります

retval = Shell("notepad.exe """ & filename & """", vbnormalfocus) 
+1

あなたの返信ありがとうございますTimしかし、私はすでにこの構文でコマンドを試してみました。 –

+1

サブテスト() Dim filepath as Variant Dim retval As String filepath = "C:\ Users \ Nayar Asif \ Desktop \ Test_2.txt" retval = Shell( "notepad.exe" ""&filepath& "" ""、vbNormalFocus) End Sub。しかし、それは動作しません。これはエラー "Rune-time error 53 –

+1

私の例と同じではありません:' notepad.exe'とファイルパス –

1

ソリューションだけでnotepad.exeをした後、 "空間" と二重引用符の前にある:

retval = Shell("notepad.exe " & filename, vbnormalfocus) 
関連する問題