質問: Excel VBAについて教えてください。 やりたいことは 1、作成したボタンを押したら「A1」に入っている場所(フォルダ指定) を読み取りコマンドプロンプトを起動。 (要約→ cdで指定する場所をA1に書いてある場所でCMD起動) 2、1後、処理が入り生成されたファイル(xlsm)に名前を付けて保存したいです。 (要約→ ファイル参照ダイアログの表示→保存→ファイル生成) ※セルに記載された場所(フォルダ)をコマンドプロンプト内文面に反映したい。 以上、よろしくお願いします。
回答: すみません。再回答が遅れました。 > Wireshark.exeがあるフォルダでcmdを実行し tshark -r C:\Users\処理前ファイル.pcap -Y "ip.addr==192.168.1.10" -w C:\Users\指定IP.pcap という流れを手入力でなくExcelマクロで半自動化したいです。 1「ファイル選択ボタン」を作成しファイル選択→「A1」に場所書き出し(処理前ファイル.pcap) 2「分離処理ボタン」で1の元ファイルで「A3」に手入力してある指定IP(192.168.1.10) を抽出処理→保存のダイアログボックスを開く→ファイル名入力し保存。 > という事は、プログラムは2本必要なのですか。 C1: 192.168.1.10、が入っている フォルダ名、ファイル名に空白は無いものとします。 Macro1:ダイアログボックスで「C:\Users\処理前ファイル.pcap」を指定。 このファイルは必ず存在する。 Macro2:ダイアログボックスで「C:\Users\指定IP.pcap」を指定。 コマンドプロンプトで実行。 Option Explicit ' Sub Macro1() Dim FileName As String ' FileName = Application.GetOpenFilename _ (FileFilter:="処理前ファイル.pcap,*.pcap", Title:="処理前ファイル") ' If FileName <> "False" Then [A1] = FileName End If End Sub ' Sub Macro2() Dim FileName As String ' FileName = Application.GetSaveAsFilename _ (FileFilter:="指定IP.pcap,*.pcap", Title:="tshark実行") ' If FileName = "False" Then End End If ChDrive "C:" ChDir "C:\(「Wireshark.exeのあるフォルダをフルパスで指定)" Shell "tshark -r " & [A1] & " -Y ""ip.addr==" & [C1] & _ """ -w " & FileName, vbNormalFocus End Sub Wireshark.exe 使ったことがないし、今後使う予定もありません。 私の環境では「ファイルが見つかりません」になります。 上手くいくかどうか解りません。