使用dbgrideh导出到excel的excel表，用delphi程序不能合并单元格？(50)

R

rgn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-05-12

• #1

procedure TForm1.Button1Click(Sender: TObject);var Excel,WorkBook:OleVariant;beginif savedialog1.Execute thenbegin Excel := CreateOleObject('Excel.Application'); WorkBook :=Excel.WorkBooks.open(savedialog1.FileName); WorkBook.activeSheet.Range['A1:B1'].Merge; WorkBook.activeSheet.SaveAS(savedialog1.FileName);end;end;使用dbgrideh导出到excel的excel表，用以上delphi程序不能合并单元格？但手工打开excel表就能合并；以上delphi程序又能合并普通自制的excel表单元格，为什么？另外，用delphi程序合并单元格后，怎样不用提示可以自动保存excel表？

 

Z

znxia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-05-12

• #2

WorkBook.activeSheet.Range['A1:B1'].Merge(false) 试试

 

R

rgn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-05-12

• #3

不行啊，就是保存不了

 

Z

znxia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-05-12

• #4

Excel.DisplayAlerts := False; 这样就不会弹出提示框了。你有好多帖子还没结哦。。。

 

R

rgn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-05-12

• #5

不行，很多帖子都没解是不是dbgrideh导出的excel版本跟机器装的版本不同啊

 

R

rgn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-05-12

• #6

procedure TForm1.Button1Click(Sender: TObject);var Excel,WorkBook:OleVariant;beginif savedialog1.Execute thenbegin Excel := CreateOleObject('Excel.Application'); Excel.WorkBooks.Add;WorkBook:=Excel.WorkBooks.open(savedialog1.FileName);WorkBook.activeSheet.Range['D2:E2'].Merge;Excel.DisplayAlerts:=False; Excel.ActiveWorkBook.SaveAs('c:/a.xls'); Excel.WorkBooks.Close;end;end;除非去掉自动保存Excel.DisplayAlerts := False; 这一句，否则不能保存由dbgrideh导出的excel表合并单元格后的表

 

R

rgn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-05-12

• #7

到底怎样才能合并单元格且自动保存，就算用Excel.DisplayAlerts := False;这一句，也会有‘选定区域包含多重数值。合并到一个单元格后只能保留最左上角的数据’这个提示又怎样去掉？

 

R

rgn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-06-03

• #8

接受答案了.