 |
Открытие существующей книги
Используя раннее связывание
var
IWorkbook: Excel8TLB._Workbook;
Filename: string;
...
Filename := 'C:\Test.xls';
IWorkbook := IExcel.Workbooks.Open(Filename, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, false, xlLCID);
Вот как описан метод Open в импортированной библиотеке типов:
function Open(const Filename: WideString; UpdateLinks: OleVariant; ReadOnly: OleVariant;
Format: OleVariant; Password: OleVariant; WriteResPassword: OleVariant;
IgnoreReadOnlyRecommended: OleVariant; Origin: OleVariant;
Delimiter: OleVariant; Editable: OleVariant; Notify: OleVariant;
Converter: OleVariant; AddToMru: OleVariant; lcid: Integer): Workbook; safecall;
Что вам из всего этого может понадобиться:
- FileName
Имя открываемого файла, желательно с полным путем, иначе Excel
будет искать этот файл в каталоге по умолчанию;
- AddToMru
True - если необходимо запомнить файл в списке последних открытых файлов;
- IgnoreReadOnlyRecommended
Если файл рекомендован только для чтения, то при открытии Excel выдает
соответствующее предупреждение. Чтобы его игнорировать, передайте в
качестве данного параметра True.
Используя позднее связывание
При позднем связывании не нужно указывать все дополнительные параметры или LCID,
можно просто написать вот так:
var
Workbook: OLEVariant;
...
Workbook := Excel.WorkBooks.Open('C:\Test.xls');
Примечание:
Если вы хотите получше узнать метод Open, например, как с его помощью открывать файлы
текстовых форматов с разделителями, воспользуйтесь "пишущим" плеером VBA.
Запишите макросы, а затем поправьте их по необходимости.
|
|
