Зыкрыть Excel можно еще так, я так делаю при закрытии формы(окна) инморта

Код

try   Ex1.Workbooks.Close(LOCALE_USER_DEFAULT);   Ex1.Disconnect;   Ex1.Quit;   Ex1:=nil;  except  end;

на всякий случай дам функцию DelProb

Код

Function TfmImpExcel.DelProb(prob:string):string; Var i:integer; begin result:=''; For i:=1 to Length(prob) do begin   if (prob[i] in ['0'..'9']) or (prob[i]=',') or((prob[i]='.')) then result:=result+prob[i]; end; end;

Это сообщение отредактировал(а) dsergey - 28.12.2004, 11:04

Еще несколько примеров, используя Ole

Excel:Variant - глобальная переменная

Код

... begin //вначале проверяем, не открыт ли Excel  и закрываем if not VarIsEmpty(Excel) then begin  Excel.Quit;  Excel := Unassigned; end;//if    Try//открываем Excel и создаем раб.книгу      Excel:=CreateOleObject('Excel.Application');      /кол-во листов в новой книге      Excel.SheetsInNewWorkbook:=1;//      //добавляем раб.книгу      Excel.WorkBooks.Add;      //в переменную "загоняем" текущий лист      Sheets:=Excel.Workbooks[1].Sheets[1];    Except      SysUtils.beep;      ShowMessage('Не могу открыть Excel!');      Exit;    end;//try-except    //рисуем border //сначала определяем диапазон    Range:=Sheets.Range['B1'];    Range.Borders[4].LineStyle := 1;//Range.Borders[4] - можно ставить от 1 до 8 - точно не мпомню      //рисуем border вокруг ячейки (обрамление)      Range.Borders[1].LineStyle := 1;      Range.Borders[2].LineStyle := 1;      Range.Borders[3].LineStyle := 1;      Range.Borders[4].LineStyle := 1;    //присваиваем значение яцейке    Sheets.Cells[2,2]:=Edit1.Text;// формат Sheets.Cells[№ строки,№ колонки]    //так выполняем выравнивание в диапазоне    //присваиваем диапазону координаты ячейки    Range:=Sheets.Cells[2,2];//можно переменные Range:=Sheets.Cells[iRow,iCol];    Range.HorizontalAlignment := xlCenter;    Range.VerticalAlignment := xlCenter;    //форматируем шрифт    Sheets.Cells[iRow,3]:='ЗАЯВКА';    Range:=Sheets.Cells[iRow,3];    Range.Font.Bold:=True; //с присваиванием значения ячейке могут быть проблемы, т.к. Excel думает, что он очень умный //и вместо числа может переформатировать в дату вида 12дек2004, что бы такого не случилось, //можно заранее отформатировать ячейку в нужный формат (дата, число, валюта, текстовый) //все форматы можно узнать в Excel`е, с пом. макросов, просмотрев затем код, созданный самим //Excel`ем //#,##0.000$ - денежный //[$-FC19]dd mmmm yyyy г/;@ - дата //h:mm;@ - время //0.00% - проценты //# ??/?? - простые дроби 21/25 //[<=9999999]###-####;(###) ###-#### - номер телефона //@ - текстовый формат, если указывать такой формат и присваивать //числовое значение, а затем складывать, то ничего не выйдет //передаваемая строки из Delphi может отличаться, нужно эксперементировать tZay - TTable dbGridZay - DBGrid vRow - integer    while not tZay.Eof do begin      For iColCount:=0 to dbGridZay.Columns.Count-1 do begin        Range:=Sheets.Cells[vRow,iColCount+1];        Case tZay.FieldByName(dbGridZay.Columns[iColCount].FieldName).DataType of          ftFloat   : begin                        Range.NumberFormat := '0,000';                        Sheets.Cells[vRow,iColCount+1]:=                        tZay.FieldByName(dbGridZay.Columns[iColCount].FieldName).AsFloat                      end;          ftString  : begin                        Range.NumberFormat := '@';                        Sheets.Cells[vRow,iColCount+1]:=                        tZay.FieldByName(dbGridZay.Columns[iColCount].FieldName).AsString;                      end;          ftInteger : begin                        Range.NumberFormat := '0';                        Sheets.Cells[vRow,iColCount+1]:=                        tZay.FieldByName(dbGridZay.Columns[iColCount].FieldName).AsInteger;                      end;          ftAutoinc : begin                        Range.NumberFormat := '0';                        Sheets.Cells[vRow,iColCount+1]:=                        tZay.FieldByName(dbGridZay.Columns[iColCount].FieldName).AsInteger;                      end;          ftDate    : begin                        Range.NumberFormat := '@';                        dDate:=tZay.FieldByName(dbGridZay.Columns[iColCount].FieldName).AsDateTime;                        Sheets.Cells[vRow,iColCount+1]:=FormatDateTime('dd.mm.yyyy',dDate);                      end        else          Range.NumberFormat := '@';          Sheets.Cells[vRow,iColCount+1]:=          tZay.FieldByName(dbGridZay.Columns[iColCount].FieldName).AsString;        end;//case-else

