Вверх ↑
Этот топик читают: Гость
Ответов: 537
Рейтинг: 14
#1: 2020-08-30 09:32:27 ЛС | профиль | цитата
При открытии файла .xlsx в Windows 10 64bit происходит ошибка -2147217865 и файл не открывается, на Windows 7 64bit файл открывается без ошибок
Add(MainForm,2953706,77,147)
{
Width=626
Height=643
}
Add(ChildPanel,6304782,231,147)
{
@Hint=#5:Прайс|
link(onEvent1,8268735:doAdd,[])
}
BEGIN_SDK
Add(EditMulti,13873045,21,21)
{
EventCount=2
WorkCount=1
Width=860
Height=655
link(doWork1,11410566:doEvent1,[(45,27)(45,202)])
}
Add(Panel,14000364,63,28)
{
Left=625
Top=15
Width=214
Height=144
Visible=1
Layout="parent.vert"
}
Add(FormatStr,15762674,315,119)
{
Mask="Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};\r\nDriverID=22;\r\nDBQ=%1;\r\nDefaultDir=%2;\r\nFirstRowWhasNames=1;\r\nReadOnly=true;\r\nScanRows=0;"
Point(FString)
link(Str2,16353759:Var2,[])
}
Add(OLEdb,3042347,175,280)
{
Point(onError)
link(onConnect,15799951:doCreate,[])
link(Driver,15762674:FString,[(181,186)(321,186)])
link(onError,6281013:doMessage,[(219,293)(219,314)(163,314)(163,335)])
}
Add(OLEdb_Session,15799951,238,280)
{
Point(onError)
link(onError,3395621:doMessage,[(278,293)(278,307)])
}
Add(FormatStr,5978579,427,287)
{
Mask="SELECT * FROM "%2"."%1$A4:D" "%1$";"
link(onFString,6949883:doQuery,[(471,293)(471,342)(226,342)(226,391)])
link(Str1,4870236:String,[])
link(Str2,16353759:Var3,[(440,103)])
}
Add(VBJScript,345803,315,210)
{
@Hint=#16:Query SQL Server|
WorkPoints=#6:doOpen|7:doSheet|7:doClose|
EventPoints=#8:onSheets|6:onOpen|
Script=#9:Dim strIn|5:Dim i|5:Dim j|12:Dim objExcel|11:Dim onExcel|0:|22:Sub doWork(Data,Index)|18: Select Case Index|15: Case "doOpen"|52: Set objExcel = CreateObject("Excel.Application")|52: Set objWorkbook = objExcel.Workbooks.Open (Data)|71: j = objWorkbook.Sheets.Count 'Узнаём количество листов|88: For i=1 To j 'Листы начинаются не с "0", а с "1" |86: strIn = objWorkbook.Sheets(i).Name 'Узнаём имя очередного листа |65: sys.onSheets strIn 'Выводим имя наружу|9: Next|17: sys.onOpen 1 |94: 'Case "doSheet" 'На вход подаётся строка, содержащая имя Листа|33: 'objExcel.Sheets(Data).Select|38: 'objExcel.ActiveSheet.Cells.Select|43: 'objExcel.Selection.NumberFormat = "@" |39: 'objExcel.ActiveWorkbook.Save() |17: Case "doClose"|17: objExcel.Quit|26: Set objExcel = Nothing|17: sys.onOpen 0 |0:|11: End Select|0:|7:End Sub|
UseName=0
link(onSheets,4870236:doAdd,[])
}
Add(Hub,45852,280,203)
{
OutCount=4
link(onEvent1,15762674:doString,[(304,209)(304,125)])
link(onEvent2,345803:doOpen,[])
link(onEvent3,345803:doClose,[(304,223)(304,230)])
link(onEvent4,7883240:doText,[(301,230)(301,244)])
}
Add(Hub,11410566,70,196)
{
OutCount=4
link(onEvent1,2139596:doValue,[(203,202)(203,62)])
link(onEvent2,45852:doEvent1,[])
link(onEvent3,3042347:doOpen,[(130,216)(130,286)])
link(onEvent4,5978579:doString,[(256,223)(256,293)])
}
Add(OLEdb_Query,6949883,238,385)
{
link(onQuery,9619184:doEvent1,[])
link(onColumns,9619184:doEvent2,[])
link(onError,11907218:doMessage,[(296,405)(296,440)])
link(dbSession,15799951:dbSession,[])
}
Add(GetDataEx,16353759,322,98)
{
link(Data,2139596:Value,[])
}
Add(StrList,4870236,406,210)
{
Point(String)
Point(doGetString)
}
Add(VisualStrings,7883240,364,238)
{
Lines=#1:0|
Width=18
Point(doText)
Point(onText)
link(onText,4870236:doGetString,[])
}
Add(Message,11907218,322,434)
{
Caption="3"
Icon=1
}
Add(Message,6281013,175,329)
{
Caption="1"
Icon=1
}
Add(Message,3395621,287,301)
{
Caption="2"
Icon=1
}
Add(Memory,2139596,322,56)
{
}
Add(MT_String,3709045,322,385)
{
link(onResult,13873045:onEvent1,[(618,391)(618,27)])
}
Add(Hub,9619184,287,385)
{
InCount=2
OutCount=1
link(onEvent1,3709045:doStr,[])
}
END_SDK
Add(Button,4982637,133,147)
{
Left=5
Top=5
Caption=" Open"
link(onClick,10622552:doExecute,[])
}
Add(ODialog,10622552,182,147)
{
link(onExecute,6304782:doWork1,[])
}
Add(Memo,8268735,280,147)
{
Left=10
Top=35
Width=590
Height=565
ScrollBars=3
}


