unote 書けば書くほどに

FTP

@echo off
set FTP_SERVER=ftp.example.com
set FTP_USER=username
set FTP_PASSWORD=password
set FILE_TO_UPLOAD=example.csv
set REMOTE_DIRECTORY=/upload

echo open %FTP_SERVER%> ftp_commands.txt
echo %FTP_USER%>> ftp_commands.txt
echo %FTP_PASSWORD%>> ftp_commands.txt
echo binary>> ftp_commands.txt
echo cd %REMOTE_DIRECTORY%>> ftp_commands.txt
echo put %FILE_TO_UPLOAD%>> ftp_commands.txt
echo quit>> ftp_commands.txt

ftp -s:ftp_commands.txt

del ftp_commands.txt


以下は、robocopyを使用してファイルを転送するバッチファイルの例

batch
Copy code
@echo off
set SOURCE_FILE=example.csv
set DESTINATION_IP=192.168.1.2
set DESTINATION_PATH=C$\Path\To\Destination

robocopy "%SOURCE_FILE%" "\\%DESTINATION_IP%\%DESTINATION_PATH%" /Z


例えば、ネットワーク上のコンピューター192.168.1.2のSharedFolderという
共有フォルダをZドライブに割り当てる場合：

batch
Copy code
net use Z: \\192.168.1.2\SharedFolder /user:ユーザー名 パスワード /persistent:yes

■

損益計算書
利用例 | Excel感覚で操作できるメシウスのkintoneプラグイン「krew」


利用例 | Excel感覚で操作できるメシウスのkintoneプラグイン「krew」

１アプリで予実管理を行う（簡易予実）
利用例 | Excel感覚で操作できるメシウスのkintoneプラグイン「krew」

DEMO
https://krew.cybozu.com/k/#/space/13/thread/13

■

' 画面更新を停止
Application.ScreenUpdating = False

' フィルター解除
リストシート.AutoFilterMode = False

' リストシートのB列の最終行を取得
最終行 = リストシート.Cells(Rows.Count, "B").End(xlUp).Row


' フィルターを設定
With リストシート.Range("B1:B" & 最終行)
.AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(2, Format(抽出日付, "m/d/yyyy"))
End With

' リストシートのB列の最終行を更新
最終行 = リストシート.Cells(Rows.Count, "B").End(xlUp).Row


' リストシートをアクティブにする
リストシート.Activate

' 新しいブックにリストシートをコピーして保存
Set 新しいブック = Workbooks.Add
Set 新しいシート = 新しいブック.Sheets(1)

' コピーしてすべて貼り付け
リストシート.Range("A1:I" & 最終行).Copy
新しいシート.Range("A1").PasteSpecial xlPasteAll

' A列からD列をコピーして値だけを貼り付け
リストシート.Range("A1:D" & 最終行).Copy
新しいシート.Range("A1").PasteSpecial Paste:=xlPasteValues

' 画面更新を再開
Application.ScreenUpdating = True