Отправлено: 28.04.15 22:50. Заголовок: Вопрос по Excel ?

Всем привет.
Вопрос к знатокам Excel-я, как подсчитать сумму ВСЕХ значений с минусом и с плюсом ?
Вот есть таблица из многих столбцов. Как сделать формулу для расчёта этих значений по 2-му столбцу ?

 Отправлено: 12.03.23 15:28. Заголовок: Haz пишет: когда-то..

Haz пишет:

цитата:

когда-то делал, поищу

где то так

 
 func main() 
 local oExcel, oSheet 
 local i := j := 0 
  
   oExcel := win_oleCreateObject( "Excel.Application" ) 
   oExcel:Visible := .t. 
   oExcel:Workbooks:Add() 
   oExcel:Sheets(1):Select() 
  
   oExcel:Sheets(1):Select() 
   oSheet := oExcel:ActiveSheet 
  
   oExcel:Sheets(1):Select() 
  
   for i := 1 To 10  
       for j := 1 to 10 
           oSheet:Cells( i, j):Value := i*j 
       end 
   end 
  
  oExcel:Sheets(1):Select() 
  oExcel:Sheets(1):Copy(after:=oExcel:Worksheets(1))     
  oExcel:Sheets(1):Name := "1" 
  oExcel:Sheets(2):Name := "2" 
  
  oExcel:Sheets(2):Protect("Password") 
  oExcel:Sheets(2):Visible := .f. 
  
 return nil 
 

 Отправлено: 12.03.23 17:37. Заголовок: А как его поместить ..

А как его поместить в самый конец Sheets и как понять какой номер ему будет
присвоен что имя сменить и пасс поставить ?
Макрос в Excel мне выдал я потом преобразовал
oSheet:copy(after:=oExcel:Worksheets(3))
Откуда он взял цифру 3 ?

 Отправлено: 12.03.23 17:43. Заголовок: так нашел вроде Work..

так нашел вроде Worksheets(Worksheets.Count)

 Отправлено: 12.03.23 17:50. Заголовок: ­Dima пишет: А как е..

*PRIVAT*

 Отправлено: 12.03.23 17:50. Заголовок: вот так вышло lastcn..

вот так вышло
lastcnt:=oExcel:Worksheets:Count
oSheet:Select()
oSheet:copy(after:=oExcel:Worksheets(lastcnt))
oExcel:Sheets(lastcnt):Name :="Оргигинал"
oExcel:Sheets(lastcnt):Protect("Колбаска")
oSheet:Select()

Спасибо

 Отправлено: 12.03.23 17:51. Заголовок: Dima пишет: вот так..

Dima пишет:

цитата:

вот так вышло

 Отправлено: 18.03.23 15:28. Заголовок: Имею такой документ ..

Имею такой документ после эскпорта из ТСБ функцией oBrw:ExcelOle()

Как мне задать нужную ширину колонок, после создания документа ?

 Отправлено: 18.03.23 15:42. Заголовок: oSheet:Columns(1):Co..

oSheet:Columns(1):ColumnWidth := 3.86

 Отправлено: 18.03.23 16:17. Заголовок: Спасибо БОЛЬШОЕ !!! ..

Спасибо БОЛЬШОЕ !!!

 Отправлено: 18.03.23 17:44. Заголовок: Сделал так: oExce..

Сделал так:

   oExcel:Workbooks:Open( cFile, 0 ) 
    oBook  := oExcel:ActiveWorkBook() 
    oSheet := oExcel:ActiveSheet() 
  
    aWidth := {} 
    For nI := 1 To oBrw:nColCount() 
       nW  := oBrw:aColumns[ nI ]:nWidth 
       AADD( aWidth, nW ) 
       ? nI, oBrw:aColumns[ nI ]:cName, nW 
    Next 
  
    For nI := 1 To LEN(aWidth) 
       ? nI, oSheet:Columns(nI):ColumnWidth 
       oSheet:Columns(nI):ColumnWidth := aWidth[nI] 
       ??  "=>", oSheet:Columns(nI):ColumnWidth 
    Next

Вылет на 4 колонке:

Error WINOLE/1006 Нельзя установить свойство ColumnWidth класса Range (0x800A03EC): Microsoft Office Excel (DOS Error -2147352567) Args: [1] = N 317 
 --------------------------------- Stack Trace --------------------------------- 
 Called from WIN_OLEAUTO:_COLUMNWIDTH(0) 
 Called from EXCELFILEREFINEMENT(271) in module: Tsb2xlsOleExtern.prg 
 Called from TOEXCEL2(247) in module: Form_7Btn.prg 
 Called from (b)MYCONTEXMENUEXPORT(48) in module: Form_7Btn.prg 
 Called from _DOCONTROLEVENTPROCEDURE(0) 

В логе вот так:

1  NAME_1   50  
 2  NAME_2   48  
 3  NAME_3   48  
 4  NAME_4   317    
 5  NAME_5   167    
 6  NAME_6   167    
 7  NAME_7   167    
 8  NAME_8   167    
 9  NAME_9   167    
 10 NAME_10  588    
 1  4.4300   => 50.0000   
 2  1.8600   => 48.0000   
 3  4.4300   => 48.0000   
 4  8.2900 

Там в эксель-файле 1 строка объединены колонки с 1 по 10. Это может как то влиять ?
Что делать ?

 Отправлено: 18.03.23 19:44. Заголовок: Сделал короткий прим..

Сделал короткий пример - https://cloud.mail.ru/public/oePE/DfQMjBnkT
Кто может, подскажите пожалуйста, как задать ширину колонок в этом примере.

 Отправлено: 19.03.23 21:12. Заголовок: Andrey пишет: Кто м..

Andrey пишет:

цитата:

Кто может, подскажите пожалуйста, как задать ширину колонок в этом примере.

так ты просишь установить ширину 4 колонки в более чем 3 метра. Размеры в Excel задаются в см. ( в тсб в пикселях )

Это конечно косяк excel, мои колонки какую хочу ширину , такую и делаю. Но 3 метра , явно перебор

 Отправлено: 19.03.23 23:48. Заголовок: Haz пишет: Размеры ..

Haz пишет:

цитата:

Размеры в Excel задаются в см. ( в тсб в пикселях )

Блин, пролёт... Совсем про это забыл...
Делал это же сам 3 года назад и забыл про это... Да, памяти уже совсем нет...
Спасибо БОЛЬШОЕ !