Редактировалось 1 раз(а), последний 2020-08-30 09:36:12
карма: 4

0
vip
#1.1контекстная реклама от партнеров
Ответов: 670
Рейтинг: 140
#2: 2020-08-30 13:31:57 ЛС | профиль | цитата
Sersey, попробуй использовать только VBJScript.
Add(MainForm,4378171,203,84)
{
Width=626
Height=643
}
Add(ChildPanel,6304782,371,140)
{
@Hint=#5:Прайс|
}
BEGIN_SDK
Add(EditMulti,13873045,21,21)
{
EventCount=2
WorkCount=1
Width=860
Height=655
link(doWork1,11410566:doEvent1,[(45,27)(45,202)])
}
Add(Panel,14000364,63,28)
{
Left=625
Top=15
Width=214
Height=144
Visible=1
Layout="parent.vert"
}
Add(FormatStr,15762674,315,119)
{
Mask="Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};\r\nDriverID=22;\r\nDBQ=%1;\r\nDefaultDir=%2;\r\nFirstRowWhasNames=1;\r\nReadOnly=true;\r\nScanRows=0;"
Point(FString)
link(Str2,16353759:Var2,[])
}
Add(OLEdb,3042347,175,280)
{
Point(onError)
link(onConnect,15799951:doCreate,[])
link(Driver,15762674:FString,[(181,186)(321,186)])
link(onError,6281013:doMessage,[(219,293)(219,314)(163,314)(163,335)])
}
Add(OLEdb_Session,15799951,238,280)
{
Point(onError)
link(onError,3395621:doMessage,[(278,293)(278,307)])
}
Add(FormatStr,5978579,427,287)
{
Mask="SELECT * FROM "%2"."%1$A4:D" "%1$";"
link(onFString,6949883:doQuery,[(471,293)(471,342)(226,342)(226,391)])
link(Str1,4870236:String,[])
link(Str2,16353759:Var3,[(440,103)])
}
Add(VBJScript,345803,315,210)
{
@Hint=#16:Query SQL Server|
WorkPoints=#6:doOpen|7:doSheet|7:doClose|
EventPoints=#8:onSheets|6:onOpen|
Script=#9:Dim strIn|5:Dim i|5:Dim j|12:Dim objExcel|11:Dim onExcel|0:|22:Sub doWork(Data,Index)|18: Select Case Index|15: Case "doOpen"|52: Set objExcel = CreateObject("Excel.Application")|52: Set objWorkbook = objExcel.Workbooks.Open (Data)|71: j = objWorkbook.Sheets.Count 'Узнаём количество листов|88: For i=1 To j 'Листы начинаются не с "0", а с "1" |86: strIn = objWorkbook.Sheets(i).Name 'Узнаём имя очередного листа |65: sys.onSheets strIn 'Выводим имя наружу|9: Next|17: sys.onOpen 1 |94: 'Case "doSheet" 'На вход подаётся строка, содержащая имя Листа|33: 'objExcel.Sheets(Data).Select|38: 'objExcel.ActiveSheet.Cells.Select|43: 'objExcel.Selection.NumberFormat = "@" |39: 'objExcel.ActiveWorkbook.Save() |17: Case "doClose"|17: objExcel.Quit|26: Set objExcel = Nothing|17: sys.onOpen 0 |0:|11: End Select|0:|7:End Sub|
UseName=0
link(onSheets,4870236:doAdd,[])
}
Add(Hub,45852,280,203)
{
OutCount=4
link(onEvent1,15762674:doString,[(304,209)(304,125)])
link(onEvent2,345803:doOpen,[])
link(onEvent3,345803:doClose,[(304,223)(304,230)])
link(onEvent4,7883240:doText,[(301,230)(301,244)])
}
Add(Hub,11410566,70,196)
{
OutCount=4
link(onEvent1,2139596:doValue,[(203,202)(203,62)])
link(onEvent2,45852:doEvent1,[])
link(onEvent3,3042347:doOpen,[(130,216)(130,286)])
link(onEvent4,5978579:doString,[(270,223)(270,244)(284,244)(284,293)])
}
Add(OLEdb_Query,6949883,238,385)
{
link(onQuery,9619184:doEvent1,[])
link(onColumns,9619184:doEvent2,[])
link(onError,11907218:doMessage,[(296,405)(296,440)])
link(dbSession,15799951:dbSession,[])
}
Add(GetDataEx,16353759,322,98)
{
link(Data,2139596:Value,[])
}
Add(StrList,4870236,406,210)
{
Point(String)
Point(doGetString)
}
Add(VisualStrings,7883240,364,238)
{
Lines=#1:0|
Width=18
Point(doText)
Point(onText)
link(onText,4870236:doGetString,[])
}
Add(Message,11907218,322,434)
{
Caption="3"
Icon=1
}
Add(Message,6281013,175,329)
{
Caption="1"
Icon=1
}
Add(Message,3395621,287,301)
{
Caption="2"
Icon=1
}
Add(Memory,2139596,322,56)
{
}
Add(MT_String,3709045,322,385)
{
link(onResult,13873045:onEvent1,[(618,391)(618,27)])
}
Add(Hub,9619184,287,385)
{
InCount=2
OutCount=1
link(onEvent1,3709045:doStr,[])
}
END_SDK
Add(Button,4982637,259,84)
{
Left=5
Top=5
Caption=" Open"
link(onClick,10622552:doExecute,[])
}
Add(ODialog,10622552,308,84)
{
link(onExecute,5432892:doWork,[])
}
Add(Memo,8268735,434,84)
{
Left=10
Top=35
Width=590
Height=565
ScrollBars=3
}
Add(VBJScript,5432892,371,84)
{
@Hint=#16:Query SQL Server|
WorkPoints=#6:doWork|
EventPoints=#6:onRead|7:onClear|
Script=#26:Dim strOut, intRow, intCol|0:|22:Sub doWork(Data,Index)|52: Set objExcel = CreateObject("Excel.Application")|52: Set objWorkbook = objExcel.Workbooks.Open (Data)|19: sys.onClear nil|4: |36: ' objExcel.Sheets("Лист1").Select|7: |55: intRow = 2 ' № строки с которой начнётся считывание|14: intCol = 1|4: |59: Do While Not IsEmpty(objExcel.Cells(intRow,1).Value) |69: Do While Not IsEmpty(objExcel.Cells(intRow,intCol).Value) |69: strOut = strOut & objExcel.Cells(intRow, intCol).Value & ";" |27: intCol = intCol + 1|14: Loop |25: sys.onRead strOut|14: strOut = "" |18: intCol = 1|27: intRow = intRow + 1|8: Loop|4: |17: objExcel.Quit|0:|7:End Sub|
UseName=0
link(onRead,8268735:doAdd,[])
link(onClear,8268735:doClear,[])
}


