VBA使用頻度の高いコード(7):コマンドラインからアプリ読出し
コマンドラインからアプリ読出し
コマンドラインからアプリ読出し用コード
ここコードは同じ、フォルダ内の「縮小専用」にファイルパスを渡しリサイズする例です。
流れとしては、
事前に貼付用CSVファイル作成
⇒元のシートからファイルパス取出し
⇒Shellオブジェクトにアプリのパスとファイルパス渡す
⇒完了
===============================
Sub 写真データリサイズ()
Dim SrcName As String, Res, i, FilePath, newFolder
newFolder = newFolder & " " & ThisWorkbook.Path & Range("J8") & Range("J" & i) & "\" & Range("k" & i) & ".jpg"
On Error Resume Next
'この例ではBookと同じフォルダにShukuSen.exeがあります。
Res = Shell(ThisWorkbook.Path & "\ShukuSen.exe" & newFolder, vbNormalFocus)
If Err.Number Then
MsgBox "error"
Exit Sub
End If
On Error GoTo 0
End Sub
===============================