Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
[ Закрыто ] VBA Excel
 
Не могу разобраться в данном коде, не мог бы кто то описать каждую строчку?

End If
MyFile = MyPath & MyFile
Set wdDoc = wdApp.Documents.Open(MyFile)
With ActiveWorkbook.Sheets("data")
For i = 1 To .Cells(2, .Columns.Count).End(xlToLeft).Column
wdDoc.CustomDocumentProperties(.Cells(1, i).Value).Value = .Cells(Ndoc, i).Value
Next i
End With
 
Цитата
Maxim написал:
не мог бы кто то описать каждую строчку?
не мог, пока конкретно вы не ознакомитесь с правилами форума и не исправите все что не соответствует в этой теме.
По вопросам из тем форума, личку не читаю.
Страницы: 1
Читают тему (гостей: 1)
Наверх