セルA1に記載したファイルパスと、
セルA2に記載したファイル名をVBAで取得し、
その指定した.logファイルをVBAで操作したいです。
Shell関数を使えばメモ帳などを起動できることまでわかったのですが、
新規メモ帳が開いて「指定されたパスが見つかりません」とエラーになります。
セルA1 C:\~\新規フォルダー
セルA2 テスト.log
VBA
1Sub 実行() 2 3 Dim myPath As String 4 myPath = Range("A1").Value 5 Dim file As String 6 file = myPath & "\" & Range("A2").Value 7 8 Dim Kido_note As Long 9 Kido_note = Shell("notepad.exe D:\" & file, vbNormalFocus) 10 If Kido_note = 0 Then 11 MsgBox "メモ帳起動に失敗しました" 12 End If 13 14End Sub
お知恵を貸していただけますと助かります。
よろしくお願いいたします。
※質問内容に足らない点あればご教示ください。
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。