vbscript操作excel文件

fengle 发表于 2007-4-25 16:11:19

我想使用vbscript往excel文件中写入数据，查找了相关的资料，只看到处理文本文件的实例，请问高手能否指教一二。

zoeHuang 发表于 2007-4-25 16:51:39

回复 #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:19

共享

刚才我自己也写了一个简单的往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:55

回复 #3 fengle 的帖子

对的对的，忘了把object最后 =NOTHING了

Sophie.zhang.cs 发表于 2007-4-26 15:37:31

很有用！！用到了！

ancestor 发表于 2007-4-26 20:10:30

不错,谢谢了,我也正需要它了

Sophie.zhang.cs 发表于 2007-4-27 09:48:44

ExcelSheet.Cells(1,1).Value="表格"
昨天做了一下，可是报cell不能识别阿，请问这个该怎么用，要添加什么函数才行的吗？

Sophie.zhang.cs 发表于 2007-4-28 16:26:20

请问这个ExcelSheet.Cells(1,1).Value如何用阿？

intel 发表于 2007-4-29 14:08:04

suggest guys refer to MSDN

skyhen 发表于 2007-4-29 15:23:58

将楼主的代码尝试了一下，楼主的代码还缺少将EXCEL进程关闭的操作。
srcData.quit
objData.quit
楼主的代码还需要加以上这2句话。
加在代码最后面就可以了

songfun 发表于 2007-4-29 17:47:47

其实office里有相关的vba帮助，什么对象什么属性什么方法一应俱全。

TEST_HUAN 发表于 2008-11-3 10:51:58

mark

shaocl520 发表于 2009-4-16 10:27:07

太好了，我正不会呢！结果一搜就看到了强人的回复，太高兴了，呵呵~~~

页: [1]

51Testing软件测试论坛 's Archiver