N
NickSHDaemon
Привет всем. Мало опыта, поиском проблему не решил, везде ответы как лотусовским скриптом перегнать вьюшку. А мне
нужно сделать это макросом excel, т.е импортировать содержимое вьюшки Lotus в Excel.
Создал код (упрощенный вариант)
Sub ImportView2Excel()
Dim session As Object
Dim db As Object
Dim view As Object
Dim dataview As Object
Dim As Object
Set session = CreateObject("Notes.Notessession")
Set db = session.getdatabase("", "test.nsf")
Dim i As Integer
Set dataview = db.GetView("view")
Set view = dataview.createViewnav()
Set row_ = view.GetFirstDocument
i = 1
While Not (row_ Is Nothing)
ActiveSheet.Cells(i, 1).Value = doc.columnvalues(1) ' и вот здесь
'возникает Variable uses a type not supported in Visual Basic (Error 458)
Set doc = view.GetNextDocument(doc)
Wend
End Sub
Где я неправ, не могу понять.
Может немного не в тему , скорее это в ветку vba'шников, но все же . Буду рад любому ответу.
нужно сделать это макросом excel, т.е импортировать содержимое вьюшки Lotus в Excel.
Создал код (упрощенный вариант)
Sub ImportView2Excel()
Dim session As Object
Dim db As Object
Dim view As Object
Dim dataview As Object
Dim As Object
Set session = CreateObject("Notes.Notessession")
Set db = session.getdatabase("", "test.nsf")
Dim i As Integer
Set dataview = db.GetView("view")
Set view = dataview.createViewnav()
Set row_ = view.GetFirstDocument
i = 1
While Not (row_ Is Nothing)
ActiveSheet.Cells(i, 1).Value = doc.columnvalues(1) ' и вот здесь
'возникает Variable uses a type not supported in Visual Basic (Error 458)
Set doc = view.GetNextDocument(doc)
Wend
End Sub
Где я неправ, не могу понять.
Может немного не в тему , скорее это в ветку vba'шников, но все же . Буду рад любому ответу.