{"id":468,"date":"2008-05-06T07:13:20","date_gmt":"2008-05-06T07:13:20","guid":{"rendered":"http:\/\/6teen.ru\/?p=516"},"modified":"2008-05-06T07:13:20","modified_gmt":"2008-05-06T07:13:20","slug":"6322-2","status":"publish","type":"post","link":"http:\/\/pblog.ru\/lab\/?p=468","title":{"rendered":"\u041a\u0430\u043a \u044d\u043a\u0441\u043f\u043e\u0440\u0442\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0434\u0430\u043d\u043d\u044b\u0435 \u0432 Excel"},"content":{"rendered":"<p>\u041a\u0430\u043a \u044d\u043a\u0441\u043f\u043e\u0440\u0442\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0434\u0430\u043d\u043d\u044b\u0435 \u0432 Excel<br \/>\n<!--more--><\/p>\n<pre class=\"alt2\" style=\"margin:0px; padding:6px; border:1px inset; width:580px; height:320px; overflow:auto\"><div>\u041a\u0430\u043a \u044d\u043a\u0441\u043f\u043e\u0440\u0442\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0434\u0430\u043d\u043d\u044b\u0435 \u0432 Excel\n\n\u0412 \u043b\u044e\u0431\u043e\u043c \u0441\u043b\u0443\u0447\u0430\u0435 \u043f\u0435\u0440\u0432\u043e\u043d\u0430\u0447\u0430\u043b\u044c\u043d\u043e \u0434\u0430\u043d\u043d\u044b\u0435 \u043e\u0442\u043e\u0431\u0440\u0430\u0436\u0430\u0435\u043c \u0432 \u0433\u0440\u0438\u0434\u0435.\n\u0410 \u044d\u043a\u0441\u043f\u043e\u0440\u0442\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u043c\u043e\u0436\u043d\u043e \u043e\u0447\u0435\u043d\u044c \u043b\u0435\u0433\u043a\u043e:\n\nProcedure SendtoExcel(ShFile: String; Querys: TQuery);\nVar\n   ExcelApp, Workbook, Range, Cell1, Cell2, ArrayData: Variant;\n   BeginCol, BeginRow, j: integer;\n   RowCount, ColCount: Integer;\nBegin\n   BeginCol := 1;\n   BeginRow := 3;\n   RowCount := Querys.RecordCount;\n   ColCount := Querys.FieldDefs.Count;\n   ExcelApp := CreateOleObject('Excel.Application');\n   ExcelApp.Application.EnableEvents := false;\n   Workbook := ExcelApp.WorkBooks.Add(ShFile);\n   ArrayData := VarArrayCreate([1, RowCount, 1, ColCount], varVariant);\n   Querys.DisableControls;\n   Querys.First;\n   While Not Querys.eof Do\n   Begin\n       For J := 1 To Querys.FieldDefs.Count Do\n       Begin\n           ArrayData[Querys.RecNo, J] :=\n            Querys.FieldbyName(Querys.FieldDefs.Items[j - 1].DisplayName).value;\n       End;\n       Querys.Next;\n   End;\n   Querys.EnableControls;\n   Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];\n   Cell2 := WorkBook.WorkSheets[1].Cells[BeginRow + RowCount - 1,\n    BeginCol + ColCount - 1];\n   Range := WorkBook.WorkSheets[1].Range[Cell1, Cell2];\n   Range.Value := ArrayData;\n   ExcelApp.Visible := True;\nEnd;\n<\/div><\/pre>\n<p><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u041a\u0430\u043a \u044d\u043a\u0441\u043f\u043e\u0440\u0442\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0434\u0430\u043d\u043d\u044b\u0435 \u0432 Excel<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[417,434],"tags":[1891,211,1872],"_links":{"self":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/468"}],"collection":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=468"}],"version-history":[{"count":0,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/468\/revisions"}],"wp:attachment":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=468"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=468"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=468"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}