数据库有个字段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
内容是多行的,现在偶输出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
解决方案 »
- 80分hex acs函数问题
- 求一个压缩和解压文件文件或文件夹的的例子。。。
- VB高手来!挑战性的来了!VB设计网络程序的一个大难题~~~剩80分全给第1个解决得了的人!
- 如何读写二进制文件
- toolbar问题,象IE浏览里,后退按钮后面有个倒三角样的效果怎么做
- 发布一个ocx的报表控件,呵呵,非常适合制作中国式的那种报表
- 哪位大侠知道如何用递归获得某个磁盘的目录和文件,并且知道该目录或文件是属于第几层的?
- VB 编写ActiveX控件 怎么让控件在运行时是不可见的,比方像Timer控件,只有一个外观,不可以改变大小,运行时不可见
- 确定list控件上的上下点击按钮x,y的具体值?
- 关于ComboBox的一点疑难!!
- 这个VC接口函数怎么转换成VB的
- 关于记录集的初级问题求教?
你让excel自动换行就可以了啊.