Excel - VBA - Spreadsheet 9.0 ?!? :(

2 отговора 132 прегледа
#1

Excel - VBA - Spreadsheet 9.0 ?!? :(

Здр...
Имам пак едно изпростело въпросче: то се отнася до Spreadsheet таблиците, диалогови прозорци и таблица на Excel... Значи в диалогов прозорец съм сложил Spreadsheet таблица, която по определен критерии чете стойностти от Excel-ската таблица и ги показва ( напр. само клетки с отр. стойност )... До тук всичко е усмихнато и слънчево, но в един момент - опа, греда
това работи само на РС, което е в нас и на 1 служебно РС... на другото сл. РС ми дава, че не може да зареди дадения обект на тази машина защото не бил наличен или нещо от този род... Като отворя референциите пък виждам, че ми дава "Липсва: Microsoft Office XP Web Components", и ми прави впечатление, че на 2-те РС-та на които върви без проблем тази референция я има в наличност... но ако това е проблема не мога да стопля как да го оправя - опитвах се с преинсталация на Excel-а ама ниц и ако някой има идея как да го оправя - да помага, че го закъсах ....
А и още нещо да питам: искам да направя диалог, в който при грешка, т.е. да дава сведения, като напр. : "В лист СКЛАД на Excel на ред еди кой си кода е грешен" или "Въведен е несъществуващ код на стока на ред еди кой си" или нещо от този род... 10х предварително !!!

Отговор
в отговор на CCa #2

Re: Excel - VBA - Spreadsheet 9.0 ?!? :(

Може би имаш нужда от:

Regsvr32

This command-line tool registers .dll files as command components in the registry.

Syntax
regsvr32 [/u] [/s] [/n] [/i[:cmdline]] dllname

Отговор
в отговор на CCa #3

Re: Excel - VBA - Spreadsheet 9.0 ?!? :(

доста въпроси.

Първо сигурно ти липсва някоя библиотека, виж ако можеш да си намериш от някъде и да си сложиш допълнителни. И аз имам подобен проблем но все още не съм се раздвижил да го решавам, не се знае кога ще му дойде времето.

за проверката дали съществува може например да използваш нещо от сорта на

Dim Base as Range

Set Base = Range() ' Това ти е номенклатурата в която ще търсиш съвпадението

For i = 1 to 10 000

if Iserror(LookUpValue = Application.WorksheetFunction.VLookup(Range("A" & i).Value, Base, 1, False)) then

msgbox "Грешно въведен код на ред " & i
end if


Предупреждавам че това не съм го пробвал, на момента импровизирах и не зная дали работи.

Go Install Analysis Toolpack!
Отговор