Вверх ↑
Этот топик читают: Гость
Ответов: 8926
Рейтинг: 823
#61: 2013-06-29 17:47:23 ЛС | профиль | цитата
legandox, да не так уж и печальны, на форуме есть примеры открытия/закрытия Excel, записи и чтения, а если хочется красивостей, то запускайте свой любимый Excel, записывайте макрос: меняйте шрифт, размер, цвет, заливку; открывайте редактор VB и простым копипастом переносите в HiAsm, не забывая заменить конструкции вида Range("F8").Select на Cells(8,6).Select
карма: 19

0
Ответов: 16884
Рейтинг: 1239
#62: 2013-06-29 19:23:59 ЛС | профиль | цитата
Леонид, просветите (никак не врублюсь)
Леонид писал(а):
простым копипастом переносите в HiAsm
А ЗАЧЕМ В HIASM ?

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 8926
Рейтинг: 823
#63: 2013-06-29 19:33:38 ЛС | профиль | цитата
Tad, это не ко мне, это к коллеге legandox
карма: 19

0
Ответов: 146
Рейтинг: 1
#64: 2013-06-30 06:22:02 ЛС | профиль | цитата
Вот Код с VBA, где есть номер ячейки и цветность


Sub Макрос1()
'
' Макрос1 Макрос
'
' Сочетание клавиш: Ctrl+к
'
Range("C7").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 16777215
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
я сделал компонент
code_31379.txt

подскажите все верно ??

------------ Дoбавленo в 06.22:
Забыл заменить заменить конструкцию вида Range("F8").Select на Cells(8,6).Select


Add(VBScript,356459,301,350)
{
WorkPoints=#8:hi_pozic|8:hi_color|
Script=#13:Sub Макрос1()|1:'|16:' Макрос1 Макрос|1:'|26:' Сочетание клавиш: Ctrl+к|1:'|28: Cells("hi_pozic").Select|27: With Selection.Interior|26: .Pattern = xlSolid|40: .PatternColorIndex = xlAutomatic|25: .Color = hi_color|25: .TintAndShade = 0|32: .PatternTintAndShade = 0|12: End With|7:End Sub|
}

карма: 0

0
файлы: 1code_31379.txt [460B] [338]
Ответов: 8926
Рейтинг: 823
#65: 2013-06-30 10:40:33 ЛС | профиль | цитата
legandox, не совсем так, сначала надо открыть книгу, и ведь Вам захочется менять любую ячейку на любом листе Поэтому надо только шаблон оставить, а желаемые параметры передавать на вводе в виде строки, или точки на каждый изменяемый параметр предусматривать, вариантов много. Посмотрите в соседней теме Таблица Excel (xls, xlsx), скачайте пример, изучите его, если у Вас Excel 2003, то легко добавить и шрифты, а вот если Excel старше, возникнут проблемы, почему-то коды там отказываются работать
карма: 19

0
Ответов: 146
Рейтинг: 1
#66: 2013-06-30 11:11:39 ЛС | профиль | цитата
ЛеонидСтарше...
не кстати мне только на одном листе надо) ну самое главное изменять ячейки..
карма: 0

0
Ответов: 8926
Рейтинг: 823
#67: 2013-06-30 11:19:18 ЛС | профиль | цитата
legandox писал(а):
Старше...
Жаль, но всё равно скачайте тот пример и проверте, будет-ли работать у Вас.
карма: 19

0
Ответов: 254
Рейтинг: 6
#68: 2015-03-08 04:08:18 ЛС | профиль | цитата
Ребята, я так понял, что в excel из ole можно вставить без использования скриптов. А можно также без скриптов получить всю таблицу в базу?
------------ Дoбавленo в 04.08:
Ребята, я так понял, что в excel из ole можно вставить без использования скриптов. А можно также без скриптов получить всю таблицу в базу?
карма: 0

0
Ответов: 7
Рейтинг: 0
#69: 2018-10-22 23:23:05 ЛС | профиль | цитата
Страшный но рабочий пример . читает и очень бодро.
имя файла своё вставь и имя листа... возможно понадобится доустановить коннектор https://dev.mysql.com/downloads/connector/odbc/
файл свой прикрепить немогу.

