Здравствуйте
Помогите разобраться с макросом в книге Excel. На VB никогда не программировал.
Есть ERP-система Axapta 4.0. Я загружаю файл Excel (шаблон отчета), в который пользователь внесет данные и они будут сохраняться в БД. В процессе возникает ошибка: не найден макрос getCellValuesStart. Но макрос в книге есть. Вот его код

Dim xSheet As String
Dim xCell As Variant
Dim xValue As String
Sub getCellValues(F_in As String)
Open F_in For Input As #1
Open "C:\Template\1\TEMP\033644.txt.out" For Output As #2
While Not EOF(1)
Line Input #1, xSheet
Line Input #1, xLabel
If (xSheet <> "<none>") Then
Sheets(xSheet).Select
End If
For Each iCel In Range(xLabel)
xValue = iCel.Value
xCell = iCel.Address(False, False)
Print #2, xLabel
Print #2, xSheet
Print #2, xCell
Print #2, xValue
Next
DoEvents
Wend
Close #1
Close #2
End Sub
Sub getCellValuesStart()
getCellValues ("C:\Template\1\TEMP\033644.txt")
End Sub

Возможно это важно, загружаемый файл был изменен - добавил лист. Первоначально его небыло

AndreTMМиха1Open "C:\Template\1\TEMP\ 033644.txt.out " For Output As #2
...
Sub getCellValuesStart()
getCellValues ("C:\Template\1\TEMP\ 033644.txt ")
End Sub
Дальше обяснять?

Да, если не затруднит. В VB новичек, а починить и загрузить шаблон нужно.