FTPでエクセルをPUTするとファイルが破損する

このサイトを参考にvbaでFTPでファイル転送を実装しようとしています。
http://www.happy2-island.com/access/gogo03/capte …


FtpPutFile Lib "wininet.dll"


上記のFTPプットの部分で問題がありそうです。

ローカルからLAN経由で接続されたFTPサーバーを使い
ファイルサーバーへエクセルファイルをアップロードしたいのですが
ファイルが破損して開けなくなってしまいます。

バイナリ転送、アスキー転送と転送モードを変えて試しても
NGでした。

xmlファイルなどテキストであれば問題なくアップロードできました。


エクセルファイルはFTP転送できないのでしょうか？
なにかよい方法があれば教えてください。

宜しくお願い致します。

No.1 ベストアンサー 回答者： yorozu_ya 回答日時： 2011/02/09 20:06

バイナリ転送で出来るはずです。

Option Explicit は記述してますか？

この回答への補足

バイナリ転送がうまく設定できていないようでした。
バイナリ転送でうまくいきました。
ありがとうございました！

補足日時：2011/02/14 19:19

この回答へのお礼

ご回答ありがとうございます。

>バイナリ転送で出来るはずです。

以下のように記述しているのですが、うまくバイナリで転送されていないようです。
FTPソフトでバイナリモードにしたらうまくいきました。。

以下の記述のどこがいけないのでしょうか？

お分かりになりますか？

Public Const FTP_TRANSFER_TYPE_BINARY As Long = &H2&


Call fcFTPPutFile(Sorce _
, UpLoadTo _
, FTP_TRANSFER_TYPE_BINARY)

お礼日時：2011/02/09 21:34

No.2 回答者： todo36 回答日時： 2011/02/10 12:47

> 以下の記述のどこがいけないのでしょうか？

エラー処理が出来ていない。
FtpPutFileの戻り値とInternetGetLastResponseInfoを把握できるように。

> ファイルが破損

ファイルサイズが小さいならFTP PASSIVEにすると直るかも

それともバイナリ化け？

この回答へのお礼

ご回答ありがとうございます。
今後の参考とさせていただきます。

お礼日時：2011/02/14 19:19