| 发表于:2007-12-14 11:54:124楼 得分:0 |
怎么就没法设置,我来告诉你吧! dim myexcel as new excel.application myexcel.workbooks.add '新建excel文档 'myexcel.workbooks.open (app.path & "\test.xls ") '打开现有文档 myexcel.visible = false myexcel.displayalerts = false '关闭警告 '添加边框 myexcel.range( "a1 ", "c3 ").borders.linestyle = 1 myexcel.range( "a1 ", "c3 ").borders.color = rgb(255, 0, 0) myexcel.range( "d1 ").columnwidth = 20 '列宽 myexcel.range( "d4 ").rowheight = 20 '行高 myexcel.activeworkbook.saveas app.path & "\test.xls " '另存为 'myexcel.activeworkbook.save '直接保存 myexcel.workbooks.close '关闭文档 myexcel.quit '退出excel程序 | | |
|