🎄teratailクリスマスプレゼントキャンペーン2024🎄』開催中!

\teratail特別グッズやAmazonギフトカード最大2,000円分が当たる!/

詳細はこちら
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

2回答

958閲覧

【VBA】VBAからほかのアプリファイルを起動して操作する方法

S2nemuS2

総合スコア1

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2021/03/18 23:57

編集2021/03/19 00:00

セル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

お知恵を貸していただけますと助かります。
よろしくお願いいたします。

※質問内容に足らない点あればご教示ください。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答2

0

可能性としては、

  • 単純にパスとファイル名が間違っている。

確認法
Debug.Print "D:\" & file というコードをShellコマンドの前に挿入して実行してみて、イミディエイトウィンドウに出力されたフルパスが正しいかどうか確認する。

  • フルパスに半角空白が含まれている。

対策 フルパスを引用符で囲む。

vba

1Kido_note = Shell("notepad.exe ""D:\" & file, vbNormalFocus & """")

セルA1 C:\~\新規フォルダー

上記を見逃していました。(;^ω^)
jinojiさんの回答を参考にしてください。

投稿2021/03/19 00:15

編集2021/03/19 00:18
hatena19

総合スコア34073

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

0

ベストアンサー

今の記述だと
notepad.exe D:\C:\~\新規フォルダー\テスト.log
となっています。

投稿2021/03/19 00:08

jinoji

総合スコア4592

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

jinoji

2021/03/20 05:07

実際にメモ帳で開くだけなら Kido_note = Shell("notepad.exe """ & file & """", vbNormalFocus) とすればいけそうですが、 開いたファイルに何かしらの編集をしたいというなら、 VBAでメモ帳を操作する、というよりは(それもできなくはないですが) 「対象のLogファイルをVBAで開く」やり方を調べるのが適切かもしれません。
S2nemuS2

2021/03/22 01:13

アドバイス頂いたとおり、ファイルパスを直して「対象のLogファイルをVBAで開く」で開くと検索したら意図した操作ができました! ありがとうございました!
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.36%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問