在VB程序中插入一个EXCEL对象后,该怎么向里面写数据,有没有办法在把它和DATA控件绑定在一起

来源：百度知道 编辑：UC知道 时间：2024/05/29 15:41:49
谢谢,难为你写了这么多代码.我用了下面的办法,比较笨,但觉得很实用.不知道你怎么看
'下面开始向EXCEL里面写记录,分列进行.
For i = 2 To Adodc1.Recordset.RecordCount
Exlsheet.Cells(i, 1) = Adodc1.Recordset.Fields("合同号/订单号") '给单元格i行1列赋值
Adodc1.Recordset.MoveNext
Next i
Adodc1.Recordset.MoveFirst
For i = 2 To Adodc1.Recordset.RecordCount
Exlsheet.Cells(i, 2) = Adodc1.Recordset.Fields("来料名称") '给单元格i行2列赋值
Adodc1.Recordset.MoveNext
Next i
Adodc1.Recordset.MoveFirst
For i = 2 To Adodc1.Recordset.RecordCount
Exlsheet.Cells(i, 3) = Adodc1.Recordset.Fields("生产商") '给单元格i行3列赋值
Adodc1.Recordset.MoveNext
Next i
Adodc1.Recordset.MoveFirst
For i = 2 To Adodc1.Recordset.RecordCount
Exlsheet.Cells(i, 4) = Adodc1.Recordset.Fields("类型") '给单元格i行4列赋值
Adodc1.Recordset.MoveNext
Next i

Private Sub Command1_Click()
Dim Irow, Icol As Integer
Dim Irowcount, Icolcount As Integer
Dim Fieldlen() '"存字段长度值
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
With Data1
.Recordset.MoveLast
If .Recordset.RecordCount < 1 Then
MsgBox ("Error 没有记录!")
Exit Sub
End If
Irowcount = .Recordset.RecordCount '"记录总数
Icolcount = .Recordset.Fields.Count '"字段总数
ReDim Fieldlen(Icolcount)
.Recordset.MoveFirst
For Irow = 1 To Irowcount + 1
For Icol = 1 To Icolcount
Select Case Irow
Ca