Всем спасибо!

я не закончил
удаляем лишние столбцы (по умолчанию со сдвигом влево)

Код

dbGridZay - DBGrid    For iColCount:= dbGridZay.Columns.Count-1 downto 0 do begin      if dbGridZay.Columns[iColCount].Visible=False then begin        UsedRange := Sheets.Range['A1','Z100'];//диапазон поиска заголовка        Range := UsedRange.Find(What:=dbGridZay.Columns[iColCount].title.Caption, LookIn := xlValues, LookAt := xlWhole,SearchDirection := xlNext);        if not VarIsEmpty(Range) then begin          try            FirstAddress := Range.Address;            s:=StringReplace(FirstAddress,'$','',[rfReplaceAll]);            [b]Range:=Sheets.Range[s+':'+Copy(s,1,1)+IntToStr(vRow)];[/b]            [b]Range.Delete;[/b]          except          end;//try        end;//if not VarIsEmpty(Range)then begin      end;//if dbGridZay.Columns[iColCount].Visible=False then begin    end;//for delete

если будут какие-нибудь вопросы или поправки, с удовольствием рассмотрю, исправлю

Это сообщение отредактировал(а) dsergey - 28.12.2004, 11:03

запустить внешнее приложение и подождать, пока оно отработает
такая функция тоже будет полезна

Код

