E
eiffel
Привет, у меня такой вопрос есть Excel'евский файл с базой данных есть ли возможность импортировать эту базу в Lotus и как это сделать (в дальнейшем нужно производить поиск по полям записи..)
Dim Application As Variant
Dim WorkBook As Variant
Dim WorkSheet As Variant
Set Application = CreateObject("Excel.Application")
Application.DisplayAlerts = False
Application.Visible = True ' видимый Excel
Set WorkBook = Application.WorkBooks.Open("c:\file.xls")
Set WorkSheet = WorkBook.WorkSheets(1) ' выбираем лист
.....
doc.FieldName = WorkSheet.Rows(1,1).Value
.....
Код:Dim Application As Variant Dim WorkBook As Variant Dim WorkSheet As Variant Set Application = CreateObject("Excel.Application") Application.DisplayAlerts = False Application.Visible = True ' видимый Excel Set WorkBook = Application.WorkBooks.Open("c:\file.xls") Set WorkSheet = WorkBook.WorkSheets(1) ' выбираем лист ..... doc.FieldName = WorkSheet.Rows(1,1).Value .....
дальше разберешься?
У екселя есть замечательная фишка — запись макросов. Включаешь запись, делаешь ручками нужные действия, останавливаешь запись, смотришь, что сгенерил ексель и "дорабатываешь напильником".А как добавить новый лист в конец и переключиться на него?
Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab