Xlsx在访问问题

Question

我目前使用Microsoft Access 2003并发送带有xls附件的电子邮件。是否可以更新要在xlsx中发送的格式。当我将acformat更改为acformatxlsx时，我使用的docmd语句无法识别格式。

Answer 1

Access 2003不知道XLSX格式。您需要Access 2007或更高版本。

Answer 2

如果你的Excel写了Xlsx文件，可以这样做：

1. 您必须使用Excel对象。

   $http

2. 添加/打开工作簿，并保存为Xlsx file format： 51 （Acc2003不知道常量）。

   Dim ApXl as Object, XlWb as Object, XlWs as Object
   Dim TableOrQueryNameOrSELECTstatement as String
   Set ApXl = CreateObject("Excel.Application")
   

3. 添加/打开工作表。

   Set XlWb = ApXL.Application.Workbooks.Add
   XlWb.SaveAs strFilePath, 51
   

4. Open a DAO.Recordset, and send it to the worksheet, and save it

   Set XlWs = XlWb.Worksheets(1)

5. 不要忘记关闭对象，并将它们设置为Nothing。