Файлы

Встроить в форму существующий файл Excel можно многими способами - всё зависит то того, как Вы хотите видеть этот файл на своей форме? Поскольку точно это не описано, то я понимаю, что содержимое файла должно отображаться на экране и при желании редактироваться. Сделать это очень просто с помощью объекта OLE:

1.Создаём стандартную форму.
2.На ToolBox'e выбираем инструмент OLE и создаём окно на форме.
3.Как только Вы отпустите мышку, тут же появится диалоговое окно "Insert Object" (Ввести объект).
4.Слева выбираем CheckBox "Create from file" (Создать из файла) и выбирете нужный файл. Настоятельно рекомендую создать резеpвную копию вашего XLS-файла.
5.Если Вы хотели бы видеть в окне весь файл, то в свойствах окна OLE1 свойство SizeMode установите равным 2 (AutoSize).
6.Это всё! Чтобы активизировать таблицу, кликните на неё два раза. На форме появится меню, позволяющее редактировать файл.
7. Чтобы сохранить внесённые изменения создайте командную кнопку. Переименуйте имя кнопки Command1 в cmdSaveToFile

Private Sub cmdSaveToFile_Click()
    'открываем файл, как двоичный
    Open OLE1.SourceDoc For Binary As #1
            'сохраняем в файл
        OLE1.SaveToFile 1
        'закрываем файл
    Close #1
End Sub

А в событие Form_Load нужно вписать следующий код, чтобы при загрузке формы файл загружался в созданный OLE-контейнер:

Private Sub Form_Load()
    'открываем файл, как двоичный
  Open OLE1.SourceDoc For Binary As #1
        'считываем мз файла
        OLE1.ReadFromFile 1
   'закрываем файл
    Close #1
End Sub

Важно: при применении следующих процедур формат XLS-файла будет изменён и Вы не сможете больше открыть и редактировать его с помощью приложения Excel, а только с помощью вашей программы!

Могу также предложить второй способ использования существующего файла Excel в своей форме:

1.Создаём стандартную форму.
2.На ToolBox'e выбираем инструмент OLE и создаём окно на форме.
3.Как только Вы отпустите мышку, тут же появится диалоговое окно "Insert Object" (Ввести объект).
4.Слева выбираем CheckBox "Create from file" (Создать из файла)и выбирете нужный файл, но не кликайте на ОК!
5.Теперь следует выбрать CheckBox либо "Link" (Ярлык), либо "Display As Icon" (Отображать как символ). При выборе "Link" в окне OLE будет отображаться содержание файла и при двойном клике будет открываться желаемый файл как обычно - через Excel. При выборе "Display As Icon" на вашей форме будет также ярлык к файлу, но в виде иконки.
6.Чтобы при загрузке отображалось каждый раз новое содержания файла в событие Form_Load введите:

Private Sub Form_Load()
     OLE1.Update
End Sub

  Назад

                      Необходимо создавать автоматом каждый день log-file типа: 20000102.log 

1.Установите таймер, интервал 1000.

2. В таймер пишите:

If Time = "00:00:00" Then ' если Вы в Америке, то строка 
                          'должна быть "0:00:00 AM"
     Open Format(Date; "yyyymmdd") & ".log" For Output As #1
          Print #1, 'теперь печатаете в лог всё, что хотите...
     Close

End If

  Назад