Каждый раз новая таблица на каждый новый день

@durst · Регистрация: 25.11.2010

Студворк — интернет-сервис помощи студентам

Есть "таблица", я вношу в неё данные, сохраняю, закрываю. На следующий день, допустим, Я открываю этот документ, но "таблица" должна быть пустой (в данном случае от числовых данных) и стоит текущая дата, выбираю вчерашнюю дату (дата должна выбираться из календаря) и в "таблице" появляются вчерашние данные (которые я вчера внёс в "таблицу").
Как это сделать? Куда и как (по средствам чего) я должен сохранять данные ("таблица" заполняется каждый день, со временем данных (числовых) будет много)?

@durst · 31.01.2014, 05:52 **[ТС]**

добавил комментарии. должно получиться по аналогии с "ПК.xls" (см. вложение выше), весь код скопирован от туда.

Пиши в текстовик

И всё таки я хочу реализовать именно этот вариант.

Сузим рамки. допустим на листе "b" начиная с ячейки B4 в строчку (в каждой ячейки) занесены данные в виде адресов ячеек. На листе "а" начиная с этой же ячейки так же в строчку записаны данные (значения ячеек с "таблицы" на листе "1").
я предполагаю что нужно использовать цикл While wend:

Visual Basic
1
2
3
4
While <пока значение ячейки на листе "b" не пусто>
         <здесь нужно взять значение ячейки с листа "b", а значением будет адрес>
         <далее, присваивается значение ячейки с листа "а" в ячейку (адрес ячейки должен быть тот, который получили выше) "таблицы" на листе "1">
      Wend

Вот что я хочу.

@Alex77755 · 31.01.2014, 13:11

Как определять диапазон вариантов много.
На примере явного указания сохраняемаого диапазона навскидку как-то так:

Visual Basic
1
2
3
4
5
6
7
8
Else
    ftr = r.Row
    Open ActiveWorkbook.Path & "\" & ftr & ".txt" For Output As 1
        For Each c In Worksheets("1").Range("A9:K27,N10:X27,L10:M26") 'здесь надо переделать, используя адреса с листа "b" и данные с листа "а" заносить их в таблицу
            Print #1, c.Address, c.Value
        Next c
    Close #1
End Sub

Я думаю, что в файл лучше записать и адреса ячеек данных. Это поможет использовать данные если поменяеются диапазоны.
В имени файла тоже возможно придётся добавить какой-то идентификатор кроме номера строки.
Но не вникая в структуру ваших данных не могу сказать более конкретно

@durst · 03.02.2014, 07:57 **[ТС]**

Хорошо, допустим я записал в файл, как потом считать с файла адреса и данные.
как распределить эти данные по адресам? меня именно это интересует.

@Alex77755 · 03.02.2014, 11:09

Работа с файлами
Файловые операции
Готовые решения и полезные коды на Visual Basic 6.0
Доступ к файлам
Работа с файлами
Как сохранить значения включенных флажков при закрытии программы
Получить название двух самых дешевых игрушек из файла
В поиске забанили?
Считываешь, разбиваешь, заносишь
Или сразу считываешь и заносишь. Как удобно

Добавлено через 10 минут
самое примитивное:

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub sdf()
Dim C As Range, ftr, FIL
ftr = 5
FIL = ActiveWorkbook.Path & "\" & ftr & ".txt"
    Open FIL For Output As 1
        For Each C In Worksheets(1).Range("A9:K27,N10:X27,L10:M26") 'здесь надо переделать, используя адреса с листа "b" и данные с листа "а" заносить их в таблицу
            Print #1, C.Address
            Print #1, C.Value
        Next C
    Close #1
End Sub
 
Sub sdf2()
Dim ADR, VL
Dim ftr, FIL
ftr = 5
Cells.ClearContents
FIL = ActiveWorkbook.Path & "\" & ftr & ".txt"
Open FIL For Input As 1
Do While Not EOF(1)
Input #1, ADR, VL: Range(ADR) = VL
Loop
Close
End Sub

@durst · 04.12.2017, 08:52 **[ТС]**

Здравствуйте. Снова нужна помощь. Решил отойти от встроенного календаря (Calendar1) и пользоваться самописным (slancalendar).
Ума не приложу куда можно подставить код из Calendar1 в slancalendar, и ещё нужно изменить Module2.
Может кто направит??

Новые блоги и статьи Все статьи Все блоги /
Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .	FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .

@durst 16 / 15 / 2 Регистрация: 25.11.2010 Сообщений: 145
	03.02.2014, 07:57 [ТС]
	Хорошо, допустим я записал в файл, как потом считать с файла адреса и данные. как распределить эти данные по адресам? меня именно это интересует. 0