标题: 关于vbs操作excel [打印本页] 作者: 辉煌星空 时间: 2011-4-10 15:23 标题: 关于vbs操作excel 如何将数据插入excel中，比如读到的第一个数据写入到excel的第一行第一列，读到的第二个数据写入到excel的第二行第一列，以此类推，每读到一个数据就写入第一列中，是应该用循环嘛？我现在的代码如下：
str =Obj.GetSubItem(iItems ,4)
Set xlfile=CreateObject("EXCEL.Application")
Set xlwork=xlfile.Workbooks.Open("E:\user.xlsx")
Set xlsheet=xlwork.Sheets ("sheet1")
xlsheet.Cells(1,1).Value="UserIDX"
xlsheet.Cells(x,1).Value=str
xlwork.Save
xlwork.Close
xlfile.quit
Set xlfile=Nothing
Set xlwork=Nothing
Set xlsheet=Nothing作者: xuechangxu 时间: 2011-4-11 19:03
Set xlfile=CreateObject("EXCEL.Application")
Set xlwork=xlfile.Workbooks.Open("E:\user.xlsx")
Set xlsheet=xlwork.Sheets ("sheet1")
xlfile.Cells(1,1).Value="UserIDX"
For i=2 To 10
xlfile.Cells(i,1).Value="str" '可以用变量替换
Next
xlwork.Save
xlwork.Close
xlfile.quit
Set xlfile=Nothing
Set xlwork=Nothing
Set xlsheet=Nothing