J jerjoan Unregistered / Unconfirmed GUEST, unregistred user! 2003-01-14 #1 在Delphi 中有没有办法知道它调用的Excel文件中内容的有效列数，有没有什么现成的方法可属性。
4 41426277 Unregistered / Unconfirmed GUEST, unregistred user! 2003-01-14 #2 var Listtab: TStringList; begin Result := False; listtab:=TStringList.Create; ADOConnection1.GetTableNames(listtab,false) ///可加入LISTBOX,MEMO等控件观察listtab共有EXCEL几个sheet,其它的语句SQL我不必说了. listtab.Free; end;
var Listtab: TStringList; begin Result := False; listtab:=TStringList.Create; ADOConnection1.GetTableNames(listtab,false) ///可加入LISTBOX,MEMO等控件观察listtab共有EXCEL几个sheet,其它的语句SQL我不必说了. listtab.Free; end;
L LikeDFW Unregistered / Unconfirmed GUEST, unregistred user! 2003-01-14 #3 加载 XLS 文件 ExcelApplication1.Quit ; ExcelApplication1.Connect ; WorkBook := ExcelApplication1.Workbooks.Add(OpenDialog1.FileName,LCID) ; 对每个Sheet : WorkSheet := WorkBook.Sheets as _WorkSheet ; //得到一个Sheet的数据 对该Sheet 中第 k 行 : v := WorkSheet.Cells.Item[k,有效列列号(从0起)] ; //得到一行某列的值
加载 XLS 文件 ExcelApplication1.Quit ; ExcelApplication1.Connect ; WorkBook := ExcelApplication1.Workbooks.Add(OpenDialog1.FileName,LCID) ; 对每个Sheet : WorkSheet := WorkBook.Sheets as _WorkSheet ; //得到一个Sheet的数据 对该Sheet 中第 k 行 : v := WorkSheet.Cells.Item[k,有效列列号(从0起)] ; //得到一行某列的值
D ddntyz Unregistered / Unconfirmed GUEST, unregistred user! 2003-01-14 #4 当然有办法了。 你试一下： Maxc :=V.WorkSheets[1].UsedRange.Columns.Count;//列 Maxr :=V.WorkSheets[1].UsedRange.Rows.Count; //行
当然有办法了。 你试一下： Maxc :=V.WorkSheets[1].UsedRange.Columns.Count;//列 Maxr :=V.WorkSheets[1].UsedRange.Rows.Count; //行
