procedure TForm1.ListBox1Click(Sender: TObject);
begin
if FileExists(ListBox1.Items[ListBox1.ItemIndex]) then
begin
Try
ExcelApplication1.Connect;
Except
MessageDlg('Excel may not be installed',
mtError, [mbOk], 0);
Abort;
End;
ExcelApplication1.Visible[0]:=True;
ExcelApplication1.Caption:='Excel Application';
ExcelApplication1.Workbooks.Add(Null,0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _Worksheet);
ExcelWorksheet1.Cells.Item[1,1]:= ListBox1.Items[ListBox1.ItemIndex];
end;
end;
//----------窗体上的组件------
object ListBox1: TListBox
Left = 88
Top = 80
Width = 121
Height = 97
ItemHeight = 13
Items.Strings = (
'd:\1.txt')
TabOrder = 0
OnClick = ListBox1Click
end
object ExcelWorksheet1: TExcelWorksheet
AutoConnect = False
ConnectKind = ckRunningOrNew
Left = 128
Top = 8
end
object ExcelApplication1: TExcelApplication
AutoConnect = False
ConnectKind = ckRunningOrNew
AutoQuit = False
Left = 32
Top = 8
end
object ExcelWorkbook1: TExcelWorkbook
AutoConnect = False
ConnectKind = ckRunningOrNew
Left = 216
Top = 8
end
procedure TMainForm.Label1Click(Sender: TObject);
var
Runstr: array[0..100] of Char;
begin
ShellExecute(Handle, nil,StrPCopy(runstr,ListBox中的东西), nil, nil, SW_SHOW);
end;