食っちゃ寝システムができるまで

「食っちゃ寝システム」ができるまでの、棚卸&備忘録です。

VBA使用頻度の高いコード(7):コマンドラインからアプリ読出し

f:id:taikobox:20181209173448p:plain

コマンドラインからアプリ読出し

コマンドラインからアプリ読出し用コード

ここコードは同じ、フォルダ内の「縮小専用」にファイルパスを渡しリサイズする例です。

流れとしては、

事前に貼付用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

===============================