hur.cn - 华软网

 热门搜索

将表格从dw导到excel里的如何保留数据的边框

  作者:未知    来源:网络    更新时间:2018/10/12
我运用dw_1.SaveAsAscii(as_file),将dw里的表格数据导出到excel里面,然则表格的边框没有了,只有数据.由于表格的形式是不固定的,所以我也没法打开excel一个个cell的加边框,请问有没有好的措施,能够在导出数据的同时,在excel里保留dw中的边框,这个边框是在dw里用线画出来的,谢谢.另有个问题,把数据导到excel里,我需要对excel资料举行修改,执行下列命令,可是总是提醒说saveas不对,麻烦大家给看看:

li_rtn=dw_1.SaveAsAscii(as_file2)

// 产生oleobject的实例
xlApp = Create OLEObject

//连接ole对象
ret = xlApp.ConnectToNewObject( "Excel.Sheet" )

if ret < 0  then
MessageBox("连接失利!","连接到EXCEL失利,请确认您的系统是否已经装置EXCEL!~r~n"&
+"毛病代码:"+string(ret))
    return -1
end if
// 打开EXCEL资料
xlApp.Application.Workbooks.Open(as_file2) 

// 获得活开事情表的引用,改善程序性能
xlsub = xlapp.Application.ActiveWorkbook.Worksheets[1]

xlsub.Rows(1).Insert
xlsub.cells[1,5]="报表"
xlsub.Rows(2).Insert
xlsub.cells[2,1]="汇总月份:"
string m_date
m_date=string(today(),"yyyy-mm")

xlsub.cells[2,2]=m_date
xlsub.Rows(3).Insert

xlApp.Application.Workbooks.Saveas(as_file)

xlApp.DisConnectObject()

xlapp.Quit
Destroy xlapp


MessageBox("提醒信息","导出数据成功!")
return 1//success
//
------华软网友回答------

  1.指定边框线宽度(Borders参数以下)

  ole.ActiveSheet.Range(″b3:d3″).Borders(2).Weight=3

  2.设置四个边框线条的类型

  eole.ActiveSheet.Range(″b3:d3″).Borders(2).LineStyle=1

  (其中Borders参数:1-左、2-右、3-顶、4-底、5-斜、6-斜/;LineStyle值:1与7-细实、2-细虚、4-点虚、9-双细实线)

------华软网友回复------
谢谢zhanwei(@_@,最近很忙) ,这类方法我知道,只是表格形式不固定,我不想每导出一次就把excel资料打开,一个格子一个格子的去画边框,有没有能够一种方法能够将dw里数据带边框全数导入excel呢?呵呵
------华软网友回复------
dw2xls,嘿嘿,黄国筹的那个不错的
------华软网友回复------
第一个问题我就一个个的加上边框算了,那么第二个问题,怎么解决呢?怎么总是说saveas犯错,有没有谁知道为什么?      
华软声明:本内容来自网络,如有侵犯您版权请来信指出,本站立即删除。