我有个程序需要用VB将从PLC采集的数据保存到EXCEL中,谁能发个原代码给我,谢谢!!!shgzldy@

LZ这几天的问题还是没解决？

Set MyApp = CreateObject("Excel.Application")
MyApp.Visible = False   
Set MyBook = MyApp.Workbooks.Add()
Set MySheet = MyBook.Worksheets(1)
'*************写列头标题***********************
For k = 1 To Rs.Fields.Count
    Strcell = Rs.Fields(k).Name
    MySheet.Cells(1, k) = StrCell
Next
'***************写行内容***********************
j = 2
Do Until Rs.EOF
     For i = 1 To Rs.Fields.Count
             MySheet.Cells(j, i) = Rs.Fields(i - 1)
     Next
     Rs.MoveNext
     j = j + 1
Loop

这是个从ACCESS读取后写入EXCEL的例子，自己参考

楼上的高手，能不能再说清楚些
我是新手，不太理解
谢谢！

如果LZ对xls操作有问题，建议LZ保存为txt