エクセル小技：AS/400からCSVダウンロードするマクロ

エクセルマクロでAS/400のデータをCSVダウンロードします。
いや、もうここまでくるとエクセルマクロは、あんまり関係無い。
ACSのActiveXコントロールをエクセルマクロから操作してるだけ。
vbsスクリプトにコピペしてダブルクリックでも動きます。

Sub Download_CSV()
    Set DDR = CreateObject("cwbx.DatabaseDownloadRequest")
    Set DDR.system = CreateObject("cwbx.AS400System")
    DDR.system.define "192.168.0.1"
    DDR.system.UserID = "QSECOFR"
    DDR.system.Password = "QSECOFR"

    DDR.pcFile.FileType = "12" '12:ＣＳＶ／14:ＴＳＶ／16:BIFF8
    DDR.Format.SetDateFormat 5     'cwbdtTimeFmtISO
    DDR.AS400File = "QGPL/QAUOOPT"
    DDR.pcFile.Name = "C:\QAUOOPT.csv"

    DDR.Download

    Set DDR = Nothing
End Sub

AS/400から簡単にデータ取得したい人の参考になれば、イイネして下さい。