各位大哥,懂VB的来帮下忙吧!!!

来源：百度知道 编辑：UC知道 时间：2024/05/23 15:48:05
'申明变量
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject( "Excel.Application ")
'使用模板
Set xlBook = xlApp.Workbooks.Open(App.Path & "\普通.xls ")
On Error GoTo 0
Set xlSheet = xlBook.Worksheets(1)
xlApp.Visible = False
xlSheet.Activate

'处理数据,填充Excel表
xlSheet.Cells(3, 4) = TextQuery.Text '产品名称
……

'//////////////

xlApp.Visible = True '显示表格
Set xlApp = Nothing '交还控制给Excel
Set xlBoook = Nothing
Set xlSheet = Nothing

其中 Set xlBook = xlApp.Workbooks.Open(App.Path & "\普通.xls ")
我怎么改为创建一

'创建Excel文件

Private Sub Command1_Click()
Dim xls As Object
On Error GoTo createErr:
Set xls = CreateObject("Excel.Application")
xls.Workbooks.Add
xls.Workbooks(1).SaveAs App.Path & "\test.xls"
xls.Workbooks(1).Close
xls.Quit
Set xls = Nothing
Exit Sub
createErr:
MsgBox Err.Description
Set xls = Nothing
End Sub

让Adodc1对应的字段赋给excel,如果字段名是完全一样的，那可以将EXCEL作为一个数据库，每个工作薄作为一个表，第一行的每一列作为字段名。然后连接这个EXCEL文件进行数据赋值就行了。
但是如果字段名不是完全一样，但是字段顺序是和表里面的字段顺序是一样的，那也可以用上面的方法来操作。
如果字段名不一样，并且字段顺序也不一样的话，那就要麻烦一些了，因为要设置哪个字段，对应文件中的哪一列。

1.Set xlBook = xlApp.Workbooks.add()

2.xlSheet.Cells(3, 4)=Adodc1.Recordset.Fields ("字段")