数据库有个字段about:
内容是多行的,现在偶输出Excel时只能输出到一个单元格.
希望能自动将每行的内容添加到不同的单元格...
偶用的代码,下面的代码怎么样修改才可以?'建立创见并打开EXCEL对象
Dim excelFile As String
excelFile = App.Path & "\di.xls" 'Excel文件名
'建立EXCEL对象
Dim xlApp As Excel.Application  '定义Excel的Application对象,Application对象相当于Excel程序
Dim xlbook As Excel.Workbook  '定义Excel的Workbook对象,Workbook对象相当于Excel文件
Dim xlsheet As Excel.Worksheet '定义Excel的Worksheet对象,Worksheet对象相当于Excel文件中的一个表
Set xlApp = New Excel.Application '给Application分配内存空间,将其实例化
Set xlApp = CreateObject("Excel.Application") '创建Application对象
xlApp.Visible = True '显示或隐藏被VB打开的Excel程序
Set xlbook = xlApp.Workbooks.Open(excelFile)  '打开工作簿,excelFile为一个EXCEL报表文件
Set xlsheet = xlbook.Worksheets(1)  '打开Excel工作表'打开数据库
xlsheet.Cells(3, 2) = CStr(Adodc1.Recordset.Fields(1))
Exit Sub