Top.Mail.Ru
Ответы
Аватар пользователя
Аватар пользователя
Аватар пользователя
Аватар пользователя
Программирование
+3

Проблема с кодом VBA

Подскажите почему в Excel при выполнении макроса с документом Word при расширении .docx выдает ошибку на этой строке:
objWordDoc.SaveAs2 (Intersect(listobjTechs.ListRows(5).Range, listobjTechs.ListColumns("Value").DataBodyRange) & "\" & strNameFromTemplate & ".docx")

а при расширении .doc все нормально.
Часть кода(
If Right(objWordDoc.FullName, 1) = "x" Then
objWordDoc.SaveAs2 (Intersect(listobjTechs.ListRows(5).Range, listobjTechs.ListColumns("Value").DataBodyRange) & "\" & strNameFromTemplate & ".docx")
ElseIf Right(objWordDoc.FullName, 1) = "c" Then
objWordDoc.SaveAs2 (Intersect(listobjTechs.ListRows(5).Range, listobjTechs.ListColumns("Value").DataBodyRange) & "\" & strNameFromTemplate & ".doc")
)

По дате
По рейтингу
Аватар пользователя
Новичок

какую ошибку то выдаёт?
Intersect - это что?
зачем использовано ветвление на базе расширения, если код один и тот же, просто добавить его в конец.
как код то воспроизводить, если его не дали полностью?