Выдает ошибку - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выдает ошибку (Макросы/Sub)

Выдает ошибку

xmasterco

Дата: Вторник, 30.08.2022, 23:41 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 20% ±

Помогите найти ошибку пожалуйста(

Sub Сопровод()

Dim wdApp As Object
Dim wdDoc As Object
Dim form As String
Dim desktop As String
Dim folder As String

form = "C:\Users\Admin\Desktop\Раненые"
desktop = "C:\Users\Admin\Desktop\"
folder = desktop + "Раненые\Отправка"

Set wdApp = CreateObject("Word.Application")

i% = 5
u% = 5
k% = 1

o% = Cells(5, 1).Text
VCH$ = Cells(i%, 1).Text
VCHNAME$ = Cells(u%, 1).Text
VZ$ = Cells(i%, 2).Text
FIO$ = Cells(i%, 3).Text
KOLVO$ = k%

Do

If Cells(i%, 1).Value = "" Then

Exit Do

If Cells(i%, 1).Value <> "" Then

FileCopy form + "\Сопровод.doc", folder + "\VCHNAME$.doc"
Set wdDoc = wdApp.Documents.Open(folder + "\VCHNAME$.doc")
wdDoc.Range.Find.Execute FindText:="&vch", ReplaceWith:=VCH$
wdDoc.Range.Find.Execute FindText:="&vz", ReplaceWith:=VZ$ + " " + "&vz"
wdDoc.Range.Find.Execute FindText:="&fio", ReplaceWith:=FIO$ + " " + "&fio"
wdDoc.Range.Find.Execute FindText:="&kolvo", ReplaceWith:=KOLVO$

Do

If Cells(i% + 1, 1).Value = "" Then

wdDoc.Range.Find.Execute FindText:=" &vz", ReplaceWith:=""
wdDoc.Range.Find.Execute FindText:=" &fio", ReplaceWith:=""
wdDoc.Save
wdDoc.Close

i% = i% + 1

VCH$ = Cells(i%, 1).Text
VCHNAME$ = Cells(u%, 1).Text
VZ$ = Cells(i%, 2).Text
FIO$ = Cells(i%, 3).Text
KOLVO$ = k%

Exit Do

If Cells(i% + 1, 1).Value <> "" Then

Do

If Cells(i% + 1, 1).Value <> Cells(i%, 1).Value Then

wdDoc.Range.Find.Execute FindText:=" &vz", ReplaceWith:=""
wdDoc.Range.Find.Execute FindText:=" &fio", ReplaceWith:=""
wdDoc.Save
wdDoc.Close

i% = i% + 1
u% = u% + 1
k% = 1

VCH$ = Cells(i%, 1).Text
VCHNAME$ = Cells(u%, 1).Text
VZ$ = Cells(i%, 2).Text
FIO$ = Cells(i%, 3).Text
KOLVO$ = k%

Exit Do

If Cells(i% + 1, 1).Value = Cells(i%, 1).Value Then

k% = k% + 1
i% = i% + 1

VCH$ = Cells(i%, 1).Text
VCHNAME$ = Cells(u%, 1).Text
VZ$ = Cells(i%, 2).Text
FIO$ = Cells(i%, 3).Text
KOLVO$ = k%

wdDoc.Range.Find.Execute FindText:="&vch", ReplaceWith:=VCH$
wdDoc.Range.Find.Execute FindText:="&vz", ReplaceWith:=VZ$ + " " + "&vz"
wdDoc.Range.Find.Execute FindText:="&fio", ReplaceWith:=FIO$ + " " + "&fio"
wdDoc.Range.Find.Execute FindText:="&kolvo", ReplaceWith:=KOLVO$

Loop

End If

Loop

End If

Loop

wdApp.Quit
MsgBox "Спороводы созданы!"
End Sub

[admin]Тема закрыта. Причина: Нарушения правил форума пп. 2, 3 и 5g[/admin]

Ответить

СообщениеПомогите найти ошибку пожалуйста(

Sub Сопровод()

Dim wdApp As Object
Dim wdDoc As Object
Dim form As String
Dim desktop As String
Dim folder As String

form = "C:\Users\Admin\Desktop\Раненые"
desktop = "C:\Users\Admin\Desktop\"
folder = desktop + "Раненые\Отправка"

Set wdApp = CreateObject("Word.Application")

i% = 5
u% = 5
k% = 1

o% = Cells(5, 1).Text
VCH$ = Cells(i%, 1).Text
VCHNAME$ = Cells(u%, 1).Text
VZ$ = Cells(i%, 2).Text
FIO$ = Cells(i%, 3).Text
KOLVO$ = k%

Do

If Cells(i%, 1).Value = "" Then

Exit Do

If Cells(i%, 1).Value <> "" Then

FileCopy form + "\Сопровод.doc", folder + "\VCHNAME$.doc"
Set wdDoc = wdApp.Documents.Open(folder + "\VCHNAME$.doc")
wdDoc.Range.Find.Execute FindText:="&vch", ReplaceWith:=VCH$
wdDoc.Range.Find.Execute FindText:="&vz", ReplaceWith:=VZ$ + " " + "&vz"
wdDoc.Range.Find.Execute FindText:="&fio", ReplaceWith:=FIO$ + " " + "&fio"
wdDoc.Range.Find.Execute FindText:="&kolvo", ReplaceWith:=KOLVO$

Do

If Cells(i% + 1, 1).Value = "" Then

wdDoc.Range.Find.Execute FindText:=" &vz", ReplaceWith:=""
wdDoc.Range.Find.Execute FindText:=" &fio", ReplaceWith:=""
wdDoc.Save
wdDoc.Close

i% = i% + 1

VCH$ = Cells(i%, 1).Text
VCHNAME$ = Cells(u%, 1).Text
VZ$ = Cells(i%, 2).Text
FIO$ = Cells(i%, 3).Text
KOLVO$ = k%

Exit Do

If Cells(i% + 1, 1).Value <> "" Then

Do

If Cells(i% + 1, 1).Value <> Cells(i%, 1).Value Then

wdDoc.Range.Find.Execute FindText:=" &vz", ReplaceWith:=""
wdDoc.Range.Find.Execute FindText:=" &fio", ReplaceWith:=""
wdDoc.Save
wdDoc.Close

i% = i% + 1
u% = u% + 1
k% = 1

VCH$ = Cells(i%, 1).Text
VCHNAME$ = Cells(u%, 1).Text
VZ$ = Cells(i%, 2).Text
FIO$ = Cells(i%, 3).Text
KOLVO$ = k%

Exit Do

If Cells(i% + 1, 1).Value = Cells(i%, 1).Value Then

k% = k% + 1
i% = i% + 1

VCH$ = Cells(i%, 1).Text
VCHNAME$ = Cells(u%, 1).Text
VZ$ = Cells(i%, 2).Text
FIO$ = Cells(i%, 3).Text
KOLVO$ = k%

wdDoc.Range.Find.Execute FindText:="&vch", ReplaceWith:=VCH$
wdDoc.Range.Find.Execute FindText:="&vz", ReplaceWith:=VZ$ + " " + "&vz"
wdDoc.Range.Find.Execute FindText:="&fio", ReplaceWith:=FIO$ + " " + "&fio"
wdDoc.Range.Find.Execute FindText:="&kolvo", ReplaceWith:=KOLVO$

Loop

End If

Loop

End If

Loop

wdApp.Quit
MsgBox "Спороводы созданы!"
End Sub

[admin]Тема закрыта. Причина: Нарушения правил форума пп. 2, 3 и 5g[/admin]

Автор - xmasterco
Дата добавления - 30.08.2022 в 23:41