Workbooks.Add
ActiveSheet.Name = Date Cells(2, 1).Value = "¹"; Cells(2, 2).Value = "Äåíü íåäåëè"; Cells(2, 3).Value = "Íà÷àëî òðåíèðîâîê"; Cells(2, 4).Value = "Íàïðàâëåíèå"; Cells(2, 5).Value = "Âèä íàãðóçîê"; '  íîâîì ôàéëå ñîçäàåì "øàïêó"; ÍîìåðÑòðîêè = 3 For j = 1 To ÊîëÇàïèñåé; Cells(ÍîìåðÑòðîêè, 1).Value = ÍîìåðÑòðîêè - 2 Cells(ÍîìåðÑòðîêè, 2).Value = OurTable(j).Day Cells(ÍîìåðÑòðîêè, 3).Value = OurTable(j).Time Cells(ÍîìåðÑòðîêè, 4).Value = OurTable(j).Class Cells(ÍîìåðÑòðîêè, 5).Value = OurTable(j).Look ÍîìåðÑòðîêè = ÍîìåðÑòðîêè + 1 Next j
|
