请问各高手，下面有错吗？为什么最后一列不能把access的有分行的memo型插入到excel？

[subeggar]

请问各高手，下面有错吗？为什么最后一列不能写入Excel的？
下面sql语句和字段都没错的，只是最后一列是把access的有分行的memo型插入到excel而已，就出问题？如果最好一列换成其他类型的字段就可以了，请问怎么解决？

Set rs = CreateObject("ADODB.Recordset")
sqlStr = " select distinct * from Master where WorkAddress like '%NY%'or WorkAddress like '%NEW YORK%' or WorkAddress like '%New York%' order by id "
rs.Open sqlStr,Conn

dim j
On Error Resume Next
set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false
objExcelApp.Application.Visible = false
objExcelApp.Workbooks.Open("D:\\ECW\\access\\Master.xls") '打开Excel模板
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)

objExcelSheet.cells(1,1).value= "Name"
objExcelSheet.cells(1,2).value= "CorporateTitle"
objExcelSheet.cells(1,3).value= "Company"
objExcelSheet.cells(1,4).value= "Address"

j=2
do while not rs.EOF

'write Excel file
objExcelSheet.cells(j,1).value= LTrim("" & rs.Fields(5) & " " & rs.Fields(2) & "")
Response.Write "OK<br>"
objExcelSheet.cells(j,2).value= "" & rs.Fields(14) & ""
objExcelSheet.cells(j,3).value= "" & rs.Fields(3) & ""
objExcelSheet.cells(j,4).value= "" & trim(rs.Fields(11)) & ""
Response.Write "OK<br>"
j=j+1
rs.MoveNext()
loop
objExcelBook.Save
objExcelApp.Quit
set objExceApp=Nothing
set rs=nothing

[PeterMCT]

没遇到过,如果不是最后一列呢,你把它放到前面去试一下!

[007james]

学习ing！up

[formatkm]

建议把数据库的内容读到变量里，然后再写xsl，因为读入变量会把数据库的内容全部转换成string类型，这样看看还会不会出问题。

[iwodgirl]

支持formatkm(老革) 的想法，试试吧

不懂，学习学习！

[007james]

把objExcelSheet.cells(j,4).value= "" & trim(rs.Fields(11)) & ""
－－－》
temp = "" & trim(rs.Fields(11)) & ""
objExcelSheet.cells(j,4).value= temp

ok!!!!!!!!