sub or function not defined функция call

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

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

sub or function not defined функция call (Макросы/Sub)

alex3111

Дата: Четверг, 08.05.2014, 00:09 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 14

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

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

Excel 2007

уважаемые форумчане, прошу помощи.
Суть вопроса: В архиве (не смог приложить-весит 2Мб) таблица и заполняемый шаблон данными из таблицы. При запуске в отладчике процедур по отдельности - каждая из них выполняет свою задачу нормально, но при использовании функции Call (пробовал использовать и другие) появляется ошибка sub or function not defined на строке Call zapolnenie.
Искал на форуме http://www.excelworld.ru/search?q=sub+or+function+not+defined&x=8&y=9 , но ответа не увидел.

1
[vba]

Код

Sub CommandButton1_Click()
Call sozdpapki
End Sub

[/vba]

К сообщению приложен файл: 4400129.txt (10.6 Kb)

Сообщение отредактировал alex3111 - Четверг, 08.05.2014, 00:13

Ответить

alex3111

Дата: Четверг, 08.05.2014, 00:10 | Сообщение № 2

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

Ранг: Новичок

Сообщений: 14

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

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

Excel 2007

2
[vba]

Код

Sub sozdpapki()

HomeDir = ThisWorkbook.Path
Dim aaaa As Integer
aaaa = ActiveSheet.Range("B4")
sPath$ = HomeDir & "\Готово\запрос_№_" & aaaa
     On Error Resume Next
     GetAttr (sPath)   ' если папка не существует, то будет ошибка
     If Err Then MkDir sPath ' если была ошибка, то создать папку
Call zapolnenie
End Sub

[/vba]

Ответить

alex3111

Дата: Четверг, 08.05.2014, 00:10 | Сообщение № 3

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

Ранг: Новичок

Сообщений: 14

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

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

Excel 2007

3
[vba]

Код

Sub zapolnenie()


Dim sOM As String, sDocNum As String
Dim WordApp As Object

  HomeDir = ThisWorkbook.Path
  Dim bbbb As String
  bbbb = ActiveSheet.Range("B4")
  a = HomeDir + "\ШАБЛОНЫ\6_АКТ_ПРОЦЕДУРЫ_ВСКРЫТИЯ_КОНВЕРТОВ" + ".doc"
  b = HomeDir + "\Готово" + "\запрос_№_" + bbbb + "\6_АКТ_ПРОЦЕДУРЫ_ВСКРЫТИЯ_КОНВЕРТОВ" + ".doc"
  FileCopy Source:=a, Destination:=b
  sOM = b
   ...
         WordApp.ActiveDocument.Save
         WordApp.ActiveDocument.Close
         WordApp.Quit


End Sub

[/vba]

Ответить

_Boroda_

Дата: Четверг, 08.05.2014, 00:19 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16745

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

А не пробовали просто
[vba]

Код

Sub CommandButton1_Click()
sozdpapki
'Или Module555.sozdpapki, где Module555 - название модуля, в котором лежит макрос sozdpapki
End Sub

[/vba]
С zapolnenie аналогично

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

alex3111

Дата: Четверг, 08.05.2014, 00:28 | Сообщение № 5

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

Ранг: Новичок

Сообщений: 14

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

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

Excel 2007

спасибо за мысль, ошибка была на Call zapolnenie, перенес Sub zapolnenie() из ЭтаКнига в модуль4, прописал Module4.zapolnenie и всё вроде заработало))))

пока я писал сообщение, Вы и про Sub zapolnenie() упомянули, еще раз спасибо.

Сообщение отредактировал alex3111 - Четверг, 08.05.2014, 00:31

Ответить

sub or function not defined функция call (Макросы/Sub)

Страница 1 из 1
1