VBS/WSH/JS - Помогите разобраться с повторяющимися данными в VBS

Iska · Отправлено: **05:58, 29-05-2013** | #2

Boris26rus, выложите образец документа Excel, выложите Ваш код. Целиком, а не одну строку.

Iska · Отправлено: **22:10, 29-05-2013** | #3

Код:

objRec.Open "SELECT DISTINCT * FROM [ReportData$]", objCon, 3, 3

SELECT (Transact-SQL) → Выражение SELECT (Transact-SQL).

Boris26rus · Отправлено: **12:38, 30-05-2013** | #4

Спасибо!
А как привязать это именно к переменной "fio"?
При запуске, когда много фамилий, выдает ошибку - "Слишком длинный строковый параметр".
Может подскажите как исправить.

Iska · Отправлено: **15:01, 30-05-2013** | #5

Цитата Boris26rus:

А как привязать это именно к переменной "fio"? »

А причём тут переменная?

Цитата Boris26rus:

При запуске, когда много фамилий, выдает ошибку - "Слишком длинный строковый параметр". »

Выложите архив под паролем c документом на RGhost, ссылку на архив и пароль — в личку.

Iska · Отправлено: **05:15, 31-05-2013** | #6

Boris26rus, проблема к запросу к рабочей книге не имеет отношения. Слишком длинная строка («por1») для использования в диалоге поиска и замены:

Код:

oSel.Find.Execute "por1"   	,,,,,,,,,por1    	,wdReplaceAll

— вижу, Вы так и не добавили предикат «DISTINCT» в запрос.

Если добавить — то следующей ошибкой будет «Несоответствие типа» в:

Код:

oSel.Find.Execute "raschet"	,,,,,,,,,raschet 	,wdReplaceAll

поскольку переменная «raschet» оказывается равна «Null».

Boris26rus · Отправлено: **12:09, 31-05-2013** | #7

Iska, добрый день и спасибо!
Я «DISTINCT» вставил сразу, но как Вы и указали, стала возникать ошибка с переменной «raschet». Тогда я и спросил как можно привязать «DISTINCT» только к той переменной, которой нужен такой "фильтр" (самостоятельные эксперименты по "привязке" у меня были безрезультатны).
А вот по слишком длинной строке пробовал разбить так:

Код:

Sub Replace(rtext,text)
	if len(text)>255 then
		oSel.Find.Execute rtext  ,,,,,,,,,"temp"   ,wdReplaceAll
		i=len(text)/250	
		if (i-FIX(i))>0 then i=FIX(i)+1
		z=1
		For y=1 to i
			stext=Mid(text,z,248) + " temp"
			oSel.Find.Execute " temp"  ,,,,,,,,,stext   ,wdReplaceAll
			z=y*248+1
		NEXT 
	else
		oSel.Find.Execute rtext  ,,,,,,,,,text   ,wdReplaceAll
	end if
	oSel.Find.Execute " temp"  ,,,,,,,,,""   ,wdReplaceAll
End Sub

- не помогло.
Не пойму почему переменная «raschet» равна «Null» и как избежать ошибки.

Iska · Отправлено: **20:29, 31-05-2013** | #8

Вы спросили:

Цитата Boris26rus:

Проблема - в Excel-файле бывают несколько одинаковых строк, которые все переносятся в Word. Но мне не надо их переносить, если они одни и те же »

я показал, как избавиться от повторов. Весь же Ваш алгоритм я не рассматривал — он чересчур запутан и не очень логичен.