Excel VBA FTPでファイルを送信する実験 Excel2000 VBA

Excel VBA FTPでファイルを送信する実験

ネタ元は　ttp://officetanaka.net/excel/vba/tips/tips47.htm

BASP21　ttp://www.hi-ho.ne.jp/~babaq/basp21.html

Windows2000SP4 環境では、 BASP21-2003-0211.exe をダウンロードし実行してインストールする。
他のファイルだとインストール出来なかった。

マクロは、Ofiice田中様のコードで実験し、ファイルをアップロードできた。感謝！

追記　
Basp21　を有効にするかな？

 

Sub FTP_atpages()
    Dim FTP, rc As Long, Server As String, User As String, Pass As String
    Dim Target As String, Folder As String
    Set FTP = CreateObject("basp21.FTP")    ''FTPオブジェクト
    Server = "www14.atpages.jp"                ''ホストアドレス
    User = "*****"                    ''ユーザー名
    Pass = "*****"                       ''パスワード
    Target = Application.GetOpenFilename()  ''送信ファイル
    If Target = "False" Then Exit Sub
    Folder = "/telstar"                     ''送信フォルダ
    rc = FTP.Connect(Server, User, Pass)
    If rc <> 0 Then
        MsgBox "FTP接続できませんでした。", vbCritical
        FTP.Close
        Exit Sub
    End If
    rc = FTP.PutFile(Target, Folder)
    If rc <> 1 Then
        MsgBox Dir(Target) & "を送信できませんでした。", vbCritical
        FTP.Close
        Exit Sub
    End If
    MsgBox Dir(Target) & "を送信しました。", vbInformation
    FTP.Close
End Sub

FTP.EXEを利用する
ネタ元　ttp://www.ken3.org/vba/backno/vba149.html
これもいいかも

FTP.EXEの使い方(C:\WINNT\system32\FTP.EXE)
「ファイル名をして実行」で、FTPと入力
太字の所が入力部分

ftp> open ftp006.upp.so-net.ne.jp
Connected to ftp006.upp.so-net.ne.jp.
220 FTP server ready.
User (ftp006.upp.so-net.ne.jp:(none)): telstar
331 Password required for telstar
Password:********(表示されない）
230 User telstar logged in
ftp> cd public_html
250 CWD command successful
ftp> dir
200 PORT command successful
150 Opening ASCII mode data connection for file list
-rw----r--   1 telstar  upage        7846 Sep 14 07:15 001.html
-rw----r--   1 telstar  upage        4079 Aug 11 08:24 20110810.csv
-rw----r--   1 telstar  upage     1166567 Aug  7 14:43 addressDB.csv

 

タグ：Excel2000 VBA FTP