|
'输出数据到excle中
exclefile = "D:\QTP\reg\reguser"®now&".xls"
Set ExcelObj = CreateObject("Excel.Application")
ExcelObj.Workbooks.Add '增加一个工资表
Set NewSheet = ExcelObj.Sheets.Item(1) '取得新添加的工作表
NewSheet.Name = "reguser" '重命名工作表名字
row = 1 '从第一行开始
NewSheet.Cells(1,1) = "username"
NewSheet.Cells(1,2) = "password"
NewSheet.Cells(2,1) = DataTable("long_name", dtGlobalSheet)®now
NewSheet.Cells(2,2) = DataTable("password", dtGlobalSheet)®now
NewSheet.Columns("A:A").ColumnWidth = 20 '宽度
NewSheet.Columns("A:A").Font.Bold = True '加粗
NewSheet.Columns("B:B").ColumnWidth = 20
NewSheet.Columns("B:B").HorizontalAlignment = -4108 ' 剧中
'保存文件,exclefile为文件路径
ExcelObj.ActiveWorkbook.SaveAs exclefile
ExcelObj.Quit
Set ExcelObj = Nothing
'--------------------------------------------------------------------------------------------
有如上代码,是输出数据到excl文件中,可是实际运行发现,是新建一个文件保存到里面.如果新建的文件存在,会提示是否覆盖
所以我的问题是,
如何做到是添加数据到已经存在的文件中
[ 本帖最后由 onlonely 于 2009-3-31 14:06 编辑 ] |
|