DBGird中資料匯入Excel例子！

procedure tform1.bitbtn1click(sender: tobject);

varexcelworksheet: texcelworksheet;

excelworkbook: texcelworkbook;

i, row, column: integer;

x1,x2,y1,y2 : integer;

begin

x1 := 1;

y1 := 2;

column := 1;

tryexcept

showmessage('error!');

end;

excelworksheet.connectto(excelworkbook.worksheets[1] as _worksheet);

row := 3;

excelworksheet.cells.item[1, 1] := '***xx';   //標題設定

excelworksheet.range[excelworksheet.cells.item[1,1],

excelworksheet.cells.item[1,2]].merge(0);

excelworksheet.cells.item[1,1].horizontalalignment:=xlcenter;

for i:=1 to dbgrid1.columns.count do

begin

excelworksheet.cells.item[2, i] := dbgrid1.columns.items[i-1].fieldname;

end;

while not (dbgrid1.datasource.dataset.eof) do

begin

column := 1;

for i := 1 to dbgrid1.columns.count do

begin

excelworksheet.cells.item[row, column] := dbgrid1.datasource.dataset.fields[i - 1].asstring;

column := column + 1;

end;

dbgrid1.datasource.dataset.next;

row := row + 1;

end;

y2 := row-1;

x2 := column-1;

//資料內容設定

excelworksheet.range[excelworksheet.cells.item[y1,x1],

excelworksheet.cells.item[y2,x2]].font.name := '宋體';

excelworksheet.range[excelworksheet.cells.item[y1,x1],

excelworksheet.cells.item[y2,x2]].font.size := 10;

excelworksheet.range[excelworksheet.cells.item[y1-1,x1],

excelworksheet.cells.item[y2,x2]].borders.color := clblack;

excelworksheet.range[excelworksheet.cells.item[y1-1,x1],

excelworksheet.cells.item[y2,x2]].borders.linestyle := xlcontinuous;

excelworksheet.cells.item[1,1].font.name := '宋體';  //標題字型設定

excelworksheet.cells.item[1,1].font.size := 12;

excelworksheet.cells.item[1,1].font.bold := true;

excelworksheet.free;

excelworkbook.free;

end;

使用OLEDB將資料庫的資料匯入Excel檔案

datatable中的資料匯入到excel，使用oledb，資料來源table excel檔案的完整路徑 excel sheet的名稱 匯入執行的結果 public bool datatabletoexcel datatable dt,string excelpath,string sheetnam...

把Gridview中的資料匯出到Excel的通用類

把gridview中的資料匯出到excel 使用方式 1.如果是使用了updatepanel或在母版頁中使用了updatepanel，則在後臺 的load裡面加上 scriptmanager.registerpostbackcontrol 匯出控制元件按鈕 名稱即可 或 scriptmanager ...

將DataGrid中的資料匯出為Excel的方法

utils.cs 檔案內容 using system using system.data using system.configuration using system.web using system.web.security using system.web.ui using system.we...

將DataGrid中的資料轉換為Excel c

if gridx.tablestyles.count 0 objarr new object ivisable objarr list.toarray excelcell xst.get range excel.cells 1,1 excel.cells 1,ivisable excelcell.v...

html將table中的資料匯出Excel方法

2.ie的做法 html轉excel3.非ie的其他大部分瀏覽器的做法 var htmleend var template htmlstart htmlbody htmleend var forexport document.getelementbyid forexport forexport.hr...