51Testing软件测试论坛

标题: vbscript操作excel文件 [打印本页]

作者: fengle 时间: 2007-4-25 16:11
标题: vbscript操作excel文件
我想使用vbscript往excel文件中写入数据，查找了相关的资料，只看到处理文本文件的实例，请问高手能否指教一二。

作者: zoeHuang 时间: 2007-4-25 16:51
标题: 回复 #1 fengle 的帖子
Eg: 把DATATABLE里面的数据写入到一个excel中

1，导出DATATABLE，创建目的和源对象
set srcData = CreateObject("Excel.Application")
set objData = CreateObject("Excel.Application")
srcData.Visible = false
objData.Visible = false
on error resume next
DataTable.Export("C:\Temp\"name".xls") //这里自己定义导出excel文件的名字和位置
set srcDoc = srcData.Workbooks.Open("C:\temp\“name”.xls")//打开导出的excel文件
srcDoc.Worksheets("sheetname").Activate//激活需要操作的sheet
set objDoc = objData.Workbooks.Open("C:\“objexcel".xls") //打开目的地excel，也就你想写到的excel文件的名字
objlDoc.Worksheets("sheetname").Activate //激活需要写入的sheet

2.操作具体的cell
While j<20
For k = 1 to 15
objDoc.Worksheets("sheetname").Cells(j,k).value = srcDoc.Worksheets("sheetname").Cells(i,k).value
   next
      j = j+1
      i = i+1
wend

这里i,j的值要看具体需要操作那些cell了

希望这些能够有所帮助

作者: fengle 时间: 2007-4-25 17:05
标题: 共享
刚才我自己也写了一个简单的往excel文件写入数值的代码，希望和用到的朋友共享，并且谢谢楼上提供的建议！
Dim ExcelApp,ExcelBook,ExcelSheet

Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Visible=True

Set ExcelBook = ExcelApp.Workbooks.Add
Set ExcelSheet = ExcelBook.WorkSheets(1)

ExcelSheet.Cells(1,1).Value="表格"

ExcelSheet.SaveAs "E:\result.xls"
ExcelSheet.Application.Quit
Set ExcelSheet = Nothing

作者: zoeHuang 时间: 2007-4-25 17:12
标题: 回复 #3 fengle 的帖子
对的对的，忘了把object最后 =NOTHING了

作者: Sophie.zhang.cs 时间: 2007-4-26 15:37
很有用！！用到了！

作者: ancestor 时间: 2007-4-26 20:10
不错,谢谢了,我也正需要它了

作者: Sophie.zhang.cs 时间: 2007-4-27 09:48
ExcelSheet.Cells(1,1).Value="表格"
昨天做了一下，可是报cell不能识别阿，请问这个该怎么用，要添加什么函数才行的吗？

作者: Sophie.zhang.cs 时间: 2007-4-28 16:26
请问这个ExcelSheet.Cells(1,1).Value如何用阿？

作者: intel 时间: 2007-4-29 14:08
suggest guys refer to MSDN

作者: skyhen 时间: 2007-4-29 15:23
将楼主的代码尝试了一下，楼主的代码还缺少将EXCEL进程关闭的操作。
srcData.quit
objData.quit
楼主的代码还需要加以上这2句话。
加在代码最后面就可以了

作者: songfun 时间: 2007-4-29 17:47
其实office里有相关的vba帮助，什么对象什么属性什么方法一应俱全。

作者: TEST_HUAN 时间: 2008-11-3 10:51
mark

作者: shaocl520 时间: 2009-4-16 10:27
太好了，我正不会呢！结果一搜就看到了强人的回复，太高兴了，呵呵~~~

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)