Excel ЧаВо



              

Как узнать имена всех открытых книг?


Узнать имена всех книг экземпляра Excel.Application можно в цикле, например, так:

Delphi:

for i := 1 to XL.Workbooks.Count do

XL.Assistant.DoAlert('Книга', XL.Workbooks[i].Name, msoAlertButtonOK, msoAlertIconInfo, msoAlertDefaultFirst, msoAlertCancelDefault, False); // а вот так имя книги с полным путем к ней (свойство FullName)

for i := 1 to XL.Workbooks.Count do

XL.Assistant.DoAlert('Книга', XL.Workbooks[i].FullName[lcid], msoAlertButtonOK, msoAlertIconInfo, msoAlertDefaultFirst, msoAlertCancelDefault, False);

C#:

int R = 0; foreach (Excel.Workbook WB in XL.Workbooks) { oSheet.get_Range("A1", Type.Missing).get_Offset(R, 0).Formula = WB.FullName; R++; }




Содержание  Назад  Вперед