Create list in Sharepoint VBA error RRS feed

  • Question

  • I was able to do this before, not sure what changed, but creating a custom list in Sharepoint 2012 with an excel spreadsheet 2007. Now getting error message and Visual basic opening to the following line (underlined):

    Function PublishToOWS(List, Title, URL, QuickLaunch) As Variant
        On Error GoTo PublishToOWS_ErrHandling
        publishForm.Initialize List, Title, URL, QuickLaunch
        If publishForm.returnCode.Caption = "0" Then
            PublishToOWS = 0
            PublishToOWS = publishForm.returnCode.Caption
        End If

        Exit Function

    I did some reasearch and have modified the EXPTOOWS.XLA files in both Office12 and Office14 folders.

    Sub Initialize(List, Title, URL, QuickLaunch)
        strQuickLaunch = QuickLaunch
        aTarget(iPublishURL) = URL
        aTarget(iPublishListName) = List
        aTarget(iPublishListDesc) = Title
        'lVer = -1 ' can't tell STS server version
        lVer = 2
        If Val(Application.Version) >= 12 Then
            lVer = Application.SharePointVersion(URL)
            lVer = 2
        End If
    End Sub

    Any other suggestions ?

    Thursday, November 28, 2013 7:15 PM