vbscript操作excel文件

fengle

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

zoeHuang

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

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

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

Sophie.zhang.cs

很有用！！用到了！

ancestor

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

Sophie.zhang.cs

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

Sophie.zhang.cs

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

intel

suggest guys refer to MSDN

skyhen

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

songfun

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

TEST_HUAN

mark

shaocl520

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