'[" & \\SERVER\TEST\aaa.xls & "].......

"CurrentUser"  wrote in message news:jq2dl4$ppu$1@trimpas.omnitel.net...

Sveiki,
Reikia userformos ComboBox'-ui paduoti RowSource is kito Sheet'-o.
Jei is to pacio failio, tai jokiu bedu:
Me.Combo1.RowSource = "Sheet1!A1:B5"

O reikia paduoti source'-a is kito failo, darau taip:
---------------------------------------------------------------------------------
Private Sub UserForm_Initialize()
Dim wb As Excel.Workbook

Set wb = GetObject("\\SERVER\TEST\aaa.xls")

Me.Combo1.RowSource = wb.Sheets("Sheet1").Range("A1:B5").Address

'Set wb = Nothing 'close the workbook
End Sub
--------------------------------------------------------------------------
rezultatas: jis jama source'-a ne is nurodyto failo, o is to, kuriame yra
forma.
Bandziau ir ivairiausius kitokius variantus, bet nelabai excelyje su
syntax'e draugauju, matyt

Gal kas mato cia kode prblm iskart?
Aciu