delphi 操作excel
我一个程式在操作excel
当delphi打开excel时,用户需要先编辑excel,这时,我需要delphi程式停住
然后关闭excel时,delphi再继续运新,读取excel内容
ExcelApp:=createoleobject('Excel.application');
ExcelApp.WorkBooks.Open(fName);
ExcelApp.WorkSheets[1].Activate;
ExcelApp.Visible := True;
我目前写了这段,打开excel的代码
这个功能可以实现麽
[解决办法]
PROCESS_INFORMATION ProcessInfo;
STARTUPINFO StartupInfo; //This is an [in] parameter
ZeroMemory(&StartupInfo, sizeof(StartupInfo));
StartupInfo.cb = sizeof StartupInfo ; //Only compulsory field
if(CreateProcess("c:\\winnt\\notepad.exe", NULL,
NULL,NULL,FALSE,0,NULL,
NULL,&StartupInfo,&ProcessInfo))
{
WaitForSingleObject(ProcessInfo.hProcess,INFINITE);
CloseHandle(ProcessInfo.hThread);
CloseHandle(ProcessInfo.hProcess);
//等Excel编辑结束后在用Delphi打开
}
else
{
MessageBox("The process could not be started...");
}