关于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

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