請問一下
若Excel未開啟則開啟Excel
若Excel已開啟則在已開啟的Excel新增一頁Sheet
該怎麼做呢?
procedure TForm1.Button1Click(Sender: TObject);
var
MsExcel,MsExcelSheet,a:Variant;
begin
MsExcel := CreateOleObject('Excel.Application');
MsExcel.WorkBooks.Add;
MsExcel.WorkSheets.Add;
MsExcel.Visible := True;
end;
我這樣寫的話每次都會開新的Excel檔
麻煩各位高手指點一下,感恩

var
MsExcel:Variant;
begin
try
msexcel:= GetActiveoleObject('Excel.Application');
except
msexcel:= CreateOleObject('Excel.Application');
MsExcel.WorkBooks.Add;
end;
MsExcel.WorkSheets.Add;
MsExcel.Visible := True;
end;
===================引 用 aresustar 文 章===================
請問一下
若Excel未開啟則開啟Excel
若Excel已開啟則在已開啟的Excel新增一頁Sheet
該怎麼做呢?
procedure TForm1.Button1Click(Sender: TObject);
var
MsExcel,MsExcelSheet,a:Variant;
begin
MsExcel := CreateOleObject('Excel.Application');
MsExcel.WorkBooks.Add;
MsExcel.WorkSheets.Add;
MsExcel.Visible := True;
end;
我這樣寫的話每次都會開新的Excel檔
麻煩各位高手指點一下,感恩

試試這樣做法
function FindProcWnd(ProcName: string): boolean;
var OK: Bool;
hPL: THandle;
ProcessStruct: TProcessEntry32;
begin
Result:= False;
hPL:= CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
ProcessStruct.dwSize:= SizeOf(TProcessEntry32);
OK:= Process32First(hPL, ProcessStruct);
while OK do begin
if UpperCase(ProcessStruct.szExeFile) = UpperCase(ProcName) then
begin
Result:= True;
end;
OK:= Process32Next(hPL, ProcessStruct);
end;
CloseHandle(hPL);
end;

創建上述function, 底下紅字是新用法

===================引 用 aresustar 文 章===================
請問一下
若Excel未開啟則開啟Excel
若Excel已開啟則在已開啟的Excel新增一頁Sheet
該怎麼做呢?
procedure TForm1.Button1Click(Sender: TObject);
var
MsExcel,MsExcelSheet,a:Variant;
begin
if not FindProcWnd('EXCEL.EXE') then MsExcel := CreateOleObject('Excel.Application');
MsExcel.WorkBooks.Add;
MsExcel.WorkSheets.Add;
MsExcel.Visible := True;
end;
我這樣寫的話每次都會開新的Excel檔
麻煩各位高手指點一下,感恩