盒子论坛 v2.1

注意：前面要加上USES ComOBJ

( 你也直接在按钮或者ActionList事件中引用它 )
procedure TfrmMate.ToExcel(DBGrid:TDBGrid);
Const
  Con_stStr='''';
var
  ExcelApp: Variant;
  i,j,k:integer;
  FileName:string;
  DlgSave:TsaveDialog;
Begin
  DlgSave:=TsaveDialog.Create(nil);
  DlgSave.Filter:='*.xls|*.xls';
  if DlgSave.Execute then
  Begin
    application.ProcessMessages;
    Filename:=DlgSave.FileName;
    ExcelApp := CreateOleObject( 'Excel.Application' );
    ExcelApp.Caption :='能创监控系统日志数据';//'Microsoft Excel';
    ExcelApp.WorkBooks.Add;
    application.ProcessMessages;
    ExcelApp.WorkSheets[1].Activate;
    K:=1;
    For i:=0 To DBGrid.Columns.Count-1 Do
    Begin
      if DBGrid.Columns[i].Visible Then
      Begin
        ExcelApp.Cells[1,K]:=DBGrid.Columns[i].Title.Caption;
        k:=k+1;
      End;{if}
    End;{for}
    ExcelApp.rows[1].font.name:='宋体';
    ExcelApp.rows[1].font.size:=10;
    ExcelApp.rows[1].Font.Color:=clBlack;
    ExcelApp.rows[1].Font.Bold:=true;
    j:=1;
    For i:=0 To DBGrid.Columns.Count-1 Do
    Begin
      If DBGrid.Columns[i].Visible Then
      Begin
        qry_Mate.First;
        for k:=1 To qry_Mate.RecordCount-1 Do
        Begin
          ExcelApp.Cells[K+1,j]:=ConstStr+qry_Mate.FieldByName(DBGrid.Columns[i].FieldName).Asstring;
          qry_Mate.Next;
        End;{for}
      j:=j+1;
    End;{if}
    End;{for}
    For I:=1 To qry_Mate.recordcount Do
    ExcelApp.rows[i].Font.SIZE:=9;
    ExcelApp.Columns.AutoFit;
    ExcelApp.ActiveWorkBook.SaveAs(FileName);
    ExcelApp.WorkBooks.Close;
    Application.MessageBox('数据导出成功....','数据导出',0);
    ExcelApp.Quit;
    ExcelApp:=Unassigned;
    DlgSave.Destroy;
  End;
end;
----------------------------------------------
-

作者：

onionzq (kylin)	★☆☆☆☆	-
	盒子活跃会员

2004/12/24 17:03:39

6楼：

请问大家导入数据问题：
(我总是用insert 插入数据，使用起来很不方便；要打开要导入的excel文件 )

希望有知道或者可以解决此问题的发个代码或函数给我，谢谢！

yangchongzq@163.net
----------------------------------------------
-

作者：

xzfemail (刀狐)	★☆☆☆☆	-
	盒子活跃会员

2004/12/26 9:38:48

7楼：

procedure Tform5.ToExcel(DBGrid:TDBGrid);
Const
  Con__stStr='''';
var
  ExcelApp: Variant;
  i,j,k:integer;
  FileName:string;
  DlgSave:TsaveDialog;
Begin
  DlgSave:=TsaveDialog.Create(nil);
  DlgSave.Filter:='*.xls|*.xls';
  if DlgSave.Execute then
  Begin
    application.ProcessMessages;
    Filename:=DlgSave.FileName;
    ExcelApp := CreateOleObject( 'Excel.Application' );
    ExcelApp.Caption :='能创监控系统日志数据';//'Microsoft Excel';
    ExcelApp.WorkBooks.Add;
    application.ProcessMessages;
    ExcelApp.WorkSheets[1].Activate;
    K:=1;
    For i:=0 To DBGrid.Columns.Count-1 Do
    Begin
      if DBGrid.Columns[i].Visible Then
      Begin
        ExcelApp.Cells[1,K]:=DBGrid.Columns[i].Title.Caption;
        k:=k+1;
      End;{if}
    End;{for}
    ExcelApp.rows[1].font.name:='宋体';
    ExcelApp.rows[1].font.size:=10;
    ExcelApp.rows[1].Font.Color:=clBlack;
    ExcelApp.rows[1].Font.Bold:=true;
    j:=1;
    For i:=0 To DBGrid.Columns.Count-1 Do
    Begin
      If DBGrid.Columns[i].Visible Then
      Begin
        qry_Mate.First;
        for k:=1 To qry_Mate.RecordCount-1 Do
        Begin
          ExcelApp.Cells[K+1,j]:=ConstStr+qry_Mate.FieldByName(DBGrid.Columns[i].FieldName).Asstring;
          qry_Mate.Next;
        End;{for}
      j:=j+1;
    End;{if}
    End;{for}
    For I:=1 To qry_Mate.recordcount Do
    ExcelApp.rows[i].Font.SIZE:=9;
    ExcelApp.Columns.AutoFit;
    ExcelApp.ActiveWorkBook.SaveAs(FileName);
    ExcelApp.WorkBooks.Close;
    Application.MessageBox('数据导出成功....','数据导出',0);
    ExcelApp.Quit;
    ExcelApp:=Unassigned;
    DlgSave.Destroy;
  End;
end;

这么也通不了请你给说详细点
----------------------------------------------
笨

作者：

xzfemail (刀狐)	★☆☆☆☆	-
	盒子活跃会员

2004/12/27 9:37:17

8楼：

ConstStr

我的程序提示ConstStr有错
----------------------------------------------
笨

作者：

onionzq (kylin)	★☆☆☆☆	-
	盒子活跃会员

2004/12/27 20:05:23

9楼：

对于这个问题，不是ConstStr的错，应该是其他地方的错，
这里的ConstStr，
只是在导出数据时，避免“001”，在Excel中显示成“1”的，耐心仔细检查一下；
----------------------------------------------
-

作者：

wishesyou (白衣)	★☆☆☆☆	-
	普通会员

2005/1/13 16:09:52

10楼：

这贴给我太多帮助了谢谢。
前面关于conststr的问题我留意了一下，原贴定义变量的时候加了下划线，而在使用的时候没有。前后一致就行了。
----------------------------------------------
-一个篱笆三个桩，一个好汉三个帮，为了大家过得更美好，这世界需要热心肠。

作者：

seowhy123456 (seowhy123456)	▲▲▲▲▲	-
	禁用账号

2011/8/1 22:40:53

12楼：

……
被禁用帐号，帖子内容自动屏蔽！
……
----------------------------------------------
发布广告,禁用帐号!

信息

登陆以后才能回复