- PR -

コモンダイアログをフォーム以外で使用したい。

1
投稿者投稿内容
ぴょん太
会議室デビュー日: 2007/01/19
投稿数: 7
投稿日時: 2007-01-19 11:05
初めての投稿です。
宜しくお願いします。
VB6.0を使用しています。
フォーム以外で、データを取得した際、エクセル上にデータを出力し、
フォームに戻った際に、コモンダイアログの設定を行っていましたが、
毎回、フォルダを起こさないといけない為、フォームに戻らず、エクセルに出力した際に
呼び出すような手順がないかと思い、投稿いたしました。
アドバイスをいただけると幸いです。

[ メッセージ編集済み 編集者: ぴょん太 編集日時 2007-01-19 11:08 ]
じゃんぬねっと
ぬし
会議室デビュー日: 2004/12/22
投稿数: 7811
お住まい・勤務地: 愛知県名古屋市
投稿日時: 2007-01-19 12:10
引用:

ぴょん太さんの書き込み (2007-01-19 11:05) より:

フォーム以外で、データを取得した際、エクセル上にデータを出力し、フォームに戻った際に、コモンダイアログの設定を行っていましたが、毎回、フォルダを起こさないといけない為、フォームに戻らず、エクセルに出力した際に呼び出すような手順がないかと思い、投稿いたしました。

Form に配置しなくとも、CreateObject メソッドで CommonDialog のインスタンスは取得できます。

_________________
C# と VB.NET の入門サイト
じゃんぬねっと日誌
ぴょん太
会議室デビュー日: 2007/01/19
投稿数: 7
投稿日時: 2007-01-19 13:27
じゃんぬねっとさん、返答ありがとうございます！！

以下で処理が可能でした。

frmA.CommonDialog1.InitDir = GetDesktopPath()
frmA.CommonDialog1.Filter = "Excelﾌｧｲﾙ(*.xls)|*.xls"
frmA.CommonDialog1.FileName = "なまえ"
frmA.CommonDialog1.ShowSave
どうもありがとうございます。
じゃんぬねっと
ぬし
会議室デビュー日: 2004/12/22
投稿数: 7811
お住まい・勤務地: 愛知県名古屋市
投稿日時: 2007-01-19 14:51
引用:

ぴょん太さんの書き込み (2007-01-19 13:27) より:

以下で処理が可能でした。

うーん、直接アクセスしているのですね...

コード:

    Public Sub Main()
        Dim oCommonDialog As Object
        Set oCommonDialog = CreateObject("MSComDlg.CommonDialog")

        Call oCommonDialog.ShowSave
    End Sub

こういう方法もありますよ、ということで。

_________________
C# と VB.NET の入門サイト
じゃんぬねっと日誌
1

スキルアップ／キャリアアップ（JOB@IT）