Экспорт базы данных

[eiffel]

Привет, у меня такой вопрос есть Excel'евский файл с базой данных есть ли возможность импортировать эту базу в Lotus и как это сделать (в дальнейшем нужно производить поиск по полям записи..)

 

[Guest_]

	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
.....

дальше разберешься?

 

[Medevic]

Еще можно сделать формулой.

@Command( [FileImport]; fileType; fileName )

 

[Guest_]

Medevic, [FileImport] это другое....

хотя может eiffel это и нужно было. хм.

 

[Domino6]

Сохрани как .CSV
А потом импортируй
В хелпе поищи раздел Импорт из табулированного файла + обработка при импорте с помощью *.COL файла

 

[Domino6]

Сохрани как .CSV
А потом импортируй
В хелпе поищи раздел Импорт из табулированного файла + обработка при импорте с помощью *.COL файла

 

[promka]

Set WorkSheet = WorkBook.WorkSheets(1) ' выбираем лист
А как добавить новый лист в конец и переключиться на него?

	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
.....

дальше разберешься?

 

[nvyush]

А как добавить новый лист в конец и переключиться на него?

У екселя есть замечательная фишка — запись макросов. Включаешь запись, делаешь ручками нужные действия, останавливаешь запись, смотришь, что сгенерил ексель и "дорабатываешь напильником".

 

[Klido]

Археологи - вспомнили про 2005-й? %)
только вчера импорт обсуждали...