Dim hoy As String
hoy = "SELECT 发票抬头, 购买旺旺, 打印时间 AS 发出日期, 发票种类, 寄信方式, 收件人, 收件人联系方式, 金额, 母单号 " & _
“INTO [Excel 12.0 Xml;DATABASE=C:\Users\yjy\Desktop” & cb_列项 & “发票名单.xlsx].[” & cb_列项 & "] " & _
"FROM tbl_寄出发票 " & _
"WHERE 打印时间 = Date() "
DoCmd.RunSQL exporter_hoy