设为首页收藏本站Access中国
Office中国(www.office-cn.net),专业Office论坛

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

返回列表 发新帖
查看: 597|回复: 5

求助,如何使ACCESS导出到EXCEL后,单元格能自动调整宽度

[复制链接]

点击这里给我发消息

发表于 2019-3-28 16:52:30 | 显示全部楼层 |阅读模式
平台的导出按钮代码
Private Sub cmdExport_Click()
On Error GoTo Err_Handler
    Dim strSQL As String
    Dim strExcelName As String
    strSQL = Me.sfmSubForm.Form.RecordSource
   
    '【导出语句】
     
    If InStr(1, strSQL, "Select") = 0 Then strSQL = "select * from " & strSQL & ";"
    If Me.sfmSubForm.Form.FilterOn = True Then
        strSQL = Replace(strSQL, ";", "") '去掉;号
        strSQL = "select * from (" & strSQL & ") as qryA where " & Me.sfmSubForm.Form.Filter
    End If
   
    '【导出结果】
    strExcelName = Me.Caption & Format(Date, "_yyyymmdd")
    gf_ExportToExcelBySql strSQL, strExcelName
    Exit Sub
Err_Handler:
    gf_MsgBox "", errError:=Err
End Sub

怎么能让导出到EXCEL后,单元格自动调整宽度?

点击这里给我发消息

 楼主| 发表于 2019-3-28 17:12:38 | 显示全部楼层
盟威的这个ExportToExcel 函数做得很方便
”说明
此函数实际上就是将打开Excel,复制窗体数据,粘贴到Excel,调整格式,然后保存这一系列的手工操作进行了自动化实现封装。使用复制、粘贴的方式比使用CopyFromRecordset等方式兼容性更好,且可以将Access中的格式一同复制过来。数据复制完成后会进行调整行高列宽、取消网格线显示、添加框线、冻结行首(StartRange所在的行)等格式化处理。“

不知道Office中国的这个gf_ExportToExcelBySql函数是否能做到这样。。。

点击这里给我发消息

 楼主| 发表于 2019-3-29 09:42:52 | 显示全部楼层
有高手能把这个函数改一下吗?
发表于 2019-3-29 14:55:50 | 显示全部楼层
daviee 发表于 2019-3-29 09:42
有高手能把这个函数改一下吗?

这个函数没写出来,没人知道自定义函数的内核代码的。让大家去猜么?
至少要有这个函数的代码,才能根据这个函数来定制或者优化的。你联系下站长或者admin的那个账号吧。

点击这里给我发消息

发表于 2019-3-29 17:04:31 | 显示全部楼层
导出Excel的需求 有很多个性化的需求。可以自己写代码来做,可以对excel进行很完全 的控制的
可以参考这里版主们的源码
http://www.office-cn.net/thread-117269-1-1.html
http://www.office-cn.net/thread-96531-1-1.html
http://www.office-cn.net/thread-96865-1-1.html
http://www.office-cn.net/thread-75418-1-1.html
http://www.office-cn.net/thread-96119-1-1.html

点击这里给我发消息

 楼主| 发表于 2019-3-30 12:00:45 | 显示全部楼层
tmtony 发表于 2019-3-29 17:04
导出Excel的需求 有很多个性化的需求。可以自己写代码来做,可以对excel进行很完全 的控制的
可以参考这里 ...

谢谢!实现的方法有多种,如果能够在这个平台的函数上优化,那就最好不过了!

希望站长或admin管理员能把这个函数代码放出来,或做升级时更新。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

站长推荐上一条 /5 下一条

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2020-8-6 00:44 , Processed in 0.083249 second(s), 32 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表