Tada daryk per "Name Manager", laužtinius supras, rowsource nurodysi vardą
Pas mane veikia ir tokia konstrukcija:
UserForm4.ComboBox1.RowSource = "'[" & SKnyga & "]" & SLangas & "'!G5:G11"


"CurrentUser"  wrote in message news:jq54ko$h5d$1@trimpas.omnitel.net...

Turi romeny, kad lauztinius skliaustus naudoti, ale cia:
Set wb = GetObject("\\SERVER\TEST\[aaa.xls]"). Bet ta failiuka ir taip
patraukia, pvz, jei userformoj padarau tekstini lauka, kaip antai
Me.TextBox1="kazkokia reiksme is aaa.xls",
tai viskas puikiai atvaizduojama.
Kaip as isivaizduoju, problema yra teisingai sintaksiskai nurodyti
Combobox'-o RowSoursa



"LwJ"  wrote in message news:jq4c90$euq$1@trimpas.omnitel.net...

'[" & \\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