Xlsx в проблемах с доступом

Question

В настоящее время я использую Microsoft Access 2003 и отправляю электронные письма с прикрепленными приложениями xls. Возможно ли обновить формат для отправки в xlsx. Оператор docmd, который я использую, не распознает формат, когда меняю acformat на acformatxlsx.

Answer 1

Access 2003 не знает формат XLSX. Вам нужен Access 2007 или выше.

Answer 2

Если Excel пишет XLSX файлы, это может быть сделано:

1. Вы должны работать с объектом Excel.

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

2. Добавить/открыть книгу и сохранить как Xlsx file format: (Acc2003 не знает, постоянная).

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

3. Добавить/открыть рабочий лист.

   Set XlWs = XlWb.Worksheets(1) 
   

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

   xlWS.Range("A1").Select Dim rst as DAO.Recordset, fld as Variant Set rst = CurrentDB.OpenRecordset(TableOrQueryNameOrSELECTstatement) For Each fld In rst.Fields ApXL.Application.ActiveCell = fld.Name ApXL.Application.ActiveCell.Offset(0, 1).Select Next rst.MoveFirst xlWSh.Range("A2").CopyFromRecordset rst XlWb.Save

5. Не забудьте закрыть свои объекты, и установить их в настоящее время.