教えて!ExcelVBA!

ExcelVBAの基礎知識・書き方について説明していきます。

【ExcelVBA ツール】FTPによるファイルを送信するツールを紹介します。(FTPファイル送信ツール)

       f:id:m_kbou:20200421194710p:plain

FTPによるファイルを送信する「FTPファイル送信ツール」を紹介します。下部のダウンロード箇所よりお試しダウンロードもできますので、自由に使用してみて下さい。

 

【目次】

 

製作環境

・Excel2016(画面)

 

画面イメージ

今回作成した画面は以下内容です。

f:id:m_kbou:20191126181026p:plain

 

FTP送信先WEBサーバ

今回はFC2に以下内容で送信先条件を作成したので、その内容で説明させてもらいます。
ホスト名:masakoubou.web.fc2.com
ログイン名:masakoubou
パスワード:*******(FC2から指定されたパスワードを使用します)
伝送先パス:/newdir(masakoubou(ルート)の直下にnewdirと言うディレクトリを作成してみました)

f:id:m_kbou:20191126181101p:plain

 

使い方

このツールの具体的な使い方について説明します。

事前準備作業

(1)ダウンロードした圧縮ファイルの中にある「ftp.dll」ファイルを選択にて右クリックします。

f:id:m_kbou:20191126181153p:plain

(2)小窓が開くので、「コピー」を選択します。

f:id:m_kbou:20191126181220p:plain

(3)C:\Windowsを開き、画面右の空白箇所(任意の場所)で右クリックします。

f:id:m_kbou:20191126181235p:plain

(4)小窓が開くので、「貼り付け」を選択します。

f:id:m_kbou:20191126181250p:plain

(5)権限確認メッセージが表示された場合は、『続行』ボタンをクリックします。

f:id:m_kbou:20191126181314p:plain

(6)C:\Windowsftp.dllファイルが登録されました。

f:id:m_kbou:20191126181329p:plain

事前準備作業についての説明は以上です。

 

ファイル送信方法

(1)「FTPファイル送信ツール.xlsm」を起動すると、以下画面が表示されます。

f:id:m_kbou:20191126181350p:plain

(2)ホスト名・ログイン名・パスワードにWEBサーバに送信する条件を入力します。
※今回は上記で説明した【FTP送信先WEBサーバ】のホスト名・ログイン名・パスワードを入力しました。

f:id:m_kbou:20191126181404p:plain

(3)送信するファイルを選択する為、伝送ファイル欄(B5セル)をダブルクリックします。

f:id:m_kbou:20191126181417p:plain

(4)参照画面が開くので、送信するファイルを選択し『OK』ボタンをクリックします。
※今回は送信用ファイルをC:\伝送テストの中にTEST.datとして作成したので、その内容で以下説明します。

f:id:m_kbou:20191126181455p:plain

(5)伝送ファイル欄(B5セル)に「C:\伝送テスト\TEST.dat」がセットされました。

f:id:m_kbou:20191126181509p:plain

(6)伝送先パス欄(B6セル)に伝送先のパスを入力します。
※今回は上記で説明した【FTP送信先WEBサーバ】のnewdirディレクトリにファイルを送信する為、「/newdir/TEST.dat」を入力しました。

f:id:m_kbou:20191126181523p:plain

(7)『伝送』ボタンをクリックします。

f:id:m_kbou:20191126181536p:plain

(8)送信確認メッセージが表示されるので、『はい』ボタンをクリックします。

f:id:m_kbou:20191126181550p:plain

(9)送信が完了すると完了メッセージが表示されるので、『OK』ボタンをクリックします。

f:id:m_kbou:20191126181605p:plain

(10)WEBサーバにTEST.datファイルが登録された事が確認できます。

f:id:m_kbou:20191126181617p:plain

ファイル送信方法についての説明は以上です。

 

ダウンロード

1drv.ms

 

関連ツール

www.osiete-excelvba.work

 

おわりに

上記内容についての質問があれば、問い合わせフォームより気軽に問い合わせ下さい。