利用下面这些
a=oExcel.Sheets(1).columns.count'总列数
b=oExcel.Sheets(1).rows.count'总行数
oExcel.ActiveSheet.range(oExcel.ActiveSheet.cells(1,1),oExcel.ActiveSheet.cells(a,b)).select
oExcel.Selection.BorderS.LineStyle = .F.
就可以去掉所有表格线
[此贴子已经被作者于2016-10-8 14:45编辑过]