【要改善】ExcelのVBAボタンからWinSCPを起動してLinuxサーバから今日日付がファイル名に付いた指定のログをダウンロードする

Excel上のボタンを押せば誰でも指定のファイルをダウンロードできるようなものをと思い。

ExcelVBAのコード

今日日付のフォルダを作ってその中に指定のファイル名のログをダウンロードするWinSCPを起動する。「vbDirectory」でフォルダの有無をチェックして、すでにフォルダがある場合は作成しない(便利ね～）。
※Shellの中でWinSCPのログのパスを「folder_path」を使ってもっと短くしたかったのだが、うまくShellの中に入れ込められてないのでこれで動くが後で修正する。

Sub 案件1の本日日付フォルダにログをダウンロード()
  Dim folder_path As String
  Dim today_date As String
  today_date = Format(Date, "yyyymmdd")
  folder_path = "C:\work\temp"
  folder_path = folder_path & "\" & today_date & "_案件1"
  If Dir(folder_path, vbDirectory) = "" Then
    MkDir folder_path
  End If

Shell "C:\Program Files (x86)\WinSCP\WinSCP.exe /console /log=""C:\work\temp" & "\" & today_date & "_案件1\" & today_date & "_scp.log"" /script=C:\work\winscp_dl.txt", 1

End Sub

winscpのスクリプト

winscp_dl.txt(パスワード認証の場合）

option batch off
option confirm on
open user:password0@サーバ名
option transfer binary

cd /hoge/logdir
get hoge_%TIMESTAMP#yyyymmdd%.log C:\work\temp\%TIMESTAMP#yyyymmdd%_案件1

close

exit

winscp_dl.txt(鍵認証の場合）

option batch off
option confirm on
open scp://ユーザー名@サーバ名 -privatekey=”C:\path\to\hoge.ppk”
option transfer binary

cd /hoge/logdir
get hoge_%TIMESTAMP#yyyymmdd%.log C:\work\temp\%TIMESTAMP#yyyymmdd%_案件1

close

準備ができたら
Excel上にボタンを作成して
ボタンにExcelVBAマクロを登録すればボタンで使えます。

以上

【PR】 【値上がり時代の新定番! 】アイリスオーヤマ パックご飯 180g 国産米 100% 低温製法米 非常食 米 レトルト 180g×3個

(3469)

￥501 (2025年4月4日 09:31 GMT +09:00 時点 - 詳細はこちら価格および発送可能時期は表示された日付/時刻の時点のものであり、変更される場合があります。本商品の購入においては、購入の時点で当該の Amazon サイトに表示されている価格および発送可能時期の情報が適用されます。)