Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Check a file into SharePoint
I find a value for SaveFile as such:
SaveFile = Left(imgElement.Title, 27) Then I get the path where this file needs to be saved, as such: sPath = ThisWorkbook.Path & "/" & SaveFile Then, I’m trying to check the file into SharePoint, which is something like this: Application.EnableEvents = False wb.CheckIn True, "Update", True Application.EnableEvents = True …but it’s not working. Code fails on this line: wb.CheckIn True, "Update", True Error mssg is: ‘Run-time error 91. Object variable or With block variable not set’ I have some sample code that works fine for opening a Template and saving a (new) file to SharePoint (using a different technique): sPath = strpath & "/" & striName & ".xls" Dim sPathTemp As String Set xlApp = New Excel.Application xlApp.Visible = True sPathTemp = strpath & "/" & "Template.xls" Set wb = xlApp.Workbooks.Open(sPathTemp, , False) xlApp.Workbooks("Template.xls").Worksheets("Sheet1 ").Range("D3") = striName xlApp.Workbooks.Application.CalculateFull buildsavedest = ActiveWorkbook.Path & "/" & striName & ".xls" xlApp.Workbooks("Template.xls").SaveAs buildsavedest I also have code that checks a file into SharePoint; this works just fine: If ThisWorkbook.CanCheckIn = True Then MsgBox "Saving Changes and Checking your File into SharePoint now!!" ThisWorkbook.Save Application.EnableEvents = False ThisWorkbook.CheckIn True, "Update", True Application.EnableEvents = True End If All I need to do is save changes in an Excel file and check that file into SharePoint: File will be saved he sPath = ThisWorkbook.Path & "/" & SaveFile There must be some problem just before the code below, or in the code below, that is not setting the (Worksheet) object: Application.EnableEvents = False wb.CheckIn True, "Update", True Application.EnableEvents = True Any ideas? Thanks for the help!! Ryan-- |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Check a file into SharePoint
On Jul 22, 6:34*pm, ryguy7272 wrote:
I find a value for SaveFile as such: SaveFile = Left(imgElement.Title, 27) Then I get the path where this file needs to be saved, as such: sPath = ThisWorkbook.Path & "/" & SaveFile Then, I’m trying to check the file into SharePoint, which is something like this: Application.EnableEvents = False wb.CheckIn True, "Update", True Application.EnableEvents = True …but it’s not working. *Code fails on this line: wb.CheckIn True, "Update", True Error mssg is: ‘Run-time error 91. Object variable or With block variable not set’ I have some sample code that works fine for opening a Template and saving a (new) file to SharePoint (using a different technique): sPath = strpath & "/" & striName & ".xls" Dim sPathTemp As String Set xlApp = New Excel.Application xlApp.Visible = True sPathTemp = strpath & "/" & "Template.xls" Set wb = xlApp.Workbooks.Open(sPathTemp, , False) xlApp.Workbooks("Template.xls").Worksheets("Sheet1 ").Range("D3") = striName xlApp.Workbooks.Application.CalculateFull buildsavedest = ActiveWorkbook.Path & "/" & striName & ".xls" xlApp.Workbooks("Template.xls").SaveAs buildsavedest I also have code that checks a file into SharePoint; this works just fine: If ThisWorkbook.CanCheckIn = True Then * * MsgBox "Saving Changes and Checking your File into SharePoint now!!" * * ThisWorkbook.Save * * Application.EnableEvents = False * * ThisWorkbook.CheckIn True, "Update", True * * Application.EnableEvents = True End If All I need to do is save changes in an Excel file and check that file into SharePoint: File will be saved he sPath = ThisWorkbook.Path & "/" & SaveFile There must be some problem just before the code below, or in the code below, that is not setting the (Worksheet) object: Application.EnableEvents = False wb.CheckIn True, "Update", True Application.EnableEvents = True Any ideas? Thanks for the help!! Ryan-- Ok, so I (kind of) got this working and I wanted to share my code for the benefit of others. This is how you save a file to SharePoint: sPath = strpath & "/" & SaveFile Dim sPathTemp As String Set xlApp = New Excel.Application xlApp.Visible = True Set WB = xlApp.Workbooks.Open(sPath, , False) xlApp.Workbooks.Application.CalculateFull Application.DisplayAlerts = False buildsavedest = sPath xlApp.Workbooks(SaveFile).SaveAs buildsavedest Application.DisplayAlerts = True SaveFile is parsed, as such: SaveFile = Left(imgElement.Title, 27) That's simply the file that I'm saving. The only thing that's I'm struggling with now is to be able to undo the CheckOut Property (or set the CheckIn Property). Does anyone know how to do this??? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Check a file into SharePoint
On Jul 24, 5:27*pm, ryguy7272 wrote:
On Jul 22, 6:34*pm, ryguy7272 wrote: I find a value for SaveFile as such: SaveFile = Left(imgElement.Title, 27) Then I get the path where this file needs to be saved, as such: sPath = ThisWorkbook.Path & "/" & SaveFile Then, I’m trying to check the file into SharePoint, which is something like this: Application.EnableEvents = False wb.CheckIn True, "Update", True Application.EnableEvents = True …but it’s not working. *Code fails on this line: wb.CheckIn True, "Update", True Error mssg is: ‘Run-time error 91. Object variable or With block variable not set’ I have some sample code that works fine for opening a Template and saving a (new) file to SharePoint (using a different technique): sPath = strpath & "/" & striName & ".xls" Dim sPathTemp As String Set xlApp = New Excel.Application xlApp.Visible = True sPathTemp = strpath & "/" & "Template.xls" Set wb = xlApp.Workbooks.Open(sPathTemp, , False) xlApp.Workbooks("Template.xls").Worksheets("Sheet1 ").Range("D3") = striName xlApp.Workbooks.Application.CalculateFull buildsavedest = ActiveWorkbook.Path & "/" & striName & ".xls" xlApp.Workbooks("Template.xls").SaveAs buildsavedest I also have code that checks a file into SharePoint; this works just fine: If ThisWorkbook.CanCheckIn = True Then * * MsgBox "Saving Changes and Checking your File into SharePoint now!!" * * ThisWorkbook.Save * * Application.EnableEvents = False * * ThisWorkbook.CheckIn True, "Update", True * * Application.EnableEvents = True End If All I need to do is save changes in an Excel file and check that file into SharePoint: File will be saved he sPath = ThisWorkbook.Path & "/" & SaveFile There must be some problem just before the code below, or in the code below, that is not setting the (Worksheet) object: Application.EnableEvents = False wb.CheckIn True, "Update", True Application.EnableEvents = True Any ideas? Thanks for the help!! Ryan-- Ok, so I (kind of) got this working and I wanted to share my code for the benefit of others. *This is how you save a file to SharePoint: sPath = strpath & "/" & SaveFile Dim sPathTemp As String Set xlApp = New Excel.Application xlApp.Visible = True Set WB = xlApp.Workbooks.Open(sPath, , False) xlApp.Workbooks.Application.CalculateFull Application.DisplayAlerts = False buildsavedest = sPath xlApp.Workbooks(SaveFile).SaveAs buildsavedest Application.DisplayAlerts = True SaveFile is parsed, as such: SaveFile = Left(imgElement.Title, 27) That's simply the file that I'm saving. The only thing that's I'm struggling with now is to be able to undo the CheckOut Property (or set the CheckIn Property). *Does anyone know how to do this???- Hide quoted text - - Show quoted text - As it turns out, this seems to do the trick: xlApp.Workbooks(SaveFile).SaveAs buildsavedest xlApp.Workbooks(SaveFile).CheckIn SaveChanges:=True, _ Comments:="" Hope this helps others… |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Check out Excel file from SharePoint; if no other Excel file is op | Excel Programming | |||
Upload file to SharePoint from machine with CAC | Excel Programming | |||
Sharepoint: How do I upload Excel (2003) Reports to Sharepoint? | Excel Programming | |||
Excel links & SharePoint 3.0 (worked fine with SharePoint 2.0) | Excel Discussion (Misc queries) | |||
Sharepoint File Dialog | Excel Programming |