function ExecAndWait(const FileName, Params: ShortString; const WinState: Word): boolean; export; var StartInfo: TStartupInfo; ProcInfo: TProcessInformation; CmdLine: ShortString; begin { Помещаем имя файла между кавычками, с соблюдением всех пробелов в именах Win9x } CmdLine := '"' + Filename + '" ' + Params; FillChar(StartInfo, SizeOf(StartInfo), #0); with StartInfo do begin   cb := SizeOf(StartInfo);   dwFlags := STARTF_USESHOWWINDOW;   wShowWindow := WinState; end; Result := CreateProcess(nil, PChar( String( CmdLine ) ), nil, nil, false,                         CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,                         PChar(ExtractFilePath(Filename)),StartInfo,ProcInfo); { Ожидаем завершения приложения } if Result then begin   WaitForSingleObject(ProcInfo.hProcess, INFINITE);   { Free the Handles }   CloseHandle(ProcInfo.hProcess);   CloseHandle(ProcInfo.hThread); end; end;

dsergey, http://vingrad.ru/VF-DLP-000765

вопросов больше не имею

в разделе мультимедии -> мегаплеер, валяются примеры id3(1.0-2.x)редкая штука
надо вклычит в базу

Vit и всем привет! Vit, не знаю замечали дубликаты тем или нет, но на всякий случай скажу: дублируются темы:
Ситемные функции и WinApi->Процессы, потоки...->Как увеличить процессорное время, выделяемое программе и тема оттуда же но
Как поменять приоритет моего приложения.

Поехали дальше. Нашел несколько темок по потокам(API & Delphi) Все взято с проекта DelphiWorld.

№1
Как при создании объекта TThread передать ему некоторое значение

Код

К примеру, функция "прослушивает" каталог на предмет файлов. Если находит, то создает нить, которая будет обрабатывать файл. Потомку надо передать имя файла, а вот как? Странный вопрос. Я бы понял, если бы требовалось передавать данные во время работы нити. А так обычно поступают следующим образом. В объект нити, происходящий от TThread дописывают поля. Как правило, в секцию PRIVATE. Затем переопределяют конструктор CREATE, который, принимая необходимые параметры заполняет соответствующие поля. А уже в методе EXECUTE легко можно пользоваться данными, переданными ей при его создании. TYourThread = class(TTHread)  private    FFileName: string;  protected    procedure Execute; overrided;  public    constructor Create(CreateSuspennded: Boolean; const AFileName: string); end; ... constructor TYourThread.Create(CreateSuspennded: Boolean;            const AFileName: string); begin  inherited Create(CreateSuspennded);  FFIleName := AFileName; end; procedure TYourThread.Execute; begin  try    ...    if FFileName = ...    ...  except    ...  end; end; ... TYourForm = class(TForm) ... private  YourThread: TYourThread;  procedure LaunchYourThread(const AFileName: string);  procedure YourTreadTerminate(Sender: TObject);  ... end; ... procedure TYourForm.LaunchYourThread(          const AFileName: string); begin  YourThread := TYourThread.Create(True, AFileName);  YourThread.Onterminate := YourTreadTerminate;  YourThread.Resume end; ... procedure TYourForm.YourTreadTerminate(Sender: TObject); begin  ... end; ... end.

№2
Помещение формы в поток

Код

Delphi имеет в своем распоряжении классную функцию, позволяющую сделать это: procedure WriteComponentResFile(const FileName: string;  Instance: TComponent); Просто заполните имя файла, в котором вы хотите сохранить компонент, и читайте его затем следующей функцией: function ReadComponentResFile(const FileName: string;  Instance: TComponent): TComponent;

№3
Несколько функций для TStream

Код

Оформил: DeeCo Автор: http://www.swissdelphicenter.ch { These are three utility functions to write strings to a TStream. Nothing fancy, but I just ended up coding this repeatedly so I made these functions. } { Hier sind einige TStreaam Hilfsfunktionen um strings in einen TStream zu schreiben. } unit ClassUtils; interface uses   SysUtils,   Classes; {: Write a string to the stream   @param Stream is the TStream to write to.   @param s is the string to write   @returns the number of bytes written. } function Writestring(_Stream: TStream; const _s: string): Integer; {: Write a string to the stream appending CRLF   @param Stream is the TStream to write to.   @param s is the string to write   @returns the number of bytes written. } function WritestringLn(_Stream: TStream; const _s: string): Integer; {: Write formatted data to the stream appending CRLF   @param Stream is the TStream to write to.   @param Format is a format string as used in sysutils.format   @param Args is an array of const as used in sysutils.format   @returns the number of bytes written. } function WriteFmtLn(_Stream: TStream; const _Format: string;   _Args: array of const): Integer; implementation function Writestring(_Stream: TStream; const _s: string): Integer; begin   Result := _Stream.Write(PChar(_s)^, Length(_s)); end; function WritestringLn(_Stream: TStream; const _s: string): Integer; begin   Result := Writestring(_Stream, _s);   Result := Result + Writestring(_Stream, #13#10); end; function WriteFmtLn(_Stream: TStream; const _Format: string;   _Args: array of const): Integer; begin   Result := WritestringLn(_Stream, Format(_Format, _Args)); end;

Самих линков дать не могу, т.к. давно эту инфу отрыл, беру уже с винта

Добавлено @ 23:02
Да, кстати, хочу заметить: это я не тестировал.
Добавлено @ 23:08
Тоже с Delphi World

Поток с доступом к глобальной переменной основной программы

Код

Автор: Xavier Pacheco unit Main; interface uses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  StdCtrls; type  TMainForm = class(TForm)    Button1: TButton;    procedure Button1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  MainForm: TMainForm; implementation {$R *.DFM} { NOTE: Change GlobalStr from var to threadvar to see difference } var  //threadvar  GlobalStr: string; type  TTLSThread = class(TThread)  private    FNewStr: string;  protected    procedure Execute; override;  public    constructor Create(const ANewStr: string);  end; procedure SetShowStr(const S: string); begin  if S = '' then    MessageBox(0, PChar(GlobalStr), 'The string is...', MB_OK)  else    GlobalStr := S; end; constructor TTLSThread.Create(const ANewStr: string); begin  FNewStr := ANewStr;  inherited Create(False); end; procedure TTLSThread.Execute; begin  FreeOnTerminate := True;  SetShowStr(FNewStr);  SetShowStr(''); end; procedure TMainForm.Button1Click(Sender: TObject); begin  SetShowStr('Hello world');  SetShowStr('');  TTLSThread.Create('Dilbert');  Sleep(100);  SetShowStr(''); end; end.

Это сообщение отредактировал(а) Slawanix - 18.1.2005, 23:04

Цитата(Slawanix @ 19.1.2005, 00:00)

Vit, не знаю замечали дубликаты тем или нет, но на всякий случай скажу: дублируются темы: Ситемные функции и WinApi->Процессы, потоки...->Как увеличить процессорное время, выделяемое программе и тема оттуда же но Как поменять приоритет моего приложения.

Имеется ввиду DRKB

Продолжаю тему об MS Excel.

Код

//Объединение ячеек Sheet.Range[...].Merge(Across)

-------------------------------------------------------
Относительно LOCALE_USER_DEFAULT
Теоретически, в MSDN написано: "Indicates that the parameter is a locale ID (LCID)". Одни (Чарльз Калверт) предлагают в качестве его использовать 0, как идентификатор языка по умолчанию, другие - результат функции GetUserDefaultLCID. В некоторых случаях, чаще в связке Windows 2000 + Excel 2000, оба решения не проходят. Причем, выдается сообщение о попытке "использовать библиотеку старого формата..." Поэтому, рекомендуем в качестве lcid использовать значение константы LOCALE_USER_DEFAULT.

---------------------------------------------------------------------------------
Относительно открытия существующих рабочих книг

Вот как описан метод 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. Запишите макросы, а затем поправьте их по необходимости.
Создание новой книги

Используя раннее связывание
var
IWorkbook: Excel8_TLB._Workbook;
...
IWorkbook := IExcel.Workbooks.Add(EmptyParam, xlLCID);

Передача в качестве первого параметра EmptyParam означает, что будет создана новая книга с количеством пустых листов, выставленным по умолчанию. Если в первом параметре вы передадите имя файла (с полным путем, иначе поиск осуществляется в каталоге по умолчанию), этот файл будет использован как шаблон для новой книги. Вы можете также передать одну из следующих констант: xlWBATChart, xlWBATExcel4IntlMacroSheet, xlWBATExcel4MacroSheet, или xlWBATWorksheet. В результате будет создана новая книга с единственным листом указанного типа.
Внимание - важно!
Excel не может держать открытыми несколько книг с одинаковыми названиями, даже если они лежат в разных каталогах, поэтому при создании файла по шаблону добавляет к имени файла новой книги номер (шаблон "test.xls" - новый файл "test1.xls").

----------------------------------
Закрытие книги

Используя раннее связывание
var
SaveChanges: boolean;
...
SaveChanges := True;
IWorkbook.Close(SaveChanges, EmptyParam, EmptyParam, xlLCID);

Если в качестве параметра SaveChanges вы передадите EmptyParam, Excel задаст вопрос, сохранять ли рабочую книгу. Второй параметр позволяет вам определить имя файла, а третий указывает, нужно ли отправлять книгу следующему получателю.
Используя позднее связывание
При позднем связывании нет необходимости указывать дополнительные параметры, поэтому вы можете просто написать:
Workbook.Close(SaveChanges := True);
или
Workbook.Close;
-------------------------------------------------------------
Как передать абсолютный адрес ячейки? Нужно использовать символ $ - Лист1!$A$1:$D$3'
-------------------------------------------------------------

Так можно добавить новый модуль:
var
IModule: VBIDE8_TLB.VBComponent; //с эти нужно поэксперементировать
...
IModule := IWorkbook.VBProject.VBComponents.Add( TOLEEnum(VBIDE8_TLB.vbext_ct_StdModule) );
IModule.Name :='MyModule1';

,поместить в него новую процедуру VBA:
IModule.CodeModule.AddFromString('PUBLIC SUB MySub1()'#13'Msgbox "Hello, World!"'#13'End sub'#13);
и запустить эту процедуру
OLEVariant(Excel).Run('MyModule1.MySub1');
-----------------------------------------------------------
Различные способы обращения к ячейкам
Var
Value:Variant;
...
try
//различные способы
Value := ISheet.Cells.Item[2, 1].Value;
Value := ISheet.Range['A2', EmptyParam].Value;
Value := ISheet.Range['TestCell', EmptyParam].Value;
Value := IWorkbook.Names.Item('TestCell', EmptyParam, EmptyParam).RefersToRange.Value;
finally
ISheet := nil;
end;
-----------------------------------------------------------
Копирование данных в буфер обмена

var
ISheetSrc, ISheetDst: Worksheet;//в разных версиях
IRangeSrc, IRangeDst: Range; //могут объявляться по разному
...
IRangeSrc.Copy(IRangeDst);

Метод Copy интерфейса Range принимает в качестве параметра любой другой Range, совпадение размеров источника и получателя необязательно.
При копировании области убедитесь, что не редактируете ячейку, иначе возникнет исключение "Call was rejected by callee".
Использование метода Copy без указания параметра destination скопирует ячейки в буфер обмена.

Это сообщение отредактировал(а) dsergey - 19.1.2005, 11:22