Question

我正在尝试在特定地点保存模板。例如，如果产品具有GnrSerie = 1000，则应该转到该文件夹，然后如果Gnr = E2000，则应该转到该文件夹，然后将文件命名为GnrSerie +“ - ”+ Gnr。

我使用以下代码保存文件：

  .SaveAs "CAN'T SHOW THIS\" & rst![GnrSerie] & "\" & rst![Gnr] & "\" & rst![GnrSerie] & "-" & rst![Gnr], wdFormatDocument

此外，我连接到GnrSerie和Gnr所在的数据库/表格

Dim rst As DAO.Recordset
Dim sql As String
Dim db As Database

Set db = CurrentDb

sql = "SELECT * FROM Projektdata WHERE Sagsnr Like '*" & Forms!Sag_Form!SagNr & "*'"
Set rst = db.OpenRecordset(sql, dbOpenDynaset)

当我运行它时，它会弹出并询问我要保存文件的位置。

Answer 1

您可能还需要指定驱动器：

.SaveAs "D:\CAN'T SHOW THIS\" & rst![GnrSerie] & "\" & rst![Gnr] & "\" & rst![GnrSerie] & "-" & rst![Gnr], wdFormatDocument

使用数据库数据访问SaveAs函数

1 个答案: