[リストへもどる]   [VBレスキュー(花ちゃん)]
一括表示

投稿時間:2005/10/03(Mon) 23:19
投稿者名:pekopapi
URL :
タイトル:
エクセルにて
こんばんは。

環境:VB6、EXCEL2003

VB6にてEXCELシートを開いた後にEXCEL内に表示されている
オプションボタン、チェックボックスの値の確認とドロップダウンリスト
の値の確認方法がわかりません。

申し訳ありませんが、ご存知の方はアドバイスをよろしくお願いします。

投稿時間:2005/10/04(Tue) 11:11
投稿者名:YK
Eメール:
URL :
タイトル:
Re: エクセルにて
こんにちは。

> VB6にてEXCELシートを開いた後にEXCEL内に表示されている
> オプションボタン、チェックボックスの値の確認とドロップダウンリスト
> の値の確認方法がわかりません。

  試してみて下さい。

    With xlSheet.OLEObjects("ComboBox1").object
        .AddItem "AAA"
        .AddItem "BBB"
        .AddItem "CCC"
        .AddItem "DDD"
        .Text = .List(0)
    End With
    リストの内容
    With xlSheet.OLEObjects("ComboBox1").object
        For i = 0 To .ListCount - 1
            Debug.Print .List(i)
        Next
    End With
    
    For Each obj In xlSheet.OLEObjects
        Debug.Print obj.Name & vbTab & obj.object.Value
    Next
    
    MsgBox xlSheet.OLEObjects("CheckBox1").object.Value
    MsgBox xlSheet.OLEObjects("OptionButton1").object.Value

投稿時間:2005/10/04(Tue) 17:12
投稿者名:pekopapi
URL :
タイトル:
Re^2: エクセルにて
YK様
ありがとうございました。無事解決致しました!!
今後とも宜しくお願い致します。