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();
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();
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);
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);
绝对没问题
oSheet.get_Range(“A1”,“B4”).Merge(false);