Ms access Xlsx在访问问题中的应用

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

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

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

如果您的Excel写入Xlsx文件，可以通过以下方式完成：

您必须使用Excel对象

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

添加/打开工作簿，并另存为：51（Acc2003不知道常数）

添加/打开工作表

Set XlWs = XlWb.Worksheets(1)

xlWS.Range（“A1”）。选择
尺寸rst作为DAO。记录集，fld作为变量
Set rst=CurrentDB.OpenRecordset（TableOrQueryNameOrSELECTstatement）
对于rst.字段中的每个fld
ApXL.Application.ActiveCell=fld.Name
ApXL.Application.ActiveCell.Offset（0，1）。选择
下一个
rst.MoveFirst
xlWSh.Range（“A2”）.CopyFromRecordset rst
XlWb.保存

不要忘记关闭对象，并将其设置为“无”

---

如果您的Excel写入Xlsx文件，则可以执行以下操作：

您必须使用Excel对象

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

添加/打开工作簿，并另存为：51（Acc2003不知道常数）

添加/打开工作表

Set XlWs = XlWb.Worksheets(1)

xlWS.Range（“A1”）。选择
尺寸rst作为DAO。记录集，fld作为变量
Set rst=CurrentDB.OpenRecordset（TableOrQueryNameOrSELECTstatement）
对于rst.字段中的每个fld
ApXL.Application.ActiveCell=fld.Name
ApXL.Application.ActiveCell.Offset（0，1）。选择
下一个
rst.MoveFirst
xlWSh.Range（“A2”）.CopyFromRecordset rst
XlWb.保存

不要忘记关闭对象，并将其设置为“无”

---

在不升级访问权限的情况下，是否可以绕过该选项？我已将电子邮件附件的格式更改为html，但从黑莓手机查看时，该格式不起作用。广告1：否。广告2：那么，不要使用html格式或黑莓手机。在不升级访问权限的情况下，是否可以绕过该格式？我已将电子邮件附件的格式更改为html，但从黑莓手机查看时无法使用。广告1：否。广告2：那么，不要使用html格式或黑莓手机。你可以在Excel中读取/写入xlsx文件吗？如果可以，可以，我可以…可以解释一下Excel写入xlsx文件的含义吗？我发送的电子邮件是access查询的一部分。您能在Excel中将文件另存为xlsx吗？双击xlsx文件并在Excel中打开它？请阅读：。看看你是否应该。你能在你的Excel中读/写xlsx文件吗？如果你能，这是可以做到的，我做到了…能解释一下你所说的Excel写xlsx文件是什么意思吗？我发送的电子邮件是access查询的一部分。您能在Excel中将文件另存为xlsx吗？双击xlsx文件并在Excel中打开它？请阅读：。如果你运行Excel2007或更新版本，这段代码应该运行得很好。如果没有，请注意。更多关于它。如果没有此兼容包，早期的excel将无法以xslx格式保存文件。如果您运行excel 2007或更新版本，此代码将正常运行。如果没有，请注意。更多关于它。没有此兼容包，早期的excel无法以xslx格式保存文件。