| ** Smile |
| Отправлено: 21.09.2005, 15:00 |
|
Не зарегистрирован
|
Как программно при сохранении из Excel'я выбрать формат сохранения. К примеру "Текстовые файлы (с разделителями табуляции).
Заранее благодарен! |
|
| olegenty |
| Отправлено: 21.09.2005, 15:09 |
|
Ветеран
Группа: Модератор
Сообщений: 2412
|
запусти запись макроса, сделай сохранение, потом посмотри тело макроса и перенеси код на С++. AVC вот только недавно об этом говорил.
|
|
| ** Smile |
| Отправлено: 21.09.2005, 15:53 |
|
Не зарегистрирован
|
А как перевести такое! Подскажите!
ActiveWorkbook.SaveAs Filename:= _
"C:\1.txt", FileFormat:=xlText, _
CreateBackup:=False
???
Это я понял:
AnsiString f="1.txt",
app.OlePropertyGet("WorkSheets",1).OleProcedure("SaveAs",f.c_str());
А как установить формат сохраняемого файла? |
|
| AVC |
| Отправлено: 21.09.2005, 16:04 |
|
Ветеран
Группа: Модератор
Сообщений: 1583
|
XLSheet.OleProcedure
("SaveAs"
,tfile // Filename
,xlTextWindows // FileFormat
,Null // Password
,Null // WriteResPassword
,false // ReadOnlyRecommended
,false // CreateBackup
,false // AddToMru
,Null // TextCodePage
,Null // TextVisualLayout
);
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;
|
|
| ** Smile |
| Отправлено: 22.09.2005, 11:19 |
|
Не зарегистрирован
|
Спасибо большое!!! Все сделал!!! |
|
|
