le10. Fields [14]. AsString;: = Form1.ADOTable10. Fields [15]. AsString;: = Form1.ADOTable10. Fields [16]. AsString;: = Form1.ADOTable10. Fields [17]. AsString;: = Form1.ADOTable10. Fields [23]. AsString;: = Form1.ADOTable10. Fields [18]. AsString;: = Form1.ADOTable10. Fields [24]. AsString;: = Form1.ADOTable10. Fields [19]. AsString;: = Form1.ADOTable10. Fields [25]. AsString;: = Form1.ADOTable10. Fields [20]. AsInteger;: = Form1.ADOTable10. Fields [26]. AsInteger;: = Form1.ADOTable10. Fields [21]. AsInteger;: = Form1.ADOTable10. Fields [27]. AsInteger;: = Form1.ADOTable10. Fields [22]. AsExtended;: = Form1.ADOTable10. Fields [28]. AsExtended;: = Form1.ADOTable10. Fields [35]. AsString;: = Form1.ADOTable10. Fields [36]. AsString;: = Form1.ADOTable10. Fields [37]. AsString;: = Form1.ADOTable10. Fields [33]. AsString;: = Form1.ADOTable10. Fields [38]. AsString;: = Form1.ADOTable10. Fields [39]. AsString;: = Form1.ADOTable10. Fields [40]. AsString;: = Form1.ADOTable10. Fields [41]. AsString;: = Form1.ADOTable10. Fields [42]. AsString;: = 'C: Program Files URA putevoy.xlt';: = 1;: = 13;: = Form1.ADOTable10. RecordCount;: = Form1.ADOTable10. FieldDefs. Count;: = CreateOleObject ('Excel. Application');. Application. EnableEvents: = false;: = ExcelApp. WorkBooks. Add (ShFile);: = VarArrayCreate ([1, RowCount, 1, ColCount], varVariant);: = WorkBook. WorkSheets [5]. Cells [4,66];. Value: = NPL;: = WorkBook. WorkSheets [5]. Cells [1,22];. Value: = Otm;: = WorkBook. WorkSheets [5]. Cells [6,35];. Value: = DataV;: = WorkBook. WorkSheets [5]. Cells [7,35];. Value: = DataZ;: = WorkBook. WorkSheets [5]. Cells [8,17];. Value: = O;: = WorkBook. WorkSheets [5]. Cells [11,32];. Value: = Marka;: = WorkBook. WorkSheets [5]. Cells [12,35];. Value: = GN;: = WorkB ook. WorkSheets [5]. Cells [13,13];. Value: = FIOP;: = WorkBook. WorkSheets [5]. Cells [15,19];. Value: = NVod;: = WorkBook. WorkSheets [5]. Cells [15,48];. Value: = Kl;: = WorkBook. WorkSheets [5]. Cells [28,31];. Value: = VremyaV;: = WorkBook. WorkSheets [5]. Cells [33,33];. Value: = VremyaZ;: = WorkBook. WorkSheets [5]. Cells [27,58];. Value: = T;: = WorkBook. WorkSheets [5]. Cells [17,17];. Value: = VR1;: = WorkBook. WorkSheets [5]. Cells [25,1];. Value: = 'по місту';: = WorkBook. WorkSheets [5]. Cells [30,30];. Value: = D;: = WorkBook. WorkSheets [5]. Cells [34,28];. Value: = D;: = WorkBook. WorkSheets [5]. Cells [19,66];. Value: = M;: = WorkBook. WorkSheets [5]. Cells [41,26];. Value: = Vod;: = WorkBook. WorkSheets [5]. Cells [24,68];. Value: = Vod;: = WorkBook. WorkSheets [5]. Cells [44,66];. Value: = M;: = WorkBook. WorkSheets [5]. Cells [17,73];. Value: = SP1;: = WorkBook. WorkSheets [5]. Cells [43,72];. Value: = SP2;: = WorkBook. WorkSheets [5]. Cells [20,1];. Value: = OrS;. Worksheets. Item [5]. PrintOut;. DisplayAlerts: = False;. Quit;;. ADOTable10. Next;;; TForm7. Button2Click (Send...
