J
Jordan
I put a computer on the network about a month or two ago and installed
Office Basic 2003. I deployed an Access 2003 runtime and my app just like I
did on 50 other computers using Windows Group Policies to deploy so all
computers should be the same.
Now on just this one computer when I run the code below which starts Excel,
creates a new workbook, etc. I get a message telling me that I cannot use
that feature because it expired. Also, a program create by one of the
engineering team that uses LabView to program is experiencing the same
problem trying to do a similar process via an ActiveX control.
Because this computer has been on the network only a couple of month and the
message is about expiration I naturally assume that there is an issue with
the MS Office Activation process, but when I go to Word, Excel, or Outlook
to activate it tells me that it is already activated - as I already know.
Dim objXL As Object
Dim strWhat As String, boolXL As Boolean
Dim objActiveWkb As Object
Set objXL = CreateObject("Excel.Application")
objXL.Application.Visible = True
objXL.Application.Workbooks.Add
Set objActiveWkb = objXL.Application.ActiveWorkbook
objActiveWkb.Application.ActiveSheet.Paste
objActiveWkb.Application.ActiveSheet.Cells.EntireColumn.AutoFit
Office Basic 2003. I deployed an Access 2003 runtime and my app just like I
did on 50 other computers using Windows Group Policies to deploy so all
computers should be the same.
Now on just this one computer when I run the code below which starts Excel,
creates a new workbook, etc. I get a message telling me that I cannot use
that feature because it expired. Also, a program create by one of the
engineering team that uses LabView to program is experiencing the same
problem trying to do a similar process via an ActiveX control.
Because this computer has been on the network only a couple of month and the
message is about expiration I naturally assume that there is an issue with
the MS Office Activation process, but when I go to Word, Excel, or Outlook
to activate it tells me that it is already activated - as I already know.
Dim objXL As Object
Dim strWhat As String, boolXL As Boolean
Dim objActiveWkb As Object
Set objXL = CreateObject("Excel.Application")
objXL.Application.Visible = True
objXL.Application.Workbooks.Add
Set objActiveWkb = objXL.Application.ActiveWorkbook
objActiveWkb.Application.ActiveSheet.Paste
objActiveWkb.Application.ActiveSheet.Cells.EntireColumn.AutoFit