Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

关于导出excel的问题

xiefei  发表于:2017-10-04 12:29:35  
复制

实例中工件检索查询窗体 里面 通过查询后 想把查询结果导出来,可不可导出来的Excel的名字用查询中的机床号的名字代替。比如查询8, 导出来的Excel就用8来命名。 

请问这个该如果修改下代码??点击下载此附件

 

Top
大海 发表于:2017-10-05 10:49:41
http://www.accessoft.com/article-show.asp?id=11374

仙来 发表于:2017-10-06 11:05:26
DoCmd.RunSQL "Select * INTO [Sheet1] IN 'E:\" & Me.Text2 & " .xls ' 'EXCEL 8.0;' FROM 工件表查询"
  MsgBox "导出成功,文件在E:" & Me.Text2 & ".xls!"

xiefei 发表于:2017-10-11 20:17:04
想用2个中的任意一个命名 Text2或者Text4,改怎么弄?意思就是这2个里面 那个有数据就以哪个命名,如果都有数据就按Text2命名

xiefei 发表于:2017-10-11 22:44:51
  仙来  帮忙看看

仙来 发表于:2017-10-12 09:59:14
 DoCmd.RunSQL "Select * INTO [Sheet1] IN 'E:\" & Me.Text0 & Me.Text2 & Me.Text4 & ".xls' 'EXCEL 8.0;' FROM 工件表查询"

xiefei 发表于:2017-10-12 18:03:46
谢谢

总记录:6篇  页次:1/1 9 1 :