Как лучше встроить в мою форму
существующий файл Еxcel ? Закрывать, открывать,
работать с VBA.
Встроить в форму
существующий файл 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
ОБСУДИТЬ СТАТЬЮ
НА ФОРУМЕ