不用三方控件读excel源码

本资源无任何三方控件，无须安装excel，所使用控件自己下载去看unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, shlobj,ShellAPI, Menus, StdCtrls, DB, ADODB, FileCtrl, Grids, DBGrids; type TForm1 = class(TForm) DBGrid1: TDBGrid; FileListBox1: TFileListBox; DirectoryListBox1: TDirectoryListBox; DriveComboBox1: TDriveComboBox; con1: TADOConnection; ADOQuery1: TADOQuery; DasFind: TADODataSet; DataSource5: TDataSource; ComboBox1: TComboBox; PopupMenu1: TPopupMenu; N1: TMenuItem; Button1: TButton; Edit1: TEdit; ComboBox2: TComboBox; DataSource1: TDataSource; PopupMenu2: TPopupMenu; N2: TMenuItem; N3: TMenuItem; Button2: TButton; ADOConnection1: TADOConnection; procedure FileListBox1Click(Sender: TObject); procedure N1Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure setdbgridwidth; procedure N2Click(Sender: TObject); procedure N3Click(Sender: TObject); procedure Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); procedure ComboBox1Change(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; ...