создать файл Excel с помощью API

[Calvin]

Здраствуйте, уважаемые!
Как создать файл Excel с помощью API? Я пробовал с помощью API функции CreateFile, но что-то с аргументами не могу разобраться, поэтому не получается...

[ANDLL]

CreateObject("Excel.Application")
И далее... Вот такой вот API.

[Calvin]

Это не API-шная функция.

[alibek]

Это API-шная функция.

[Calvin]

Извиняюсь....Ща буду разбираться

[Calvin]

Вот создал файл Excel

Код: Выделить всё

Dim xlApp As Object
Dim xlBook As Excel.Workbook

Set xlApp = CreateObject("excel.application")
Set xlBook = xlApp.Workbooks.Add
xlBook.SaveAs "C:\TEST.xls"
xlApp.Quit
Set xlApp = Nothing


вроде все нормально, но когда захожу в этот файл то выдает следующее Действительный формат открываемого файла ("TEST.xls") отличается от указываемого его расширением имени файла. Перед открытием данного файла убедитесь, что он не поврежден и получен из надежного источника. Открыть этот файл сейчас?
Вообщем я так понял, что создается файл другого формата, а программно присваивается расширение .xls.


ЗЫ а у меня вопрос, почему для этой API функции нет объявления в разделе объявлений?

[ANDLL]

А должно быть?

[Денис]

http://msdn.microsoft.com/ru-ru/library/7t9k08y5.aspx
Еще вопросы будут?

[Calvin]

Денис, в этой ссылке я ничего нового не нашел.... выше я поместил пример и задал вопрос, почему создается файл не того типа? Меня интересует что не так.
А на счет

ЗЫ а у меня вопрос, почему для этой API функции нет объявления в разделе объявлений?

то обычно если это API функция, то в разделе объявлений она объявляется например вот так:

Код: Выделить всё

Private Declare Function CreateDirectory Lib "kernel32.dll" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long


[Antonariy]

Потому что CreateObject это таки не совсем апи, а обертка для CoCreateInstance (если не вру) и объявлена она на уровне движка, в VBE6.DLL.

[Денис]

Денис, в этой ссылке я ничего нового не нашел.

Значит плохо искали. Посмотрите, там ниже идут примеры. У меня они отрабатывают на ура.

Посмотрите примечания к примерам. Когда вы создаете объект, сначала вы должны подключить к проекту объектную модель экселя. Вы это сделали? Если сделали, то какую именно? (их может быть несколько, если Вы жонглировали дистрибутивами офиса)

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

[Calvin]

Пример там такой

Код: Выделить всё

Sub TestExcel()
    Dim xlApp As Microsoft.Office.Interop.Excel.Application
    Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
    Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet

    xlApp = CType(CreateObject("Excel.Application"), _
                Microsoft.Office.Interop.Excel.Application)
    xlBook = CType(xlApp.Workbooks.Add, _
                Microsoft.Office.Interop.Excel.Workbook)
    xlSheet = CType(xlBook.Worksheets(1), _
                Microsoft.Office.Interop.Excel.Worksheet)

    ' The following statement puts text in the second row of the sheet.
    xlSheet.Cells(2, 2) = "This is column B row 2"
    ' The following statement shows the sheet.
    xlSheet.Application.Visible = True
    ' The following statement saves the sheet to the C:\Test.xls directory.
    xlSheet.SaveAs("C:\Test.xls")
    ' Optionally, you can call xlApp.Quit to close the workbook.
End Sub


у меня подключен reference - Microsoft Excel 12.0 Object Library
Но при объявлении Dim xlApp As Microsoft.Office.Interop.Excel.Application - такой класс не распознается.
А впечатление это видимо ошибочное, просто хочу разобраться...

[Antonariy]

Потому что пример для VB.NET. Нужно из объявления убрать Microsoft.Office.Interop.

[Calvin]

Я понял в чем проблема. Вообщем последний пример в конечном итоге создал Excel файл. У меня всеми этими способами создавался файл, но он создавался в формати 2007 Экселя, хоть я и указывал с каким расширением. Вот если сразу создать Test.xlsx, то такого вопроса при открытии не будет. Дело в том, что не у всех пользователей 2007 офис.
Как все-таки создать xls в моем случае, а не xlsx?

ЗЫ У меня-то с самого начала файл получилось создать, просто при открытии выдавалось предупреждение, поэтому складывается впечатление, что мне все объясняют, а я типа совсем ничего не понимаю.

[Antonariy]

Как все-таки создать xls в моем случае, а не xlsx?

Изучить параметры SaveAs и выбрать нужный формат сохранения.

[Calvin]

спасибо

[ANDLL]

Потому что CreateObject это таки не совсем апи, а обертка для CoCreateInstance (если не вру) и объявлена она на уровне движка, в VBE6.DLL.

Tt. Шо за херня?

[Antonariy]

CoCreateInstance? Функция такая, ага. Апи. А шо, нэ?

[ANDLL]

Я про "не совсем API"

[Antonariy]

VBE6.DLL — ActiveX, CreateObject является методом global-класса VBA. Это если судить только по object browser'y, сквозь oleview на нее не смотрел.

[iGrok]

VBE6.DLL — ActiveX, CreateObject является методом global-класса VBA. Это если судить только по object browser'y, сквозь oleview на нее не смотрел.

Я думаю, что речь о другом.

С чего это вдруг CreateObject "не совсем" относится к "Application Programming Interface"?
Может, "не совсем WinAPI"? Ну так в заголовке темы вообще не было сказано, на чьи API опираться.. )

[ANDLL]

Ну скорее проблема немного шире.
API здесь это в том числе и xlBook.Zzzz.Zzzzz.Zzzz

[Antonariy]

Ну кагбэ изначально шла речь именно о WinAPI, Private Declare Function и все такое, и почему среди них нет CreateObject… Но если вы хотите про API вообще, то мы можем поговорить об этом

[ANDLL]

Ну кагбэ изначально шла речь именно о WinAPI

О нем речь шла лишь у тебя.
И опа опа, опять никакой связи между WinAPI и declare не существует.

[Antonariy]

О нем шла речь у автора (без приставки Win), о чем я намекнул ссылкой. И отвечал в рамках авторского понимания сути вещей, чтобы до него дошло. В каких облаках витают остальные участники и с каких позиций им не видно связей, меня не колышет.

[ANDLL]

Угу. Херь спросили - херь ответили.

[Antonariy]

И херь в комментариях. Как это типично…

[Calvin]

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

[Alec]

По-моему, тебя понесло не туда...
Что есть файл xls? Это файл определенного формата, обрабатываемый программой Excel (ну и другими программами, поддерживающими этот формат).
WinApi позволяет создать файл, его наполнение уже на твоей совести. Т.е., если ты знаешь внутренности формата Excel - флаг тебе в руки.
Другой способ, через CreateObject позволяет создать нужный тебе файл средствами самого Excel. WinApi здесь совершенно не причем (если не считать тех функций, которые использует CreateObject и Excel.exe со своими библиотеками).
Нужно определиться, что ты хочешь получить в итоге. Программу, которая создает файл xls БЕЗ использования Excel (т.е. универсальную, работающую на системе без установленного Excel) или программу, работающую в "тандеме" с Excel? Второе, естественно, требует наличие Excel в системе.
От этого и плясать.

[SLIM]

А точно CoCreateInstance?
Вообще интересно что внутри обретки при
1. CreateObject
2. dim objFoo as new ClassName
3. dim objFoo as ClassName
Set objFoo = new ClassName