导出EXCEL

rmomo

我想将表中所有的查询导出EXCEL到一个以当天为日期的目录中,.这个目录是自动新建的,这个该怎么做呢?

roych

导出之前要用FileSystemObject来创建文件夹，这个需要引用Microsoft Scripting Runtime库。大体代码如下：
Sub 导出数据()

1. Sub 导出数据()
   
2. '定义文件系统对象
   
3. Dim fso As FileSystemObject
   
4. '定义日期字符串
   
5. Dim strDate As String
   
6. '创建新的文件系统对象
   
7. Set fso = New FileSystemObject
   
8. '获取日期文件夹字符串（也可以用Format(date,"YYYY-MM-DD"来获取）。
   
9. strDate = Year(Date) & "-" & Month(Date) & "-" & Day(Date)
   
10. '如果存在这个文件夹则先行删除，否则后面无法创建文件夹。
    
11. If fso.FolderExists("D:" & strDate) Then
    
12. fso.DeleteFolder ("D:" & strDate)
    
13. End If
    
14. '在D盘下创建文件夹。
    
15. fso.CreateFolder ("D:" & strDate)
    
16. '把数据表“导出结果”导出到D盘日期文件夹下。
    
17. DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "导出结果", "D:" & strDate & "\测试表.xls"
    
18. End Sub

复制代码