Редактировалось 3 раз(а), последний 2020-08-30 13:50:53
карма: 14

0
Ответов: 537
Рейтинг: 14
#3: 2020-08-30 13:51:53 ЛС | профиль | цитата
Не работает, проверял на 10-ке и на 7-ке. VBJScript у меня есть, рабочий, но он долго открывает и виснет. Нужно исправить для 10-ки ту схему, что я показал
карма: 4

0
Ответов: 670
Рейтинг: 140
#4: 2020-08-30 13:58:22 ЛС | профиль | цитата
Sersey, у меня Windows10-64, всё работает. Проверил несколько раз. У тебя Excel установлен на 10-ке?
карма: 14

0
Ответов: 537
Рейтинг: 14
#5: 2020-08-30 13:59:45 ЛС | профиль | цитата
Установлен Excel 2016
карма: 4

0
Ответов: 670
Рейтинг: 140
#6: 2020-08-30 14:04:19 ЛС | профиль | цитата
Вышли какой-нибудь небольшой свой файл excel, попробую у себя открыть.
карма: 14

0
Ответов: 537
Рейтинг: 14
#7: 2020-08-30 14:21:10 ЛС | профиль | цитата
https://yadi.sk/i/axEdZ29bCtDQvw
карма: 4

0
Ответов: 670
Рейтинг: 140
#8: 2020-08-30 15:25:36 ЛС | профиль | цитата
Sersey, ну у тебя и файл! Ни одного целого столбца. Проверяй.
Add(MainForm,4378171,343,84)
{
Width=626
Height=643
}
Add(ChildPanel,6304782,504,140)
{
@Hint=#5:Прайс|
}
BEGIN_SDK
Add(EditMulti,13873045,21,21)
{
EventCount=2
WorkCount=1
Width=860
Height=655
link(doWork1,11410566:doEvent1,[(45,27)(45,202)])
}
Add(Panel,14000364,63,28)
{
Left=625
Top=15
Width=214
Height=144
Visible=1
Layout="parent.vert"
}
Add(FormatStr,15762674,315,119)
{
Mask="Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};\r\nDriverID=22;\r\nDBQ=%1;\r\nDefaultDir=%2;\r\nFirstRowWhasNames=1;\r\nReadOnly=true;\r\nScanRows=0;"
Point(FString)
link(Str2,16353759:Var2,[])
}
Add(OLEdb,3042347,175,280)
{
Point(onError)
link(onConnect,15799951:doCreate,[])
link(Driver,15762674:FString,[(181,186)(321,186)])
link(onError,6281013:doMessage,[(219,293)(219,314)(163,314)(163,335)])
}
Add(OLEdb_Session,15799951,238,280)
{
Point(onError)
link(onError,3395621:doMessage,[(278,293)(278,307)])
}
Add(FormatStr,5978579,427,287)
{
Mask="SELECT * FROM "%2"."%1$A4:D" "%1$";"
link(onFString,6949883:doQuery,[(471,293)(471,342)(226,342)(226,391)])
link(Str1,4870236:String,[])
link(Str2,16353759:Var3,[(440,103)])
}
Add(VBJScript,345803,315,210)
{
@Hint=#16:Query SQL Server|
WorkPoints=#6:doOpen|7:doSheet|7:doClose|
EventPoints=#8:onSheets|6:onOpen|
Script=#9:Dim strIn|5:Dim i|5:Dim j|12:Dim objExcel|11:Dim onExcel|0:|22:Sub doWork(Data,Index)|18: Select Case Index|15: Case "doOpen"|52: Set objExcel = CreateObject("Excel.Application")|52: Set objWorkbook = objExcel.Workbooks.Open (Data)|71: j = objWorkbook.Sheets.Count 'Узнаём количество листов|88: For i=1 To j 'Листы начинаются не с "0", а с "1" |86: strIn = objWorkbook.Sheets(i).Name 'Узнаём имя очередного листа |65: sys.onSheets strIn 'Выводим имя наружу|9: Next|17: sys.onOpen 1 |94: 'Case "doSheet" 'На вход подаётся строка, содержащая имя Листа|33: 'objExcel.Sheets(Data).Select|38: 'objExcel.ActiveSheet.Cells.Select|43: 'objExcel.Selection.NumberFormat = "@" |39: 'objExcel.ActiveWorkbook.Save() |17: Case "doClose"|17: objExcel.Quit|26: Set objExcel = Nothing|17: sys.onOpen 0 |0:|11: End Select|0:|7:End Sub|
UseName=0
link(onSheets,4870236:doAdd,[])
}
Add(Hub,45852,280,203)
{
OutCount=4
link(onEvent1,15762674:doString,[(304,209)(304,125)])
link(onEvent2,345803:doOpen,[])
link(onEvent3,345803:doClose,[(304,223)(304,230)])
link(onEvent4,7883240:doText,[(301,230)(301,244)])
}
Add(Hub,11410566,70,196)
{
OutCount=4
link(onEvent1,2139596:doValue,[(203,202)(203,62)])
link(onEvent2,45852:doEvent1,[])
link(onEvent3,3042347:doOpen,[(130,216)(130,286)])
link(onEvent4,5978579:doString,[(270,223)(270,244)(284,244)(284,293)])
}
Add(OLEdb_Query,6949883,238,385)
{
link(onQuery,9619184:doEvent1,[])
link(onColumns,9619184:doEvent2,[])
link(onError,11907218:doMessage,[(296,405)(296,440)])
link(dbSession,15799951:dbSession,[])
}
Add(GetDataEx,16353759,322,98)
{
link(Data,2139596:Value,[])
}
Add(StrList,4870236,406,210)
{
Point(String)
Point(doGetString)
}
Add(VisualStrings,7883240,364,238)
{
Lines=#1:0|
Width=18
Point(doText)
Point(onText)
link(onText,4870236:doGetString,[])
}
Add(Message,11907218,322,434)
{
Caption="3"
Icon=1
}
Add(Message,6281013,175,329)
{
Caption="1"
Icon=1
}
Add(Message,3395621,287,301)
{
Caption="2"
Icon=1
}
Add(Memory,2139596,322,56)
{
}
Add(MT_String,3709045,322,385)
{
link(onResult,13873045:onEvent1,[(618,391)(618,27)])
}
Add(Hub,9619184,287,385)
{
InCount=2
OutCount=1
link(onEvent1,3709045:doStr,[])
}
END_SDK
Add(Button,4982637,399,84)
{
Left=5
Top=5
Caption=" Open"
link(onClick,10622552:doExecute,[])
}
Add(ODialog,10622552,448,84)
{
link(onExecute,5432892:doWork,[])
}
Add(Memo,8268735,553,84)
{
Left=10
Top=35
Width=590
Height=565
ScrollBars=3
link(Str,14068702:Text,[])
}
Add(VBJScript,5432892,497,84)
{
@Hint=#16:Query SQL Server|
WorkPoints=#6:doWork|
EventPoints=#6:onRead|7:onClear|
Script=#22:Sub doWork(Data,Index)|52: Set objExcel = CreateObject("Excel.Application")|52: Set objWorkbook = objExcel.Workbooks.Open (Data)|19: sys.onClear nil|4: |38: objExcel.Sheets("Лист1").Cells.Copy|33: objExcel.DisplayAlerts = False|18: sys.onRead nil |3: |17: objExcel.Quit|0:|7:End Sub|
UseName=0
link(onRead,8268735:doAdd,[])
link(onClear,8268735:doClear,[])
}
Add(Clipboard,14068702,553,35)
{
}


