Piyush
04-23-2015, 01:42 AM
Dear,
Can anybody know why VBA code of Excel 2013 "workbooks.open" not working with Excel 2010?
I found below error. Please let me know.
Error 1: System Error &H80070BBC (-2147021892).
Error 2: Run-timeerror '-2147021892 (80070bbc)':
Automation error
An AddJob call was not issued.
Please find below code that is working fine with Excel 2013 where give errors in Excel 2010
---------------------------------------------------------------------------------------------------------
Sub Update_Click()
Dim path As String
Dim currentWb As Workbook
Dim openWb As Workbook
Dim openWs As Worksheet
path = "C:\Users\20049467\Desktop\KP-I1-0201.xls"
Set currentWb = ThisWorkbook
Set openWb = Workbooks.Open(path)
Set openWs = openWb.Sheets("Cable_Schedule")
openWs.Range("L6") = currentWb.Sheets("Document List").Range("B2")
openWs.Range("L7") = currentWb.Sheets("Document List").Range("C2")
openWs.Range("E19") = currentWb.Sheets("Document List").Range("D6")
ActiveWorkbook.Save
openWb.Close (False)
ActiveSheet.Shapes("CCS").ControlFormat.Value = 0
End Sub
13241
13242
Can anybody know why VBA code of Excel 2013 "workbooks.open" not working with Excel 2010?
I found below error. Please let me know.
Error 1: System Error &H80070BBC (-2147021892).
Error 2: Run-timeerror '-2147021892 (80070bbc)':
Automation error
An AddJob call was not issued.
Please find below code that is working fine with Excel 2013 where give errors in Excel 2010
---------------------------------------------------------------------------------------------------------
Sub Update_Click()
Dim path As String
Dim currentWb As Workbook
Dim openWb As Workbook
Dim openWs As Worksheet
path = "C:\Users\20049467\Desktop\KP-I1-0201.xls"
Set currentWb = ThisWorkbook
Set openWb = Workbooks.Open(path)
Set openWs = openWb.Sheets("Cable_Schedule")
openWs.Range("L6") = currentWb.Sheets("Document List").Range("B2")
openWs.Range("L7") = currentWb.Sheets("Document List").Range("C2")
openWs.Range("E19") = currentWb.Sheets("Document List").Range("D6")
ActiveWorkbook.Save
openWb.Close (False)
ActiveSheet.Shapes("CCS").ControlFormat.Value = 0
End Sub
13241
13242