• 🔥 Бесплатный курс от Академии Кодебай: «Анализ защищенности веб-приложений»

    🛡 Научитесь находить и использовать уязвимости веб-приложений.
    🧠 Изучите SQLi, XSS, CSRF, IDOR и другие типовые атаки на практике.
    🧪 Погрузитесь в реальные лаборатории и взломайте свой первый сайт!
    🚀 Подходит новичкам — никаких сложных предварительных знаний не требуется.

    Доступ открыт прямо сейчас Записаться бесплатно

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

  • Автор темы Автор темы eiffel
  • Дата начала Дата начала
Статус
Закрыто для дальнейших ответов.
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
.....

дальше разберешься?
 
Еще можно сделать формулой.
Код:
@Command( [FileImport]; fileType; fileName )
 
Medevic, [FileImport] это другое....

хотя может eiffel это и нужно было. хм.
 
Сохрани как .CSV
А потом импортируй
В хелпе поищи раздел Импорт из табулированного файла + обработка при импорте с помощью *.COL файла
 
Сохрани как .CSV
А потом импортируй
В хелпе поищи раздел Импорт из табулированного файла + обработка при импорте с помощью *.COL файла
 
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
.....

дальше разберешься?
 
А как добавить новый лист в конец и переключиться на него?
У екселя есть замечательная фишка — запись макросов. Включаешь запись, делаешь ручками нужные действия, останавливаешь запись, смотришь, что сгенерил ексель и "дорабатываешь напильником".
 
Археологи - вспомнили про 2005-й? %)
только вчера импорт обсуждали...
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab