Question

我有一个Excel宏从另一个文件中提取数据，然后重新格式化所述数据，最后将所述数据作为新记录添加到Access数据库文件中。我的脚本完全适用于传统的桌面.accdb Access数据库文件，但我希望转换到SharePoint Access Web App。

目前，我的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？我不知道从哪里开始。我环顾四周，但未能找到任何好的信息，特别是考虑到最近由微软推出的新SharePoint。谢谢！

Answer 1

正如您所发现的，当您使用VBA时，Excel和Access可以很好地协同工作。我不认为您可以将您的设置传输到SharePoint。基本上，VBA并不在基于Web的环境中运行;它适用于您的台式机或服务器机器。去年我尝试做你描述的同样的事情。我从来没有工作过。我刚下载了Access DB，运行VBA将数据从Excel移动到Access，然后将数据库发送回SharePoint（签入）。我认为这是你唯一的选择。我很想知道这里是否有人回复证明我错了。

通过VBA从Excel添加记录到Access Web App

1 个答案: