• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

Импорт Екселя

  • Автор темы Kron
  • Дата начала
Статус
Закрыто для дальнейших ответов.
K

Kron

Вооьщем суть в чем, есть файл Ексель в нем 3 столбца 1 Имя 2 и 3 занчения, есть форма в которой поле 1 уже заполенно и по значению равно полю 1 в екселе, 2 и 3 поле не заполено в форме но данные к ексель как их импортом обновить?
 
A

alexdebian

Самое простое обращаться к Excel, как в таблице БД. Для этого нужно создать ODBC коннект к Excel'ю, а в Lotus'е использовать: ODBCConnection, ODBCQuery, ODBCResultSet.

Удачи
 
K

ksyun

Set xl= CreateObject("Excel.Application")
xl.visible = False
xl.Workbooks.Add path$
Set xlWorkbook = xl.Workbooks(1)
Set xlWorksheet = xlWorkbook.Worksheets(1)
With xlWorksheet
.cells(1,1) = "" (что можно делать с cells: )
End With
xl.visible=True
xl=""
 
K

Kron

Код:
If Instr(doc.Agent_shet, .cells(j,1))>0 Then


На этой строчке выдает ошибку "Несоответсвие типов" (Type mismatch)

Как это решить?
 

Kizarek86

Green Team
20.07.2007
871
7
BIT
33
Kron
Побольше кусок кода кинь)

If cint(Instr(doc.Agent_shet(0), cstr(.cells(j,1))))>0 Then
 
K

Kron

Код:
	Dim view As NotesView	
Dim ns As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim j As Integer
Dim i As Integer
Dim st As String
Set db=ns.CurrentDatabase
Set view=db.GetView("Komment")
view.AutoUpdate = False

Set xl= CreateObject("Excel.Application")
xl.visible = False
xl.Workbooks.Add "d:\счета.xls"
Set xlWorkbook = xl.Workbooks(1)
Set xlWorksheet = xlWorkbook.Worksheets(1)
Set doc=view.GetFirstDocument
While Not(doc Is Nothing)

With xlWorksheet

For j=2 To 91

If Instr(doc.Agent_shet(0), .cells(j,1))>0 Then
Call doc.ReplaceItemValue("Update_comment_for_pyu", .cells(j,2))
Call doc.ReplaceItemValue("UpdateContactKriteriu", .cells(j,3))			
End If
Next
End With
Call doc.Save(True, True)
Set doc=view.GetNextDocument(doc)
i=1+1	
Wend
xl.visible=True 
xl=""
 
A

abbatik

Попробуй так:

If Instr ( CStr ( doc.Agent_shet(0) ), Cstr ( .cells(j,1) ) ) > 0 Then
 
A

abbatik

Тогда так:

If Instr ( CStr ( doc.Agent_shet(0) ), Cstr ( xlWorksheet.cells(j,1).value ) ) > 0 Then

и with можно убрать...
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!