Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Можно ли только создать exel фаил не открывая его?

Автор: Shoblin 21.8.2007, 10:13

Можно ли сделать, так что бы ексель фаил создавать програмно и не открывая его записать значения??? Что бы запись произвоиллась в фоновом режиме... Так же и считывание...

Автор: Akina 21.8.2007, 15:10

Да. Однако на VB это реализовать невозможно - требуется написание драйвера ядра, работающего с файловой системой самостоятельно.

Или неверно сформулировано условие задачи.

Автор: JusTalionis 21.8.2007, 17:05

Shoblin:
Если ты знаешь формат файла, то есть по каким правилам в нем следует размещать информацию - ты можешь на VB создать АБСОЛЮТНО ЛЮБОЙ файл, даже содеращий спецсимволы.

Автор: Shoblin 21.8.2007, 17:07

Спасиб... Значит постаратся говорите нати описаие ехлевского файла... Спасибо еще раз...

Автор: JusTalionis 21.8.2007, 17:12

Да не за что, особ smile

Про форматы можно спросить здесь: http://forum.vingrad.ru/forum/tech-file-data-format-type.html

Автор: JusTalionis 21.8.2007, 17:51

Кстати, можно просто сперва открыть такой файл на просмотр через F3 в FAR или Total Commander-е и поглядеть - а что внутри-то? Если формат не слишком сложен - и самому понять можно, что куда.

Автор: Akina 22.8.2007, 09:25

Цитата(JusTalionis @ 21.8.2007, 18:51

)

Если формат не слишком сложен

Формат MS Excel - очень непрост.

Автор: bom 22.8.2007, 17:55

Это закрытый формат ((С) Microsoft), и сильно сомненеваюсь что Shoblin будет делать реверсинжениринг для решения своей задачи.

Предлагаю дать тот ответ, который подсознательно хотел получить автор
мои экстрасенсорные способности сегодня на высоте smile

и закрыть тему:

Код


   Dim oExcel As Object
   Dim oBook As Object
   Dim oSheet As Object

   'Открыть новую книгу Excel
   Set oExcel = CreateObject("Excel.Application")
   Set oBook = oExcel.Workbooks.Add


   'Добавить данные в ячейки первого листа новой книги
   Set oSheet = oBook.Worksheets(1)
   oSheet.Range("A1").Value = "Last Name"
   oSheet.Range("B1").Value = "First Name"
   oSheet.Range("A1:B1").Font.Bold = True
   oSheet.Range("A2").Value = "Doe"
   oSheet.Range("B2").Value = "John"

   'Сохранить книгу и закрыть Excel
   oBook.SaveAs "C:\Book1.xls"
   oExcel.Quit

http://support.microsoft.com/kb/247412/