Вывести excel на передний план

Excel.Application

Excel Range Object

Как загрузить новый экземпляр Excel или подключиться к запущенному экземпляру EXCEL.EXE? Как отсоединиться от Excel и закрыть его экземпляр?

Для определения, будет ли запущен новый экземпляр Excel.Application или присоединение к уже запущенному, используется свойство TExcelApplication.ConnectKind. По умолчанию это свойство имеет значение ckRunningOrNew (константы определены в unit OleServer). Однако рекомендуется, если нет на то особой надобности, всегда запускать новый экземпляр Excel.Application во избежание конфликтов с запущенным раннее экземпляром Excel.Application. Свойство TExcelApplication.AutoQuit в конструкторе устанавливается по умолчанию в False (только в модуле ExcelXP в True) — это значит, что если вы хотите при отсоединении завершить работу Excel (закрыть), то нужно вызвать метод TExcelApplication.Quit или установить свойство TExcelApplication.AutoQuit равным True.

Delphi:

var
  XL: TExcelApplication;
begin
  // запускаем новый экземпляр Excel'я
  XL := TExcelApplication.Create(nil);
  try

    XL.ConnectKind := ckNewInstance;
    XL.Connect; // подключение
    XL.AutoQuit := False; // по умолчанию это свойство True только в unit ExcelXP
    XL.Visible[lcid] := True;
    // здесь работаем с Excel'ем
  finally
    // отсоединяемся

    XL.UserControl := True; // отдадим управление пользователю
    XL.Quit; // закрыть Excel
    XL.Disconnect;
    FreeAndNil(XL);
  end;

C#:

private Excel.Application StartExcel(bool asNewInstance)
{
	Excel.Application XL = null;
	if (!(asNewInstance)) {
		try {
			XL = System.Runtime.InteropServices.Marshal.GetActiveObject("Excel.Application")
				as Excel.Application;
		}
		catch {
			// XL = null;
		}
	}
	if (XL == null) XL = new Excel.Application();
	if (XL.Workbooks.Count == 0) XL.Workbooks.Add(Type.Missing);
	XL.Visible = true;
	return XL;
}
private void FinishExcel(Excel.Application XL)
{
	if (XL != null) {
		XL.ScreenUpdating = true;
		if (! XL.Interactive) XL.Interactive = true;
		XL.UserControl = true;
		if (XL.Workbooks.Count == 0) {
			XL.Quit();
		}
		else {
			if (! XL.Visible) XL.Visible = true;
			XL.ActiveWorkbook.Saved = true;
		}
		// System.Runtime.InteropServices.Marshal.ReleaseComObject(XL);
		XL = null;
		GC.GetTotalMemory(true); // вызов сборщика мусора
		// Пока не закрыть приложение EXCEL.EXE будет висеть в процессах
	}
}

How to automate Microsoft Excel from Microsoft Visual C# .NET

How to use Visual C# to automate a running instance of an Office program

GC.GetTotalMemory Method

GC Class

Как запустить Excel из консольного приложения или в отдельном потоке (TThread)

Консольное приложение и дочерний поток (класс TThread) не предполагают работу с COM сервером, как это сделано в главном потоке для Application в VCL. Для того чтобы все работало, необходим вызов функции WinAPI CoInitialize.

{$APPTYPE CONSOLE} // для консольного приложения
var
  NeedToUninitialize: Boolean;
…
begin
//  NeedToUninitialize := Succeeded(CoInitialize(nil));
  NeedToUninitialize := Succeeded(CoInitializeEx(nil, COINIT_MULTITHREADED));
  try

    // здесь работаем с Excel'ем
  finally
    if NeedToUninitialize then CoUninitialize;
  end;
end.

Отличие при работе в Thread — весь код работы должен быть помещен в метод TThread.Execute.

Для C# ничего дополнительно вызывать не нужно — все работает, что для WinForms, что для Console, что для объекта класса Thread().

CoInitializeEx

OleInitialize

Как получить и настроить папки Excel по умолчанию?

По умолчанию все открываемые и сохраняемые документы находятся в папке «%USERPROFILE%Мои документы» (Personal). Ссылка на эту папку содержится в свойстве TExcelApplication.DefaultFilePath (read/write). Для чтения и записи в другие папки используйте полный путь к файлу книги.

Delphi:

(XL.ActiveSheet as _Worksheet).Range['A1', EmptyParam].Formula :=
      Format('DefaultFilePath: %s', [XL.DefaultFilePath[lcid]]);

DefaultFilePath Property

