Victor__v писал(а):
изменял, безтолку
Ради спортивного интереса проверил
Код:
0 VALUE EXCEL
0 VALUE FILE-ID
0 VALUE WORK-B
REQUIRE [[ D:/SP375/devel/~yz/lib/automate.f
: Test_xls
ComInit DROP
" Excel.Application" CreateObject DROP TO EXCEL
EXCEL [[ Visible = TRUE ]]
EXCEL [[ WorkBooks ]] TO WORK-B
WORK-B [[ Open ( " D:/SP375/~KOR/Autoka/com/240103.xls" ) ]] TO FILE-ID
FILE-ID [[ SaveAs ( " D:\spf\BI_BASE.CSV" , 23 ) ]] DROP \ 23 - CSV
EXCEL release
ComDestroy
;
Test_xls
Не воспринимает "\" сохраняет в D:spfBI_BASE.CSV
Код:
0 VALUE EXCEL
0 VALUE FILE-ID
0 VALUE WORK-B
REQUIRE [[ D:/SP375/devel/~yz/lib/automate.f
: Test_xls
ComInit DROP
" Excel.Application" CreateObject DROP TO EXCEL
EXCEL [[ Visible = TRUE ]]
EXCEL [[ WorkBooks ]] TO WORK-B
WORK-B [[ Open ( " D:/SP375/~KOR/Autoka/com/240103.xls" ) ]] TO FILE-ID
FILE-ID [[ SaveAs ( " D:/spf/BI_BASE.CSV" , 23 ) ]] DROP \ 23 - CSV
EXCEL release
ComDestroy
;
Test_xls
Сохраняет правильно, куда указано...