0

私の PC が Office 2010 にアップグレードされるまで、Access 2007 データベースに関数があり、これは正常に動作していました。手順は以下のとおりで、問題のある行は「originalFolder」が設定されている場所です。

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: データ型の不一致

必要に応じて、これは文字列であるため、私は当惑していますか?

4

1 に答える 1

0

Microsoft のドキュメントには、GetFolder戻り値の型が であると記載されていますが、遅延バインディング ( 経由) と早期バインディング (厳密に型指定された Folder 変数経由)Folderが混在しているために問題が発生していると思われます。 参照をインポートして呼び出しを回避するか、タイプをバリアントまたはオブジェクトに変更します。CreateObject
CreateObject

Dim originalFolder As variant
于 2013-03-27T15:44:28.990 に答える