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
|