Forth и другие саморасширяющиеся системы программирования Locations of visitors to this page
Текущее время: Пт мар 29, 2024 00:43

...
Google Search
Forth-FAQ Spy Grafic

Часовой пояс: UTC + 3 часа [ Летнее время ]




Начать новую тему Ответить на тему  [ Сообщений: 6 ] 
Автор Сообщение
 Заголовок сообщения: FORTH+EXCEL
СообщениеДобавлено: Ср авг 09, 2017 20:44 
Не в сети

Зарегистрирован: Чт янв 07, 2016 19:14
Сообщения: 1288
Благодарил (а): 3 раз.
Поблагодарили: 18 раз.
Задача - переконвертировать екслевский файл в файл формата CSV
Сложность:
При сохранении ( SaveAs ) эксель с непонятным упорством сохраняет файл в папке "документы" при полном указании пути в другое место
Вот что с этим делать?

Код:

ComInit DROP
   " Excel.Application" CreateObject DROP
   TO EXCEL
   EXCEL [[ WorkBooks ]] TO WORK-B

   WORK-B [[ Open ( " PAP/BI_BASE.xls" ) ]] TO FILE-ID

   S" TT" TYPE CR

   FILE-ID [[ SaveAs ( " G:\SP-Forth\BI_BASE.CSV" , 23 ) ]] \ 23 - CSV

   S" TT" TYPE CR

   FILE-ID [[ Close ( FALSE ) ]]




Читаем MDSN
Цитата:
Filename
Type: System.Object

Имя сохраняемого файла. Можно включить полный путь; Если этого не сделать, Microsoft Office Excel сохраняет файл в текущей папке.

_________________
Цель: сделать 64-битную Нову под Винду


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: FORTH+EXCEL
СообщениеДобавлено: Чт авг 10, 2017 22:59 
Не в сети
Аватара пользователя

Зарегистрирован: Ср фев 23, 2011 20:42
Сообщения: 600
Откуда: Карелия
Благодарил (а): 3 раз.
Поблагодарили: 24 раз.
Попробуй изменить рабочий каталог Excel. Вдруг что путное получится.


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: FORTH+EXCEL
СообщениеДобавлено: Пт авг 11, 2017 00:19 
Не в сети

Зарегистрирован: Чт янв 07, 2016 19:14
Сообщения: 1288
Благодарил (а): 3 раз.
Поблагодарили: 18 раз.
Application имеет интересное свойство DefaultFilePath - путь по-умолчанию .
Прикол в том, что это свойство нельзя изменить. Почему непонятно.
Даёшь ему путь нуль-строкой, он её принимает, но по факту не заменяет. Влом, наверное

Цитата:
EXCEL [[ DefaultFilePath = " C:/Users/U/Documents/SP-Forth/" ]]

_________________
Цель: сделать 64-битную Нову под Винду


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: FORTH+EXCEL
СообщениеДобавлено: Пт авг 11, 2017 13:52 
Не в сети

Зарегистрирован: Пт июн 06, 2008 14:21
Сообщения: 128
Откуда: Карелия
Благодарил (а): 1 раз.
Поблагодарили: 4 раз.
Victor__v писал(а):
Задача - переконвертировать екслевский файл в файл формата CSV
Сложность:
При сохранении ( SaveAs ) эксель с непонятным упорством сохраняет файл в папке "документы" при полном указании пути в другое место
Вот что с этим делать?


Цитата:
FILE-ID [[ SaveAs ( " G:\SP-Forth\BI_BASE.CSV" , 23 ) ]] \ 23 - CSV


Как то было такое, пока не заменил слеш на обратный, тогда заработало
: CH\ ( a u -- )
OVER + SWAP ?DO I C@ [CHAR] \ = IF [CHAR] / I C! THEN LOOP
;


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: FORTH+EXCEL
СообщениеДобавлено: Пт авг 11, 2017 15:41 
Не в сети

Зарегистрирован: Чт янв 07, 2016 19:14
Сообщения: 1288
Благодарил (а): 3 раз.
Поблагодарили: 18 раз.
изменял, безтолку

_________________
Цель: сделать 64-битную Нову под Винду


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: FORTH+EXCEL
СообщениеДобавлено: Пт авг 11, 2017 21:43 
Не в сети

Зарегистрирован: Пт июн 06, 2008 14:21
Сообщения: 128
Откуда: Карелия
Благодарил (а): 1 раз.
Поблагодарили: 4 раз.
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
Сохраняет правильно, куда указано...


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 6 ] 

Часовой пояс: UTC + 3 часа [ Летнее время ]


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 9


Вы не можете начинать темы
Вы можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
phpBB сборка от FladeX // Русская поддержка phpBB