Открыт ли файл Excel

← →
Irisss (2010-08-11 09:23) [0]

Здравствуйте,

Не могу найти нужного свойства. Требуется узнать открыт ли файл с указанным именем XlsFileName, и если открыт то активировать эту книгу Workbook

ExcelApp := CreateOleObject("Excel.Application"); ExcelApp.Visible := false; ExcelApp.Application.EnableEvents := false; if Self.SaveDialog.Execute(Self.ParentWindow) then begin XlsFileName := ChangeFileExt(Self.SaveDialog.Files[0], ".xls"); if FileExists( XlsFileName ) then Workbook := ExcelApp.WorkBooks.Open( XlsFileName ) else begin Workbook := ExcelApp.WorkBooks.Add; Workbook.SaveAs(XlsFileName); end; FindSheet := False; SheetName := TDataFormat.getOnlyFileName(Self.FCaption); for I := 1 to Workbook.WorkSheets.Count do begin if ( Workbook.WorkSheets[ I ].Name = SheetName ) then begin Sheet := Workbook.WorkSheets[ I ]; FindSheet := True; end else Sheet := Workbook.ActiveSheet; end; end;

как можно пройти по открытым книгам или как-то еще решить эту задачку?

← →
Irisss (2010-08-11 12:07) [1]

Workbook := -1; for iWorkBook := 1 to ExcelApp.WorkBooks.Count do begin if ( ExcelApp.WorkBooks.Item[iWorkBook].FullName = XlsFileName ) then begin Workbook := ExcelApp.WorkBooks.Item[iWorkBook]; Break; end; end;

Такой вариант почему-то не работает, даже не заходит в цикл

← →
12 © (2010-08-11 13:30) [2]

предположить, что он открыт и ловить исключение?

← →
Irisss (2010-08-11 14:25) [3]

Опишу задачу:
Есть данные, которые нужно добавлять в xls-файл, если он существует, если нет - то при этом еще и создавать файл.
Все хорошо, но оказалась такая ситуация, когда нужно дописать в существующий файл, который уже открыт.
Показанный выше код открывает еще раз этот файл, а потом спрашивает, как сохранять. Кроме того, еще на панели висит куча одинаковых файлов, которые как минимум раздражают.
Помогите советом.

Спасибо

← →
KilkennyCat © (2010-08-11 14:34) [4]

непомню, есть ли признаки открытого файла в системе, вроде бы, если и есть, то не у fat32 и ниже... поэтому, если не думать о чем-то на таком уровне, то варианты такие:
поиск открытых окон екселя и чтение их заголовков - там вроде есть имя файла
добавление макроса, который при открытии пишет че-нить в куда-нить.

← →
Andy BitOff © (2010-08-11 14:38) [5]

Если мне не изменяет память, то как-то уже обсуждали, поищи на delphimaster.net
Вроде там пришли к мнению, что надо попробовать переименовать и если ошибка, то открыт.

← →
Anatoly Podgoretsky © (2010-08-11 21:33) [6]

> Irisss (11.08.2010 14:25:03) [3]

А ты попробуй открыть файл с одинаковым именем, Эксель это не позволяет даже
для канонических имен.

← →
ixen (2010-08-12 13:49) [7]

можно использовать хитрый способ... файл который нужно обновлять сохраняй в формате шаблона *.dot ... юзер будет открывть файл но сам шаблон останется не заблокированным и его можно будет спокойно обновлять.. только юзеру придется его переодически переоткрывать чтобы видеть все изменения...

> сохраняй в формате шаблона *.dot

xlt

> можно использовать хитрый способ... файл который нужно обновлять
> сохраняй в формате шаблона *.dot ... юзер будет открывть
> файл но сам шаблон останется не заблокированным и его можно
> будет спокойно обновлять.. только юзеру придется его переодически
> переоткрывать чтобы видеть все изменения...

интересно..мне тоже надо,
надо попробовать будет так

← →
ixen (2010-08-13 06:34) [10]

> [8] Dennis I. Komarov

да xlt... ошибся

Открыт ли файл Excel Найти похожие ветки