在c#中調用excel時如何合並單元格啊,在程式中動態的合並,如把A1:A20全部合並為一個單元格啊,在線等,急解!

[jimmyzhang]

excel中的其它的設置?用vbscript的控制單元格合並的例子啊?
請高手指點

[jimmyzhang]

up一下,急啊!

高手們指點啊

[FireFox117]

object optional = System.Reflection.Missing.Value ;
Excel.ApplicationClass ExcelApp = new Excel.ApplicationClass();
ExcelApp.Visible = true;
Excel.Workbook wBook = ExcelApp.Workbooks.Add(optional);
Excel.Worksheet wSheet = (Excel.Worksheet)ExcelApp.ActiveSheet ;
Excel.Range r = wSheet.get_Range("A1","A20");
r.Select();
ExcelApp.ActiveCell.FormulaR1C1 = "Test";
r.Merge(optional);
ExcelApp.Workbooks.Close();
ExcelApp.Quit();

[FireFox117]

快点给分吧！！！

[ffj521]

<script language="vbscript">
Sub PrintReport
<%
SqlConnection conn=new SqlConnection("server=192.168.0.1;database=SystemService;user id=Fan;password=123");
String sql="Select SysService.OrderNo,Factory,Department,SystemName,Quality,OrderDate,Item,Question,Method,ProcessTime from SysService,Question where SysService.OrderNo=Question.OrderNo and SysService.OrderNo='"+OrderNo.Text+"'";
SqlDataAdapter ada=new SqlDataAdapter(sql,conn);
System.Data.DataTable table=new System.Data.DataTable();
ada.Fill(table);
%>
Set xlApp=CreateObject("Excel.Application")
Set xlBook=xlApp.Workbooks.Open("http://192.168.0.16/SysService1/Source/SysService.xls")
Set xlSheet1=xlBook.ActiveSheet
xlSheet1.Application.Visible=True
Excel.Range r = wSheet.get_Range("A1","A20"); r.Select();
ExcelApp.ActiveCell.FormulaR1C1 = "";
r.Merge(optional);

[jimmyzhang]

不行啊,有問題的,那位高手指點一下啊!

[rengang11]

Excel.Application oXL;
Excel._Workbook oWB;
Excel._Worksheet oSheet;
oXL = new Excel.Application();
oXL.Visible = true;
//Get a new workbook.
oWB = (Excel._Workbook)(oXL.Workbooks.Add( Missing.Value ));
oSheet = (Excel._Worksheet)oWB.ActiveSheet;
//合并单元格
oSheet.get_Range(oSheet.Cells[icount,1],oSheet.Cells[icount,3]).Merge(false);
绝对没问题

[rengang11]

sorry，最后一句
oSheet.get_Range(“A1”,“B4”).Merge(false);