| DVD |
| Отправлено: 10.09.2004, 10:20 |
|
Дежурный стрелочник
Группа: Участник
Сообщений: 33
|
Работаю с excel не через компоненты со вкладки Servers, а через
App=Variant::CreateObject("Excel.Application");
App.OlePropertyGet("WorkBooks").OleProcedure("add");
Sh=App.OlePropertyGet("WorkSheets",1);
и т.д. Как можно сохранить файла в формат csv?
Просто сохраняю так:
App.OlePropertyGet("WorkSheets",1).OleProcedure("SaveAs","File.xls");
Только не предлагайте поменять расширение  |
|
| AVC |
| Отправлено: 10.09.2004, 13:01 |
|
Ветеран
Группа: Модератор
Сообщений: 1583
|
Полный формат метода SaveAs выглядит так (справка по Excel VB)
| CODE |
expression.SaveAs(Filename, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodePage, TextVisualLayout)
|
где
| CODE |
// excel*.h
typedef enum XlFileFormat
{
xlAddIn = 18,
xlCSV = 6,
xlCSVMac = 22,
xlCSVMSDOS = 24,
xlCSVWindows = 23,
xlDBF2 = 7,
xlDBF3 = 8,
xlDBF4 = 11,
xlDIF = 9,
xlExcel2 = 16,
xlExcel2FarEast = 27,
xlExcel3 = 29,
xlExcel4 = 33,
xlExcel5 = 39,
xlExcel7 = 39,
xlExcel9795 = 43,
xlExcel4Workbook = 35,
xlIntlAddIn = 26,
xlIntlMacro = 25,
xlWorkbookNormal = 0xFFFFEFD1,
xlSYLK = 2,
xlTemplate = 17,
xlCurrentPlatformText = 0xFFFFEFC2,
xlTextMac = 19,
xlTextMSDOS = 21,
xlTextPrinter = 36,
xlTextWindows = 20,
xlWJ2WD1 = 14,
xlWK1 = 5,
xlWK1ALL = 31,
xlWK1FMT = 30,
xlWK3 = 15,
xlWK4 = 38,
xlWK3FM3 = 32,
xlWKS = 4,
xlWorks2FarEast = 28,
xlWQ1 = 34,
xlWJ3 = 40,
xlWJ3FJ3 = 41,
xlUnicodeText = 42,
xlHtml = 44
} XlFileFormat;
|
|
|
|
