Access VBA自动化能够将Word文档保存到Sharepoint，但无法保存Excel电子表格。_网络技术

Access VBA自动化能够将Word文档保存到Sharepoint，但无法保存Excel电子表格。

创始人

2024-05-16 01:05:10

0次

以下是使用Access VBA自动化将Word文档保存到SharePoint的代码示例：

Option Compare Database
Option Explicit

Sub SaveWordToSharePoint()

    Dim objWord As Object
    Dim objDoc As Object
    Dim strSharePointURL As String
    Dim strFileName As String
    
    ' 设置SharePoint站点URL
    strSharePointURL = "http://sharepointsite.com/sites/yourSite/"
    
    ' 设置要保存的Word文档文件名
    strFileName = "Document.docx"
    
    ' 创建Word应用程序对象
    Set objWord = CreateObject("Word.Application")
    
    ' 打开Word文档
    Set objDoc = objWord.Documents.Open("C:\Path\To\Your\Word\Document.docx")
    
    ' 保存Word文档到SharePoint
    objDoc.SaveAs2 strSharePointURL & strFileName
    
    ' 关闭Word文档
    objDoc.Close
    
    ' 退出Word应用程序
    objWord.Quit
    
    ' 释放对象变量
    Set objDoc = Nothing
    Set objWord = Nothing
    
    MsgBox "Word文档已保存到SharePoint。"
    
End Sub

然而，Access VBA无法直接将Excel电子表格保存到SharePoint。为了在Access VBA中自动化保存Excel电子表格到SharePoint，你可以使用以下替代方法：

将Excel电子表格保存为Word文档，然后使用上述代码将Word文档保存到SharePoint。

' 将Excel电子表格保存为Word文档
objExcel.ActiveSheet.SaveAs "C:\Path\To\Your\Excel\Workbook.docx", FileFormat:=wdFormatDocumentDefault

将Excel电子表格保存为PDF文件，然后使用上述代码将PDF文件保存到SharePoint。

' 将Excel电子表格保存为PDF文件
objExcel.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Path\To\Your\Excel\Workbook.pdf"

通过这些方法，你可以在Access VBA中自动化将Excel电子表格保存到SharePoint。

上一篇：Access VBA中，Docmd.OpenQuery可以运行更新查询，但Currentdb.Excecute不能。

下一篇：Access VBA：我能够使用“自适应大小”将A4报表打印到A3纸张上吗？

Access VBA自动化能够将Word文档保存到Sharepoint，但无法保存Excel电子表格。

相关内容

热门资讯