How to: Set the Default Save Path for Workbooks

Чем отличается TExcelApplication от ExcelApplication, TExcelWorkbook от ExcelWorkbook?

Все отличие TExcelApplication от ExcelApplication в том, что первый — наследник TOleServer. Это расширяет возможности для выбора способа подключения/отключения COM-сервера Excel и упрощает работу с событиями Excel.Application. Получить интерфейс ExcelApplication всегда можно из свойства TExcelApplication.DefaultInterface (DefaultInterface — штатное свойство всех наследников класса ToleServer).

Как узнать локализацию Excel’я (русская версия или нет)?

Для Delphi это можно почитать здесь.

C#:

oSheet.get_Range("A1", Type.Missing).Value2 =
  XL.LanguageSettings.get_LanguageID(
  Microsoft.Office.Core.MsoAppLanguageID.msoLanguageIDUI);

LanguageSettings Object

Как сделать, чтобы Excel работал быстрее?

Для ускорения работы с Excel’ем можно сделать следующие шаги:

Delphi:

// запретить перерисовку экрана
XL.ScreenUpdating[lcid] := False;

// отменить автоматическую калькуляцию формул

XL.Calculation[lcid] := xlManual;

// отменить проверку автоматическую ошибок в ячейках (для XP и выше)
    with XL.ErrorCheckingOptions do begin
      BackgroundChecking := False;
      NumberAsText := False;
      InconsistentFormula := False;
    end;

Не использовать метод Select, и, как следствие, свойство Selection (смотрите дальше).

Существенно повышается скорость, если вместо записи в каждую ячейку использовать запись из VarArray (смотрите дальше про объект Range). В Demo-проекте есть тест затраченного времени для различных методов записи.

Так как основное время работы с Excel’ем затрачивается на перерисовку (установка отступов для страницы, размеров строк и столбцов, атрибуты шрифтов и т.д.), то лучше всего использовать заранее подготовленный шаблон.

Как вывести приложение Excel на передний план?

Для «выноса» приложения Excel на передний план просто вызовите метод Visible объекта ExcelApplication.

Delphi:

XL.Visible[lcid] := True;
// Этот способ только для Excel версии XP и выше

SetForegroundWindow(XL.Hwnd);

C#:

XL.Visible = true;

Как сделать так, чтоб работали английские формулы и форматы чисел в ячейках?

Решение для Delphi здесь «Русский Excel и установка NumberFormat»

К сожалению, при работе с русским Excel’ем из C# проблемы те же, но, к счастью, решаются проще — через CultureInfo:

C#:

