数据库导出到excel出错了解决方法

数据库导出到excel出错了
Dim   objExlBok   As   New   Excel.Workbook
Dim   objExlSht   As   New   Excel.Worksheet
Dim   objExlApp   As   New   Excel.Application
 
        Set   objExlBok   =   objExlApp.Workbooks.Add
        Set   objExlSht   =   objExlBok.Sheets(1)
     
txtsql= "select   *   from   表名 "
set   mrc=executesql(txtsql,msgtext)

下面是把
objExlsht.cells()=mrc.fileds() '这句不会了
如何解决
就是让excel内容变成表的内容

[解决办法]
Excel表格的列宽不够,你加大列宽即可
[解决办法]
在日期前面加个 ' 既可
[解决办法]
设置列宽使之最合适，比如D列：
Columns( "D:D ").EntireColumn.AutoFit
[解决办法]
其实把 Excel 当作外部数据库来读写要简单得多。