|
hikka さん、こんにちわ。
もう解決済みかもしれませんが、
> RowSource
>をexcelファイルを呼び出してから処理なんてできるのでしょうか?
こっちだけ。
Private Sub UserForm_Initialize()
If ComboBox1.ListCount = 0 Then
Dim xlApp As Object, obj As Object, Ldat As Variant
'ヘルプのCreateObjectからほぼそのまま転載
Set xlApp = CreateObject("excel.application")
'フォルダはdocファイルと同じ。
Set obj = xlApp.Workbooks.Open(ThisDocument.Path & "\book1.xls")
'取り込む範囲はSheet1のB2:B6
Ldat = obj.Worksheets("Sheet1").Range("B2:B6").Value
'エクセルを終了させる処理
xlApp.DisplayAlerts = False
obj.Close
Set obj = Nothing
xlApp.DisplayAlerts = True
xlApp.Quit ' 処理終了後、Quit メソッドでアプリケーションを終了し、
Set xlApp = Nothing ' オブジェクトの参照を解放します。
'
'読み込んだ値をリストにセット
ComboBox1.List = Ldat
End If
End Sub
エクセル表から読み込むならばCreateObjectで取得してみてはいかがでしょうか。
|
|