Add(MainForm,2953706,21,105)
{
Width=1285
Height=667
}
Add(DS_OLEDB,3896685,553,252)
{
Name="drv1"
Point(onError)
link(onCreate,6271331:doOn,[])
link(onError,6271331:doOff,[(618,265)(618,251)])
}
Add(FormatStr,861147,497,252)
{
Mask="DRIVER=Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb);\r\nDbq=%1;\r\nFirstRowWhasNames=0;\r\nReadOnly=true;\r\nScanRows=0;"
Point(FString)
link(onFString,3896685:doOpen,[])
AddHint(47,-181,196,78,Mask)
}
Add(DSC_Query,16327803,497,371)
{
DSManager="drv1"
link(onQuery,2044533:doStr,[(587,377)(587,363)])
}
Add(FormatStr,3222802,392,371)
{
DataCount=3
Mask="SELECT * FROM `%3`.`%2$`"
Point(FString)
link(onFString,16327803:doQuery,[])
link(Str2,8219651:Text,[])
link(Str3,1323844:Part,[(412,303)(454,303)])
AddHint(-180,-51,149,13,Mask)
}
Add(FilePartElm,1323844,448,203)
{
Point(Part)
link(onPart,8775745:doAdd,[(524,209)(524,174)])
}
Add(Hub,13069903,406,245)
{
InCount=2
OutCount=3
link(onEvent1,1323844:doPart,[(434,251)(434,209)])
link(onEvent2,861147:doString,[])
link(onEvent3,15446330:doAdd,[(458,265)(458,524)])
}
Add(Edit,8219651,399,287)
{
Top=135
Width=155
Text="allpoints.cr"
}
Add(LED,6271331,651,238)
{
Left=75
Top=50
}
Add(Button,1227267,266,364)
{
Left=5
Top=110
Caption="Открыть"
link(onClick,5525649:doEvent2,[])
}
Add(RichEdit,4526577,770,343)
{
Left=30
Top=230
Width=415
Height=240
ScrollBars=2
}
Add(MT_String,2044533,644,357)
{
link(onResult,4958151:doEvent1,[(688,363)(688,398)])
}
Add(Hub,5525649,329,357)
{
InCount=2
OutCount=3
link(onEvent1,4526577:doClear,[(563,363)(563,356)])
link(onEvent2,3222802:doString,[(367,370)(367,377)])
}
Add(StringTable,8886953,805,448)
{
Left=520
Top=70
Width=690
Height=510
Columns=#4:A=39|4:B=39|4:C=39|4:D=39|4:E=39|4:F=39|4:G=39|4:H=39|4:I=39|4:J=39|4:K=39|4:L=39|4:M=39|4:N=39|4:O=39|4:P=39|4:Q=39|4:R=39|4:S=39|4:T=39|4:U=39|4:V=39|4:W=39|4:X=39|4:Y=39|4:Z=39|5:AA=39|5:AB=39|5:AC=39|5:AD=39|5:AE=39|5:AF=39|
Grid=0
Point(Matrix)
}
Add(Hub,4958151,707,392)
{
link(onEvent1,4526577:doAdd,[(728,398)(728,349)])
link(onEvent2,8886953:doAdd,[(742,405)(742,454)])
}
Add(Button,11796961,224,252)
{
Left=5
Top=20
Width=90
Caption="newOpen Excel"
link(onClick,11916269:doStrCat,[])
}
Add(StrCat,11916269,273,252)
{
Str2="data\\rpt004.xls"
link(onStrCat,9202895:doEvent1,[])
link(Str1,14298259:CurrentDir,[])
}
Add(Dir,14298259,273,210)
{
}
Add(RichEdit,15446330,497,518)
{
Left=165
Top=5
Width=320
Height=200
}
Add(RichEdit,8775745,567,168)
{
Left=515
Top=5
Width=535
Height=60
}
Add(Hub,9202895,336,252)
{
link(onEvent1,13069903:doEvent2,[])
link(onEvent2,5525649:doEvent1,[(364,265)(316,345)(316,363)])
}
Add(Button,12441475,658,476)
{
Left=455
Top=560
Caption="clear"
link(onClick,8886953:doClear,[(748,482)(748,461)])
}
Add(Button,10516235,742,588)
{
Left=440
Top=510
Caption="dosave"
Data=String(001.txt)
link(onClick,8886953:doSave,[(790,594)(790,482)])
}
Add(Button,12841789,728,546)
{
Left=440
Top=480
Caption="doload"
Data=String(001.txt)
link(onClick,8886953:doLoad,[(782,552)(782,475)])
}

карма: 0

0
69
Сообщение
...
Прикрепленные файлы
(файлы не залиты)