Редактировалось 2 раз(а), последний 2020-08-30 15:35:23
карма: 14

0
Ответов: 537
Рейтинг: 14
#9: 2020-08-30 15:56:02 ЛС | профиль | цитата
Работает и быстро открывается. Спасибо, годится.

Редактировалось 2 раз(а), последний 2020-08-30 16:08:46
карма: 4

0
Ответов: 670
Рейтинг: 140
#10: 2020-08-30 16:22:06 ЛС | профиль | цитата
Sersey, перенос сразу в таблицу.

Add(Label,15711866,56,84)
{
Width=610
Height=35
Align=2
Caption=""
AutoSize=1
}
Add(MainForm,4378171,182,84)
{
Width=626
Height=643
}
Add(Button,4982637,238,84)
{
Left=5
Top=5
Caption=" Open"
link(onClick,10622552:doExecute,[])
}
Add(ODialog,10622552,287,84)
{
link(onExecute,5432892:doWork,[])
}
Add(VBJScript,5432892,336,84)
{
@Hint=#16:Query SQL Server|
WorkPoints=#6:doWork|
EventPoints=#6:onRead|7:onClear|
Script=#22:Sub doWork(Data,Index)|52: Set objExcel = CreateObject("Excel.Application")|52: Set objWorkbook = objExcel.Workbooks.Open (Data)|19: sys.onClear nil|4: |38: objExcel.Sheets("Лист1").Cells.Copy|33: objExcel.DisplayAlerts = False|18: sys.onRead nil |3: |17: objExcel.Quit|0:|7:End Sub|
UseName=0
link(onRead,8431210:doConvert,[])
}
Add(Clipboard,14068702,392,35)
{
}
Add(MTStrTbl,911494,119,84)
{
Top=35
Width=610
Height=569
Align=5
Name="Tabl"
}
Add(MST_Load,16380463,448,77)
{
Delimiter="\t"
MSTControl="Tabl"
link(onLoadFromStream,13279101:doEvent1,[])
}
Add(DoData,6691139,581,84)
{
Data=String()
link(onEventData,14068702:doPutText,[(620,90)(620,27)(382,27)(382,41)])
}
Add(StreamConvertor,8431210,392,84)
{
Mode=7
Point(Data)
link(onResult,16380463:doLoadFromStream,[])
link(Data,14068702:Text,[])
}
Add(MST_ColAction,13742514,532,91)
{
Action=9
Index=-2
MSTControl="Tabl"
}
Add(Hub,13279101,497,84)
{
link(onEvent1,6691139:doData,[])
link(onEvent2,13742514:doColAction,[])
}

