tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトル名前を付けて保存の保存先の変更
記事No13823
投稿日: 2009/07/07(Tue) 23:39
投稿者ぷりぷり
データサーバにあるプログラムを値渡しにて起動してデータを自動で取得プログラムを
作ろうとしています。
Set MyIe = New InternetExplorer
With MyIe
 .Visible = True
  .Navigate " http://kasrv003/cgi-bin/ibi_cgi/ibiweb.exe? _
   IBIF_ex=PKOTP01&JGSCOD_F=3&DAICOD_F=&SYOCOD_F=&GNKCOD_F=& _
   KOTBNG_F=& _  SYUYMD_F=&SYUYMD_T=9999%2F99%2F99& _
   TYPE=COMMA&SORT=FIL_S09+NOPRINT&RUN=%8E%C0%8Ds"
End With
Set MyIe = Nothing

上を実行すると「ファイルのダウンロード - セキュリティの警告」のダイアログBOXが
表示されますので、保存(S)のボタンを押す処理として ALT + S のキーシーケンス
をAPIで実行します。
その後「名前を付けて保存」のダイアログボックスが表示されるのですが、保存先を変更
することが出来ずに悩んでおります。 保存先のコンボBOXの ▼ ボタンをハンドル
出来ないのです。 
このように自動的に表示される名前を付けて保存のダイアログBOXの保存先を変更する
にはどのようにすれば良いのかご教授願いたく。
 
EXCELのVBAでは 
Private m_InProcess As Boolean

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim sNewFileName As Variant
    Const sPath = "C:\"
    
    If m_InProcess Then Exit Sub

    If SaveAsUI = False Then
        Cancel = True
    Else
        sNewFileName = Application.GetSaveAsFilename(sPath & Me.Name)
        If VarType(sNewFileName) <> vbBoolean Then
            m_InProcess = True
            Me.SaveAs sNewFileName
            m_InProcess = False
        End If
        Cancel = True
    End If
End Sub
このプロシージャーで任意のパス&ファイル名を設定することができましたが
VBではどのようにするのかわかりません。
よろしくお願いします。

環境は WIN XP sp3  & VB6.0 Pro sp5  
VBは始めたばかりで、VBAはEXCELにてVBAのQ&Aサイトを利用させて
いただきながら簡単なアプリケーションをいくつか作りました。  
現在クラスモジュールとAPIの勉強をしているところです。 

[ツリー表示へ]