int savedCult = Thread.CurrentThread.CurrentCulture.LCID;
try {
  // установим английскую "культуру"
  Thread.CurrentThread.CurrentCulture = new CultureInfo(0x0409, false);
  Thread.CurrentThread.CurrentUICulture = new CultureInfo(0x0409, false);
// здесь работаем с Excel'ем, при чем работают английские формулы, DataFormat 
// и колонтитулы в PageSetup
finally {
// восстановим пользовательскую "культуру" для отображения всех данных в
// привычных глазу форматах
  Thread.CurrentThread.CurrentCulture = new CultureInfo(savedCult, true);
  Thread.CurrentThread.CurrentUICulture = new CultureInfo(savedCult, true);
}

Русский Excel и установка NumberFormat

How to: Set the Culture and UI Culture for Windows Forms Globalization

Что такое Selection?

Как пишут в «Best Practices for Setting Range Properties»: «Код, использующий Selection, сгенерирован записью макроса Excel, часто используется для обнаружения объекта или метода, который будет работать. Это хорошая идея, за исключением того, что записанный макрос не оптимизирован для пользователя. Обычно Excel при записи макроса использует Selection и изменяет выбор объекта при записи какой либо задачи».

Т.е. использование Selection не является обязательным и даже не рекомендуется для разработчика. Цитата оттуда же: «На практике вызывайте метод Select объекта только тогда, когда твердо намерены изменить выбранный пользователем элемент. Вы можете никогда не использовать метод Select просто потому, что это вам удобно, как разработчику. Если вы устанавливаете свойства объекта Range, у вас всегда есть альтернатива. Отказ от метода Select не только делает ваш код быстрее, но и порадует пользователей вашей программы (it makes your users happier)». Эта тема еще затронута здесь.

Selection Property

Почему не нужно использовать Excel.Application.Range, а следует ExcelWorksheet.Range?

Использование ExcelApplication.Range позволяет работать только с активным листом активной книги. Если вы открываете по ходу работы еще одну книгу или делаете активным другой лист в книге (например, добавляете новый лист), то данные будут вноситься именно в активный в данный момент лист. Чтоб не попасть в неудобную ситуациюб всегда используйте объект Range объекта ExcelWorksheet. Это не только обезопасит ваш код от попадания «куда Бог пошлет», но и позволит записывать данные сразу в несколько листов и даже книг без изменения ActiveSheet и ActiveCell.

Если приложение Excel работает и пользователь выполняет в Excel, одновременно, какие либо действия, то попытка подключится к Excel и вносить в него данные, вызывает ошибку. Как этого избежать?

При работе с запущенным приложением Excel, он может быть занят, если в это время пользователь редактирует значение в ячейке, или в нем открыто какое-либо модальное диалоговое окно (например, «Открытие документа»). Чтобы обойти эту ситуациюб всегда запускайте новую копию Excel.Application и устанавливайте свойство Interactive в False, что запретит пользователю что-либо делать в Excel’е или закрыть запущенный экземпляр Excel.Application:

Delphi:

XL := TExcelApplication.Create(nil);

try
  XL.ConnectKind := ckNewInstance;
  XL.Connect;
  XL.Interactive[lcid] := False; // запрещаем работу пользователю с нашим экземпляром Excel'я
  XL.Visible[lcid] := True;
// работать здесь
finally
  // не забыть разрешить пользователю доступ к Excel'ю!
  XL.UserControl := True;
  XL.Interactive[lcid] := True;
  XL.Disconnect;
  FreeAndNil(XL);

end;

The action cannot be completed because Microsoft Office Excel is busy

Interactive Property

Экспорт в Excel длится довольно долго. Как можно уведомлять пользователя о ходе выполнения работы?

Чтобы пользователь не подумалб что во время экспорта данных в Excel ваша программа и Excel «висит», лучше уведомлять его о ходе работы. Т.к. обновление экрана занимает довольно много времени и так довольно длительного процесса экспорта (хотя все же стоит подумать, как этот процесс оптимизировать и ускорить), то лучшим выходом из этой ситуации является показ этапов работы в свойстве ExcelApplication.StatusBar:

Delphi:

XL.DisplayStatusBar[lcid] := True; // покажем StatusBar, если его не было видно
XL.StatusBar[lcid] := 'Читаем';
//
XL.StatusBar[lcid] := 'Пишем';
//
XL.StatusBar[lcid] := 'Считаем';
//

XL.StatusBar[lcid] := False; // уберем наше последнее сообщение

C#:

XL.DisplayStatusBar = true;
//
XL.StatusBar = "Текст в статусбаре";
//
XL.StatusBar = false; // "Готово"

DisplayStatusBar Property

StatusBar Property

Переношу записанный VBA макрос рисования границы в Excel, но Delphi не знает что такое xlContinuous. Где взять значение этой константы?

Это всего лишь значит, что вы пользуетесь в Delphi поздним связыванием. Добавьте в uses ExcelXP или Excel2000. Для C# нужно полностью указывать namespace, тип и имя этой константы, например Excel.XlLineStyle.xlContinuous.

Microsoft.Office.Interop.Excel Namespace

Почему я не могу найти описание компонентов палитры Delphi «Servers» в Help’е? Где найти документацию по работе с Excel’ем?

Компоненты на палитре «Servers» — это «обертка» (wrapper) популярных COM-серверов Microsoft. Для описания их объектной модели, свойств и методов используйте поставляемый с Microsoft Office VBA Help или ищите информацию на MSDN (также смотрите «Полезные ссылки» в конце).

Полезные ссылки

Microsoft Excel Object Model

Automating Excel Using the Excel Object Model

Office Development — Excel

Migrating Excel VBA Solutions to Visual Studio 2005 Tools for Office

Converting Microsoft Office VBA Macros to Visual Basic .NET and C#

Microsoft Excel 2003 Language Reference

Understanding the Excel Object Model from a .NET Developer’s Perspective

Microsoft.Office.Interop.Excel Namespace

Excel Objects

Code Examples for Excel (C#)

← →
ixen ©
 
(2010-05-13 19:24)
[0]

Здраствуйте! Формирую отчеты в MS Excel и MS Word. Использую позднее связывание. В конце формирования отчета делаю Word видимым W.Visible:=true; , но он открывается за окном программы, приходится кликать на панели задач чтобы отобразить отчет. Как его отобразить сразу на переднем плане? Искал в инете… но не нашел толком ответа…

← →
Омлет ©
 
(2010-05-13 19:36)
[1]

SetForegroundWindow

← →
ixen ©
 
(2010-05-13 19:48)
[2]

если использовать SetForegroundWindow нужно найти хэндл Word, а хэндл своего приложения всегда известен.. тогда может сделать проще… отодвинуть окно своего приложения на один уровень назад?

← →
Омлет ©
 
(2010-05-13 20:00)
[3]

← →
Омлет ©
 
(2010-05-13 20:17)
[4]

← →
ixen ©
 
(2010-05-13 20:31)
[5]

> Попробуй так:
>
>      MsWord.Visible := true;
>      MsWord.Activate;

спасибо… это помогло..

Выберите диаграмму и отредактируйте источник данных. Порядок рядов в левой части диалогового окна будет определять, какие ряды будут отображаться перед другими, если они все нанесены на одну и ту же ось. Выберите серию и нажмите стрелки вверх или вниз, чтобы переместить ее положение.

На скриншоте вы видите порядок серий для нижнего графика. Series1 указан после Series2 и будет нанесен сверху

Редактировать: по-видимому, возможность изменить порядок рядов не существует в соответствующем диалоговом окне в Excel для Mac. В этом случае измените формулу для ряда данных в строке формул.

Выберите ряд данных на графике и посмотрите на панель формул. Вы увидите что-то вроде

=SERIES(Sheet1!$C$1,Sheet1!$A$2:$A$8,Sheet1!$C$2:$C$8,2)

Последнее число в этой формуле — это порядок ряда. Вы можете редактировать и изменять его в строке формул. Ряд с наименьшим номером будет нанесен позади ряда с более высоким номером.

До: оранжевая серия имеет номер 2 и нанесена поверх синей серии (которая имеет номер 1)

После: оранжевая серия имеет номер 1, нанесенная за синей серией (которая теперь имеет номер 2)

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

Я искал в Интернете сверху вниз, но не смог найти решение. В моей книге Excel я хочу импортировать контакты из Outlook. Это отлично работает без проблем. Я получаю GAL на передний план, используя Outlook.ActiveWindow.Activate и я минимизирую Outlook, используя Outlook.Explorers.Item(1).WindowState = olMinimized, Я знаю, что это не очень чистое решение, но все работает нормально, если не открыты другие Windows Outlook.

Теперь к моей проблеме:
Когда у пользователя есть несколько открытых окон Outlook (например, новое почтовое диалоговое окно и т. Д.), Я не могу вернуть свое приложение Excel обратно на передний план. Импорт контактов все еще работает нормально. GAL выходит на передний план, нажав кнопку.
Я попробовал следующие фрагменты кода, но они на самом деле не работают.

   Dim AppTitle As String
   AppTitle = Application.Caption
   '
   'some code
   '
   AppActivate AppTitle

Еще одна попытка была эта функция в модуле

   Public Declare Function SetForegroundWindow Lib "user32" _
   (ByVal hWnd As Long) As Long

вызывая его в моей функции кнопки

   Dim AppXL As Object
   Set AppXL = CreateObject("Excel.Application")
   '
   'some code
   '
   SetForegroundWindow AppXL.hWnd

Я также пытался использовать этот фрагмент кода

   Excel.Application.Visible = True
   Excel.Application.ActiveWindow.Activate

Ничего не помогло Единственное, что произошло, — это мигающий значок Excel на панели задач. Я надеюсь, что вы можете помочь мне с этим.

Private Declare Function SetForegroundWindow _
                     Lib "user32" _
                   (ByVal hWnd As Long) As Long

Public Sub Bring_to_front()   
    SetForegroundWindow wb.Application.hWnd    
End Sub
Sub Test()    
     Set wb = Workbooks("MyWorkBook.xlxs")
      call Bring_to_front
End Sub

2 ответа

Лучший ответ

Public Declare Function SetForegroundWindow _
Lib "user32" (ByVal hwnd As Long) As Long

Public Sub Bring_to_front()
    Dim setFocus As Long

    ThisWorkbook.Worksheets("Sheet1").Activate
    setfocus = SetForegroundWindow(Application.hwnd)
End Sub

Sub BringXLToFront()
    AppActivate Application.Caption
End Sub

#If Win64 Then
    Private Declare PtrSafe Function SetForegroundWindow Lib "user32" _
               (ByVal hWnd As LongPtr) As LongPtr
#Else
    Private Declare Function SetForegroundWindow Lib "user32" _
               (ByVal hWnd As Long) As Long
#End If