分页符

首先,须在项目里引用: 添加引用->Com->Microsoft Excel 9.0 Object Library （这是EXCEL2000） 1 打开Excel： dim myexcel as new Excel.Application() myexcel.visible=true 2 添加新的工作簿： myexcel.Workbooks.add() 3 设定第二个工作表为活动工作表： myexcel.worksheets(2).Acivate() 4 打开指定的Excel文件： myexcel.workbooks.open("c:\my.xls") 5 显示Excel窗口： myexcel.visible=true 6 更改Excel的标题栏： myexcel.caption="欢迎,欢迎!" 7 为Excel的单元格赋值： myexcel.cells(1,4).value=100 此语句使Excel当前工作表的第一行第四列,即D1单元格等于100, 也可以这样写: myexcel.Range("D1").value=100 8 设置指定列的宽度(单位:字符个数)： myexcel.ActiveSheet.colums(1).columnwidth=20 设定当前工作表第1列的宽度为20 9 设置指定行的高度(单位:磅)： myexcel.ActiveSheet.rows(1)

本人使用的是Excel2000,须在项目里引用: 添加引用->Com->Microsoft Excel 9.0 Object Library 1 打开Excel dim myexcel as new Excel.Application() myexcel.visible=true 2 添加新的工作簿 myexcel.Workbooks.add() 3 设定第二个工作表为活动工作表 myexcel.worksheets(2).Acivate() 4 打开指定的Excel文件 myexcel.workbooks.open("c:\my.xls") 5 显示Excel窗口 myexcel.visible=true 6 更改Excel的标题栏 myexcel.caption="欢迎,欢迎!" 7 为Excel的单元格赋值 myexcel.cells(1,4).value=100 此语句使Excel当前工作表的第一行第四列,即D1单元格等于100, 也可以这样写: myexcel.Range("D1").value=100 8 设置指定列的宽度(单位:字符个数) myexcel.ActiveSheet.colums(1).columnwidth=20 设定当前工作表第1列的宽度为20 9 设置指定行的高度(单位:磅) myexcel.ActiveSheet.rows(1).rowHeight