access2007で出来るのに2016でFTPファイルがダウンロードできない

Question

VBAでFTPサーバーに接続してファイルをアップロードしたりダウンロードしたりしています

access2007でやっていましたが、2016にバージョンアップしました

2017ではうまくダウンロード出来るのですが、2016にプログラム変更しておこなうと、パソコン側のファイルが消えてしまいます

FTP側のファイルをExcel2016に替えたり、ツールで参照可能なライブラリーを変更したりもしましたが、やはり2016では、パソコン側のファイルが消えてしまいます

ファイルはExcelのcsv形式のものです

VBAコードは以下です

Const cSERVER = "wwwftp.eonet.ne.jp", cACCOUNT = "H0012345", cPASSWORD = "y123f456r7"

Dim MyCnnINET As Long

    Dim MyCnnFTP As Long

    Dim dwfile As String

    dwfile = webadd & "\Customer.csv"

    MyCnnINET = InternetOpen(vbNullString, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)

    If Err.LastDllError = 0 Then

     MyCnnFTP = InternetConnect(MyCnnINET, cSERVER, INTERNET_DEFAULT_FTP_PORT, cACCOUNT, cPASSWORD, INTERNET_SERVICE_FTP, 0, 0)

     If Err.LastDllError = 0 Then

      Call FtpGetFile(MyCnnFTP, "/public_html/Customer.csv", dwfile, False, FILE_ATTRIBUTE_NORMAL, FTP_TRANSFER_TYPE_BINARY, 0)

      Else

      Call InternetCloseHandle(MyCnnINET)

      MsgBox "接続失敗"

       Exit Sub

       End If

       Call InternetCloseHandle(MyCnnFTP)

    Else

      MsgBox "I接続失敗"

        Exit Sub

    End If

    Call InternetCloseHandle(MyCnnINET)

ご回答、ご指導宜しくお願い致します

Answer 1

お返事ありがとうございました。

バージョンは、1708だったので1707しました

それでもうまくいきません

『フォーラム』で一度質問してみます

Answer 2

kohjipupilus さん、こんにちは。

マイクロソフト コミュニティをご利用いただき、ありがとうございます。

以前のバージョンで作成したファイルの VBA 経由で、FTP サーバーへのアップロードやダウンロードができないのですね。

調べたところ状況は異なるのですが関連しそうな情報がありました。

Office 2016 バージョン 1708 以降で日本語の VBA モジュール名を含むファイルを開くとエラー

Office 2016 バージョン 1708 (16.0.8431.2079) ですと VBA が正常に動作せず問題が起こる場合があるようです。

念のためご利用の Office のバージョンを確認し、該当するバージョンであれば手動で最新の状態にしてください。

上記のページの内容が関係ない場合、主に一般利用向けのマイクロソフト コミュニティでは VBA の動作に関する情報を集めにくいかもしれません。

その時は専用のカテゴリのある [VBA フォーラム] にも質問を投稿して情報を集められてはいかがでしょうか。

よろしければご活用くださいね。