我在Access 2007数据库中有一项功能,在我的PC升级到Office 2010之前它一直正常工作。该过程如下,并且违规行是设置了'originalFolder'的行:VBA转换Office 2007到Office 2010
Function ExportToSharePoint()
Dim oFs As New FileSystemObject
Dim originalFolder As Folder
Dim destinationPath As String
Dim ofile As file
Dim XLApp As Excel.Application
Dim xlwb As Excel.Workbook
Dim strFileName As String
Dim oFolder As String
oFolder = "//chs114file1/dovpasres/Public/Script/InfoCentre/Delays"
Set oFs = CreateObject("Scripting.FileSystemObject")
Set XLApp = New Excel.Application
Kill "K:\Public\Script\InfoCentre\Delays\*.xlk"
Set originalFolder = oFs.GetFolder(oFolder)
destinationPath = "https://companyname.sharepoint.com/PRR/Documents/"
For Each ofile In originalFolder.Files
strFileName = oFs.GetFileName(ofile)
Set xlwb = XLApp.Workbooks.Open(ofile)
xlwb.SaveAs (destinationPath + strFileName)
Next
xlwb.Close True
XLApp.Quit
Set xlwb = Nothing
Set XLApp = Nothing
End Function
我得到的错误是:
错误13:数据类型不匹配
我感到迷惑,这是一个字符串,如热曲IRED?
什么错误信息你好吗? – Geoff 2013-03-27 15:20:35
您是否检查缺少的参考?调试?压实和修复? – Fionnuala 2013-03-27 15:21:26
另外,权限? – Geoff 2013-03-27 15:25:17