我有一个 Excel 宏,它从另一个文件中提取数据,然后重新格式化所述数据,最后将所述数据作为新记录添加到 Access 数据库文件中。我的脚本非常适合传统桌面 .accdb Access 数据库文件,但我希望过渡到 SharePoint Access Web 应用程序。
目前,我的 Excel VBA 脚本如下所示:
dbPath = "C:\Some\Path\MyDatabase.accdb"
Set wsDAO = DBEngine.Workspaces(0)
Set dbDAO = wsDAO.OpenDatabase(dbPath)
Set rsDAO = dbDAO.OpenRecordset(TableName)
RecordCount = UBound(ExportValues)
FieldCount = rsDAO.Fields.Count
ReDim ExportArray(1 To RecordCount, 1 To n)
For r = 1 To RecordCount
ExportArray(r, 1) = Stuff
.
.
.
ExportArray(r, n) = StuffN
Next r
For records = 1 To RecordCount
If records = 1 Then
rsDAO.AddNew
Else
rsDAO.Update
rsDAO.AddNew
End If
For n = 1 To FieldCount - 1
rsDAO.Fields(n).Value = ExportArray(records, n)
Next n
Next records
rsDAO.Update
rsDAO.Close
dbDAO.Close
如何修改它以访问和更新 Access Web App?我不知道从哪里开始。我环顾四周,但找不到任何好的信息,尤其是考虑到 Microsoft 最近推出的新 SharePoint。谢谢!