карма: 14

0
Ответов: 537
Рейтинг: 14
#11: 2020-08-30 16:48:31 ЛС | профиль | цитата
Это я сам разобрался. А как на точку doSheet предать имя листа для открытия? Сам пытаюсь сделать, пока не получается.
карма: 4

0
Ответов: 670
Рейтинг: 140
#12: 2020-08-30 16:58:14 ЛС | профиль | цитата
Sersey писал(а):
А как на точку doSheet предать имя листа для открытия?

Add(Label,15711866,154,133)
{
Width=610
Height=35
Align=2
Caption=""
AutoSize=1
}
Add(MainForm,4378171,280,133)
{
Width=626
Height=643
}
Add(Button,4982637,336,133)
{
Left=5
Top=5
Caption=" Open"
link(onClick,10622552:doExecute,[])
}
Add(ODialog,10622552,385,133)
{
link(onExecute,5432892:doWork,[])
}
Add(VBJScript,5432892,441,133)
{
@Hint=#16:Query SQL Server|
WorkPoints=#6:doWork|
EventPoints=#6:onRead|7:onClear|
DataPoints=#9:sheetName|
Script=#12:Dim objExcel|22:Sub doWork(Data,Index)|52: Set objExcel = CreateObject("Excel.Application")|52: Set objWorkbook = objExcel.Workbooks.Open (Data)|19: sys.onClear nil|4: |42: objExcel.Sheets(sys.sheetName).Cells.Copy|31: objExcel.DisplayAlerts = False|15: sys.onRead nil|14: objExcel.Quit|24: Set objExcel = Nothing |0:|7:End Sub|
UseName=0
link(onRead,8431210:doConvert,[])
link(sheetName,14887572:Text,[])
}
Add(Clipboard,14068702,504,84)
{
}
Add(MTStrTbl,911494,217,133)
{
Top=35
Width=610
Height=569
Align=5
Name="Tabl"
}
Add(MST_Load,16380463,560,126)
{
Delimiter="\t"
MSTControl="Tabl"
link(onLoadFromStream,13279101:doEvent1,[])
}
Add(DoData,6691139,693,133)
{
Data=String()
link(onEventData,14068702:doPutText,[(732,139)(732,76)(494,76)(494,90)])
}
Add(StreamConvertor,8431210,504,133)
{
Mode=7
Point(Data)
link(onResult,16380463:doLoadFromStream,[])
link(Data,14068702:Text,[])
}
Add(MST_ColAction,13742514,644,140)
{
Action=9
Index=-2
MSTControl="Tabl"
}
Add(Hub,13279101,609,133)
{
link(onEvent1,6691139:doData,[])
link(onEvent2,13742514:doColAction,[])
}
Add(Edit,14887572,441,77)
{
Left=75
Top=5
Width=75
Text="Лист1"
}


Редактировалось 1 раз(а), последний 2020-08-31 08:19:45
карма: 14

1
Голосовали:Sersey
Ответов: 537
Рейтинг: 14
#13: 2020-08-30 17:26:19 ЛС | профиль | цитата
Отлично, спасибо
карма: 4

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