Dima, Excel понимает, но проблема в том, что есть файл XLS в нем куча (30) листов, и 53 DBF файла-источника. При открытии XLS файла - запрос "обновить" и Если файлы источники в формате DBF то нужно Каждый файл DBF руками открывать - Грустно Если файлы источники в формате XLS - Excel Чудненько Все Сам Делает (Обновляет данные). Спасибо...
Отправлено: 12.05.09 13:28. Заголовок: Pasha, извени, что о..
Pasha, извени, что обращался к Dime... В строке oExcel:Visible := .Т. заменил на .F. результат Excel не активируется - то ЧТО Нужно, но файл XLS получается в режиме Read Only, в отдельных случаях тоже пойдет. с классом TSBROWSE метод Excel2 не разбирался... Пока нет времени. Спасибо.
Отправлено: 08.09.11 07:18. Заголовок: Загуглил на "Exc..
Загуглил на "Excel error 80010001" - в частности, выдало ссылку и сюда: Перевод ошибок автоматизации (http://support.microsoft.com/kb/186063/ru). Может быть, поможет? А, скорее всего, это из-за ограничения Excel'а, про которое написал выше petr707 (сам я тоже как-то поубивался над длинной выборкой в Excel 2003 - вылетало, зараза, и все... оказалось - именно это).
Андрей, а может выводить напрямую в BIF-файл? как здесь давненько обсуждалось
Отправлено: 09.09.11 10:33. Заголовок: В классе TSBrowse из..
В классе TSBrowse из fivewin/minigui есть метод Excel2, который формирует файл xls, записывая двоичные данные. Его можно использовать, заменив источник информации: вместо колонок обьекта использовать поля файла. Это очень быстрый способ формирования xls
Отправлено: 27.09.11 13:18. Заголовок: Добрый день. Теперь ..
Добрый день. Теперь поставлена задача: данные из файла(ов) DBF (количество записей разное) закинуть в файл XLS, имеющий кучу листов (10 - 15), с шапками и формтами ячеек....? Смотрел сообщения Gustow и Andrey, что-то не получается у меня. Октрываю два файла XLS источник и приемник, далее: 1. перейти на НУЖНЫЙ лист файла приеника 2. Скопировать данные из файла DBF/XLS (пример Gustow - "нумерация страниц excel") 3. Сформатировать лист файла приеника
c Excel - грустно.. Вопросы: Как активировать Нужный лист в Нужной книге? Переход между книгами? Как форматироваь ячейки (формат, рамки, шрифт, фон итд)?
Вариант, которым пользовался раньше (пакетная выгрузка в файлы DBF->конветация DBF to XLS->Загрузка Отчета(XLS) в котром просто ссылки на файл(ы) источник(и) ...) А Теперь переменное количество строк + форматирование (объединение ячеек по условию), + выделение цветом итд, + рамки....
Элементарные операции. Копия из текста одной утилиты. Начало работы
// oExcel := TOleAuto():New( "Excel.Application" ) oBook:=oExcel:WorkBooks:Add() //новая пустая книга //подогнать количество листов под количестко точек измерения k:=oBook:Sheets:Count //количество листов в новой книге do while (oBook:Sheets:Count)<len(aTmp) //листов меньше чем точек измерения - добавить oBook:Sheets:Add() enddo
Если нужно - добавляй еще новые книги - oBook1, oBook2, ... ---------- заполнение и форматирование ячеек
Row1:=3 //начало таблицы for mpi:=1 to len(aTmp) //пойти по точкам измерения oSheet:=oBook:Worksheets(mpi) //выбрать лист номер mpi oSheet:name:=aTmp[mpi] //имя листа изменить
//рисуем "шкалу часов" oSheet:Cells( Row1, 1 ):Value:="час суток" oSheet:Cells( Row1, 1 ):set('WrapText',.t.) oSheet:Cells( Row1, 1 ):BorderAround( xlContinuous, xlThin) oSheet:Cells( Row1, 1 ):Borders(xlEdgeBottom):Weight := xlMedium oSheet:Cells( Row1, 1 ):Borders(xlEdgeRight):LineStyle := xlDouble for i:=1 to 24 //часы суток oSheet:Cells( Row1+i, 1 ):Value:=i //oSheet:Cells( Row1+i, 1 ):Borders(xlEdgeBottom):Weight := xlMedium oSheet:Cells( Row1+i, 1 ):Borders(xlEdgeRight):LineStyle := xlDouble next //рисуем данные for i:=1 to len(aRes) //перебрать даты oSheet:Cells( Row1, 1+i ):Value:=aRes[i,1] //дата oSheet:Cells( Row1, 1+i ):Set( "VerticalAlignment", xlCenter) oSheet:Cells( Row1, 1+i ):BorderAround( xlContinuous, xlThin) oSheet:Cells( Row1, 1+i ):Borders(xlEdgeBottom):Weight := xlMedium //найти ветку нужной точки измерения if (j:=aScan(aRes[ i ],{|x| x[1]=aTmp[mpi]}))=0 loop endif //значения за дату k:=1 do while k<=len(aRes[i,j,2]) if aRes[i,j,2,k,3]=2 //за час просуммированы два измерения oSheet:Cells( Row1+aRes[i,j,2,k,1], 1+i ):Value:=aRes[i,j,2,k,2] endif //oSheet:Cells( Row1+aRes[i,j,2,k,1], 1+i ):BorderAround( xlContinuous, xlThin) k++ enddo next
//=СЧЁТ(RC[-10]:RC[-1]) //=СУММ(RC[-11]:RC[-2])/RC[-1] //написать формулы k:=len(aRes) oSheet:Cells( Row1, 1+k+1):Value:="колич. измерений" oSheet:Cells( Row1, 1+k+1):set('WrapText',.t.) oSheet:Cells( Row1, 1+k+1):BorderAround( xlContinuous, xlThin) oSheet:Cells( Row1, 1+k+1):Borders(xlEdgeBottom):Weight := xlMedium oSheet:Cells( Row1, 1+k+2):Value:="среднее потребление" oSheet:Cells( Row1, 1+k+2):set('WrapText',.t.) oSheet:Cells( Row1, 1+k+2):BorderAround( xlContinuous, xlThin) oSheet:Cells( Row1, 1+k+2):Borders(xlEdgeBottom):Weight := xlMedium for i:=1 to 24 //часы суток oSheet:Cells( Row1+i, 1+k+1):Formula:="=СЧЁТ(RC[-"+alltrim(str(k))+"]:RC[-1]" oSheet:Cells( Row1+i, 1+k+2):Formula:="=ОКРУГЛ(СУММ(RC[-"+alltrim(str(k+1))+"]:RC[-2])/RC[-1];0)" next //сумма по часам for i:=1 to 24 //часы суток //msgbox(valtype(aSum[ i ])) aSum[ i ]:=aSum[ i ]+oSheet:Cells( Row1+i, 1+k+2):Value next
Отправлено: 29.09.11 05:30. Заголовок: SADSTAR4, да это 4 с..
SADSTAR4, да это 4 строка кода. Но там открывается Сводный (конечный) отчет, в котром куча листов, шапки итд. Мне нужно перейти на Лист N, допустим 1 или 3.
Далее по тексту кода в Excel Открывается полученный в результате обработки файл формата DBF, проходит его форматирование итд. теперь скопировать текущий лист и далее вставить его в соответсвующий Лист Сводного отчета.
Т.е. не надо создавать (добавлять) листы в существующие файлы Excel....
Отправлено: 29.09.11 06:22. Заголовок: Если объект oBook не..
Если объект oBook не существует, то обращение к нему вызывает ошибку попробуй сделать так oBook:=oExcel :Workbooks:Open(Main_File) // сводный отчет XLS из 9 листов oKlSheet :=oExcel:Sheets:Count // <-это не объект а число oSheet :=oBook:Worksheets(1)
P.S. Что-то не пойму смысла этого кода cRecno := Val(AllTrim(Str(nLenRecnoXls))) cColumn := Val(AllTrim(Str(nLenColumnXls))) Числовое значение преобразовать в строку а затем опять в число?
oBook:=oExcel :Workbooks:Open(Main_File) // сводный отчет XLS из 9 листов oKlSheet :=oExcel:Sheets:Count // количество листов книги - нормально oSheet :=oBook:Worksheets(1) Вылетает Ошибка
Error BASE/1004 Class: 'NIL' has no exported method: WORKSHEETS Arguments: ( [ | 1] = Type: U [ 2] = Type: N Val: 1)
PS. cRecno := Val(AllTrim(Str(nLenRecnoXls))) cColumn := Val(AllTrim(Str(nLenColumnXls))) - у меня "глаз замылился...."
Остался только этот блок 1. "Выбрать данные из литса текущей книги" 2. "Перейти на другую книгу (сводный отчет)" 3. "Выбрать Нужный лист" 4. "Вставить данные из п.1"
фрагмент кода oAs:SaveAs(Xls_Copy,Excel97_10) // запись файла DBF в формате XLS oAs:Cells(2,2):Select() // переход на ячеку oAs:Cells:Copy() // копирование oExcel :Workbooks:Open(Main_File) // открытие сводного отчета oKlSheet :=oExcel:Sheets:Count // подсчет количества листов oSheet :=oBook:Worksheets(1) // выбор листа oAs :=oExcel:ActiveSheet() // надо установить на нужную ячйеку (A5) oSheet:Paste() // вставить данные oAs:SaveAs(Main_File,Excel97_10) // запись сводного отчета oExcel:Set( "DisplayAlerts",.T.) oExcel :Visible := .T.
Отправлено: 29.09.11 08:21. Заголовок: т.е. надо oSheet:=oB..
т.е. надо oSheet:=oBook:Sheets(1) - все равно ошибка |Error BASE/1004 Class: 'NIL' has no exported method: SHETTS Arguments: ( [ 1] =| | Type: U [ 2] = Type: N Val: 1)░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░|
Отправлено: 29.09.11 08:48. Заголовок: Pasha, в этом я вооб..
Pasha, в этом я вообще не понимаю, спасибо за помощь.... oAs:SaveAs(Xls_Copy,Excel97_10) oAs:Cells(2,2):Select() oExcel:Workbooks:Open(Main_File) oBook := oExcel:ActiveWorkBook oSheet:=oBook:Sheets(1) oAs :=oExcel:ActiveSheet() oAs:Cells(5,1):Select() oAs:oSheet:Paste() oAs:SaveAs(Xls_File,Excel97_10) oExcel:Set( "DisplayAlerts",.T.) oExcel :Visible := .T. Вот такой код... сейчас ошибка на Paste() понятно, что нет COPY()....
Pasha, oAs:Cells(2,2):Select() переход на ячей oAs:Range(oAs:Cells(2,2),oAs:Cells(cRecno,cColumn-4)):Copy() или как Правильно написать??? т.е надо с ячейки 2.2 до Crecno - количество строк, cColumn - количество столбцов выбрать в буфер
oAs:Cells(2,2):Select() переход на ячей oAs:Range(oAs:Cells(2,2),oAs:Cells(cRecno,cColumn-4)):Copy() или как Правильно написать??? т.е надо с ячейки 2.2 до Crecno - количество строк, cColumn - количество столбцов выбрать в буфер
Отправлено: 29.09.11 09:33. Заголовок: ошибок нет oAs:Range..
ошибок нет oAs:Range(oAs:Cells(2,2),oAs:Cells(cRecno,cColumn-4)):Select() oAs:Range(oAs:Cells(2,2),oAs:Cells(cRecno,cColumn-4)):Copy() далее переход на сводный отчет oExcel:Workbooks:Open(Main_File) oBook := oExcel:ActiveWorkBook oSheet:=oBook:Sheets(1) oAs :=oExcel:ActiveSheet() oAs:Cells(5,1):Select() oAs:oSheet:Paste() // ошибка |Error Excel.Application:ACTIVESHEET/3 DISP_E_MEMBERNOTFOUND: OSHEET Arguments: | |()░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░| |░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░| |Error at ...: TOLEAUTO:OSHEET(0) in Module: source\rtl\win32ole.prg░░░░░░░░░░░░░| |Called from : EXPORT_DAY1(414) in Module: COMM_003.prg░░░░░░░░░░░░░░░░░░░░░░░░░░| |Called from : EXPORT_DATA(383) in Module: MAIN_000.prg░░░░░░░░░░░░░░░░░░░░░░░░░░| |Called from : MAIN(213) in Module: MAIN_000.prg░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░| Pasha???
Pasha, спасибо.... с одним Листом справился. Остается объем данных в буфере обмена и выделение вставленных ячеек, где-то на форуме были сообщения по этому поводу....
Теперь надо организовать переход на другие DBF отчеты, там обработка и вставка на соответсвующие листы... в памяти уже загружен Excel файл сводный отчет. Допустим переход на Лист 2,3,4.... N Открытие следующего DBF файла - форматирование итд вставка на листе сводного отчета. /// /// в конеце - 1 раз запись Сводного Отчета
Теперь надо организовать переход на другие DBF отчеты, там обработка и вставка на соответсвующие листы... в памяти уже загружен Excel файл сводный отчет. Допустим переход на Лист 2,3,4.... N Открытие следующего DBF файла - форматирование итд вставка на листе сводного отчета. /// /// в конеце - 1 раз запись Сводного Отчета
Ну и.. в чем проблема ? В Sheets задать номер листа, выдать select на нужный дбф
Отправлено: 30.09.11 01:27. Заголовок: Круто - ни одного ко..
Круто - ни одного комментария. Через неделю сам поймешь что там делается?
Код лучше вставлять в тэгах [ pre ][ /pre ] которые вставляются кнопкой < 123 > (или набрать вручную) Тогда сохраняются отступы (если они есть в тексте).
Если в тексте есть "[ i ]" (="["+"i"+"]") то нужно заменить на "["+" "+"i"+" "+"]" т.е. вставить пробелы между скобками и i, т.к. сайт понимает это как тэг перехода на шрифт Italic.
Отправлено: 30.09.11 05:19. Заголовок: Круто написал... на ..
Круто написал... на предпросмотре было ОК... комметарии к тексту. 1. Проходит обработка БД и создание локальных DBF файлов (01_table, 02_table итд) 2. Преобразование локальных DBF файлов (01_table, 02_table итд) в формат XLS и форматирование ячеек 3.Запись XLS файлов на диск
в текщем коде формирование локальных XLS и их форматирование проходит нормально.
Но хочу сделать следующее: 1.Открыть сводный отчет XLS (Main_File) - в нем 9 Листов, с шапками и прочими атрибутами 2.Открывать локальные XLS файлы (01_table, 02_table .... 09_table) 3.Копировать диапазон ячеек, уже сформатированных 4.Перейти в сводный отчет XLS (Main_File) 5.Установить нужный лист 6.Вставить данные локального отчета XLS 7. Повторить п 2-6 в данном случае 9 раз (01_table, 02_table ..... 09_table) 8.Записать сводный отчет XLS Main_File.
в коде программы есть функции DAY_AZS1, DAY_AZS2 - это обработка основной БД, расчет и ФОРМИРОВАНИЕ выходных локальных DBF Копирование данных проходит в первом случае (01_table) проходит правильно, при переходе к обработке 02_table и переходе к листу 2 отчета MAIN_FILE происходит копирование данных из 01_table а затем уже из 02_Table.... Вопросы: Как очистить буфер обмена? Как организовать последовательный переход между книгами и листами, ранее уже открытыми?
Форумчане , прошу помочь советами... Сейчас я каждый раз открываю сводный MAIN_FILE, затем открываю локальный 01_table.xls копирую данные и ЗАКРЫВАЮ оба файла, затем снова открываю сводный MAIN_FILE и локальный 02_table.xls.
Отправлено: 30.09.11 10:24. Заголовок: Pasha, добрый день. ..
Pasha, добрый день. п.1 консольный xharbour, какая там команда п.2 можно по нагляднее, подробнее описать oBook:Sheets(1):Select() //// oBook1:Sheets(1):Select()Psate() ////
Отправлено: 30.09.11 11:12. Заголовок: 1. Эта функция как р..
1. Эта функция как раз для консольного харбора. Надо только включить hbgtinfo.ch
2. oSeet:Select() делает указанный лист активным Затем в этом листе надо выбрать нужную ячейку, и вызвать для листа метод Paste() Метод Paste можно вызвать как для активного листа (переменная oAs), так и для произвольного:
Ошибка Error: Unresolved external '_HB_FUN_HB_GETINFO' referenced from COM_003.prg
в начале проги подключаются # Include 'Command.Ch' # Include 'Inkey.Ch' # Include 'Dbedit.Ch' # Include 'Setcurs.ch' # Include 'Excel.Ch' # Include 'Hbgtinfo.Ch'
Отправлено: 30.09.11 12:26. Заголовок: Я два раза написал и..
Я два раза написал имя функции hb_gtinfo(), а Вы упорно пишите зачем-то hb_getinfo Где я показывал, что hb_gtinfo - это метод обьекта Sheet ? Это функция, и ее надо вызывать так:
Отправлено: 30.09.11 12:42. Заголовок: Pasha, туго мне с эт..
Pasha, туго мне с этим направлением, поэтому мучаю Вас и самому тоскливо... oAs:Range(oAs:Cells(2,2),oAs:Cells(cRecno,cColumn-4)):Select() oAs:Range(oAs:Cells(2,2),oAs:Cells(cRecno,cColumn-4)):Copy() oExcel :Workbooks:Open(Main_File) oBook :=oExcel:ActiveWorkBook oSheet:=oBook :Sheets(1) oAs :=oExcel:ActiveSheet() oAs :Cells(5,1):Select() oAs :Paste() Hb_getInfo(HB_GTI_CLIPBOARDDATA, "") Все варно ошибка Error: Unresolved external '_HB_FUN_HB_GETINFO' Покажи на этом фрагменте как правильно записать....
Отправлено: 30.09.11 13:35. Заголовок: Pasha, так и написан..
Pasha, так и написано
hb_gtinfo(HB_GTI_CLIPBOARDDATA, "")
но ошибка то осталась, похоже я точно устал....., может какую-то Lib надо подключить? Список библиотек, подключаемых при формировании EXE lang.lib vm.lib rtl.lib rdd.lib macro.lib pp.lib dbfcdx.lib dbffpt.lib common.lib gtwin.lib codepage.lib ct.lib tip.lib pcrepos.lib hsx.lib hbsix.lib zlib.lib debug.lib import32.lib cw32.lib DbfNtx.Lib
Отправлено: 04.10.11 07:49. Заголовок: Опять кракозябры......
Опять кракозябры.... Ошибка Error BASE/1004 Class: 'NIL' has no exported method: CELLS Arguments: ( [ 1] = | |Type: U [ 2] = Type: N Val: 5 [ 3] = Type: N Val: 1) „ при обработке 2 отчета.... Как написать, что бы не было Кракозябриков?
Отправлено: 04.10.11 08:53. Заголовок: Нашел ошибку, в стро..
Нашел ошибку, в строке oAs_S :=oExcel:ActiveSheet() записал как oAs_S :=oExcel_S:ActiveSheet(), теперь ругается на oAs_S:Paste() Error Excel.Application:ACTIVESHEET/3 DISP_E_MEMBERNOTFOUND: PASTE Arguments: (| |)
Получилось, спасибо за советы и терпение.... Теперь вопрос как снять выделение диапазона на листах сводного отчета? Использую команду Hb_gtInfo(HB_GTI_CLIPBOARDDATA, "") // очистка буфера обмена oExcel_S:CutCopyMode :=.F. // снятие выделения диапазона ячеек
все листы, которые получены через копирование ячеек из локальных XLS остаются с выделенным диапазоном.
Отправлено: 05.10.11 05:04. Заголовок: Andrey, установил ку..
Andrey, установил куросор или другими словами активировал ячейку...
oSheet_S:=oBook_S :Sheets(3):Select() // выбор листа и активация нужного листа oBook_S :=oExcel_S:ActiveWorkBook oAs_S :=oExcel_S:ActiveSheet() oSheet_S:=oBook_S :Sheets(3) oAs_S :Cells(5,1):Select() // установка нужной ячейки с которой надо вставлять из буфера oSheet_S:Paste() // собственно вставка oAs_S :Cells(5,1):Select() // активация ячейки
Отправлено: 07.10.11 06:08. Заголовок: Добрый день, возникл..
Добрый день, возникла интересная ситуация. На 1 ПК установлена русская версия Windows 7, SP1 и Office 2010, на 2 ПК XP, SP1 и Office 2003. На этих ПК установлены xHarbour, BCC5 одинаковые. Так вот на Windows 7, SP1 и Office 2010 обработка сводного отчета XLS проходит нормально, а на другом вываливается по ошибке
фрагмент кода обработки oSheet_S:=oBook_S :Sheets(1):Select() oBook_S :=oExcel_S:ActiveWorkBook oAs_S :=oExcel_S:ActiveSheet() oSheet_S:=oBook_S :Sheets(1) oAs_S :Cells(5,1):Select() Day_Excel:=Mar12+Dtos(Cdata)+'Day' // формирование имени файла отчета oAs_S:SaveAs(Day_Excel,Excel97_10) // запись файла отчета oExcel_S:Quit()
Отправлено: 07.10.11 10:44. Заголовок: Pasha пишет: что та..
Pasha пишет:
цитата:
что такое Excel 97_10 ? Какая-то переменная ?
цитата:
oAs_S:SaveAs(Day_Excel,Excel97_10)
Это из VBA: параметр, указывающий, в каком формате Excel будет сохранять файл с именем, указанным в первом параметре. В данном случае Excel97_10, то есть в формате Office 2010. А Oskar_AAA пытается сохранить в этом формате из Office 2003, на что тот реагирует ошибкой. Надо бы ставить Excel97_03, но тогда при попытке запустить под Office 2000/97 опять ошибка вылезет. Параметр Excel97 более универсален: будет работать с 97 по 2010 включительно.
Отправлено: 07.10.11 13:17. Заголовок: Excel97_10 - это ест..
Excel97_10 - это есть переменная, котора принимает значение 43 или 56 в зависимости от версии MS Excel, прописана в настройках своего ПО. программа вываливается на Exce 2003 ТОЛЬКО при обработке двух XLS отчетов одновременно, т.е . открывает локальный отчет, берет из него данные и ВНОСИТ их в уже ОТКРЫТЫЙ сводный отчет на определенный лист. Далее закрывается локальный отчет и копия oExcel, котрым он был открыт. Далее опять запускается новая копия Excel и открывается другой локальный отчет и опять берет из него данные и ВНОСИТ их в уже ОТКРЫТЫЙ сводный отчет на определенный лист. Попытка открыть Два файла использую одну копию Excel у меня вылетает ошибка. Как открывать два и более файлов, использую одну копию Excel (как определить и различать переменные oExcel, oBook, oSheets, oAs, oRange)? Как записать и закрыть определеный (Документ) файл XLS, при этом не Закрывая само Приложение Excel? пока делаю так:
Available memory...: 690844 Current disk.......: C Current directory..: TEMP.BL1 Free disk space....: 17157193728
Operating system...: Windows XP Professional 5.01.2600 Service Pack 3 xHarbour version...: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6476) xHarbour built on..: Jun 11 2009 09:38:24 C/C++ compiler.....: Borland C++ 5.5.1 (32 bit) Multi Threading....: NO VM Optimization....: 2
-------------------- Internal Error Handling Information ---------------------
Subsystem Call ....: Excel.Application:ACTIVESHEET System Code .......: 3 Default Status ....: .F. Description .......: DISP_E_MEMBERNOTFOUND Operation .........: SAVEAS Arguments .........: [ 1] = Type: C Val: C:\PROBA.ALL\FILES.EXP\20110907Day [ 2] = Type: N Val: 43 Involved File .....: Dos Error Code ....: 0
Trace Through: ---------------- TOLEAUTO:SAVEAS : 0 in Module: source\rtl\win32ole.prg EXCEL_DAY1 : 1,835 in Module: COMM_004.prg EXPORT_DATA : 474 in Module: MAIN_000.prg MAIN : 184 in Module: MAIN_000.prg
Pasha, т.е надо записать oWorbook_S:SaveAs(Day_Excel,Excel97_10) вместо oAs_S:SaveAs(Day_Excel,Excel97_10) я правильно понял?
В вашем коде же нет переменной oWorbook_S. И из воздуха она сама по себе не возникнет. Надо использовать ту переменную, в которую зенесено значение ActiveWorkbook, или какой-либо другой книги, которую надо сохранить.
Отправлено: 10.10.11 11:18. Заголовок: попробую на другом П..
попробую на другом ПК, это вечером. А как сделать так чтобы: в процессе работы активировался Excel, пользователь внес необходимые данные, затем прошла запись данных в файл XLS и переход обратно в xHarbour. Другими словами: ввод данных в дилоговом режиме, активируется Excel, пользователь вносит данные в таблицу Excel, записывает Excel файл и управление обратно переходт в программу xHarbour. У меня gпользователи привыкли к вводу в Excel...
Отправлено: 10.10.11 12:16. Заголовок: Хотелось бы без пере..
Хотелось бы без перехода на панель задач.... в программе вызывается Excel, пользоваиель делает то что хочет с данными, записывает файл и закрыает Приложение Excel и переходит обратно в прграмму...
Отправлено: 10.10.11 12:30. Заголовок: Боюсь, что это невоз..
Боюсь, что это невозможно. Во всяком случае, я не знаю, как это сделать. Программа как-то должна отследить, что Excel закрыт. Но Excel остается в памяти, пока висит программа. Есть у ms такая фича. Но зачем все это ? Когда excel закроется, windows и сама передаст фокус на предыдущее окно, т.е харбор-программу.
записывает файл и закрыает Приложение Excel и переходит обратно в прграмму...
Нельзя наверно. Как Эксель узнает что нужно вернуть фокус обратно в задачу ? Хотя наверно можно в своей задаче опрашивать в цикле каждую минуту на наличие окна Экселя, и если его нет, то переключить(распахнуть) окно своей задачи.
наверно можно в своей задаче опрашивать в цикле каждую минуту на наличие окна Экселя,
но в памяти может быть загружен Excel совсем не относящийся к моей программе. Pasha, в том то и дело, что активируется Excel в фоновом режиме и висит в своем окне, а программа продолжает идти дальше по тексту кода, т.е. читает данные из файла XLS и пишет в БД. Хотя Пользователь не ввел необходимые данные....
но в памяти может быть загружен Excel совсем не относящийся к моей программе.
Тогда бери и определяй окно Excel с заголовком ТВОЕГО файла.... Список процессов можешь получить вот с помощью такой программульки... http://files.mail.ru/OX6T20 А там дальше делай с ним что хочешь....
Отправлено: 30.11.22 23:43. Заголовок: Опять проблема с раз..
Опять проблема с разными версиями Экселя. Создаю Dbf в кодировке RU866. Открываю в экселе и записываю файл в формате XLS. На версии 2003 работает а на новой 2010 вылетает с такой ошибкой:
BEGIN SEQUENCE WITH {|e| Break( e )} oExcel := GetActiveObject( "Excel.Application" ) RECOVER BEGIN SEQUENCE WITH {|e| Break( e )} oExcel := CreateObject( "Excel.Application" ) RECOVER MG_Stop( "ОШИБКА! Excel не доступен. [" + win_oleErrorText() + "]" ) RETURN ( "" ) END END
Отправлено: 01.12.22 07:14. Заголовок: Добрый день, тоже ра..
Добрый день, тоже раньше были проблемы с версиями MS Excel при SaveAs(Name_Xls, версия MS) Попробуйте убрать параметр версии MS Excel замените на SaveAs(Name_Xls)
Отправлено: 01.12.22 11:34. Заголовок: Andrey пишет: Что м..
Andrey пишет:
цитата:
Что можно поправить, чтобы не вылетало ?
А чего сразу то не писать в формате Excel. Есть как минимум 4 способа работы с этим форматом и два из них вообще не требует Excel на компе.. 5 лет одни и те же грабли, может пора с другой стороны к снаряду подойти?
Отправлено: 01.12.22 12:40. Заголовок: Имя файла MS Excel в..
Имя файла MS Excel всегда явно задаю с расширением XLSX и нет проблем ... 2003 сейчас найти трудно. В принципе тип расширения XLS/XLSX можно задать в настройках программы.
Отправлено: 01.12.22 17:37. Заголовок: Haz пишет: А чего с..
Haz пишет:
цитата:
А чего сразу то не писать в формате Excel. Есть как минимум 4 способа работы с этим форматом и два из них вообще не требует Excel на компе.. 5 лет одни и те же грабли, может пора с другой стороны к снаряду подойти?
Да по быстрому решил dbf преобразовать в xls, без всяких объектов МиниГуи. Попытка не удалась ! Переделал пути и имя файла в латиницу - тоже такая же ошибка ....
Отправлено: 01.12.22 22:46. Заголовок: Haz пишет: Даже в 2..
Haz пишет:
цитата:
Даже в 2016 есть поддержка форматов 95 и 97
У меня как раз 2016. Не поленился, прогнал этот пример. Не работает. Заменил xlExcel9795 на xlExcel8. Работает. Поддержка может она и есть. Теоретически, в доке. Но вот глючит она выходит
Отправлено: 01.12.22 23:08. Заголовок: Pasha пишет: У меня..
Pasha пишет:
цитата:
У меня как раз 2016. Не поленился, прогнал этот пример. Не работает.
Потому что при сохранении в 95/97 Excel раз 5 ругается матом про потерю функционала и совместимость. Но при сохранении через OLE эту ругань не видно, видимо это и приводит ошибке при игноре запросов Excel
Чекнул , в принципе да , со скобками если , то вернет такой же результат. У меня вернуло 51 а 51 это {"xlOpenXMLWorkbook", "Open XML Workbook", ".xlsx"}
Все даты в формате GMT
3 час. Хитов сегодня: 44
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет
- участник сейчас на форуме
- участник вне форума