Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
chrisw01a
in reply to: andy-axium

Andy, what did they do to fix it? I am trying to fix this same issue...

I tried this but now when I try to open the file to edit it, excel just blinks on and off and I cannot do anything with the file:

 

Dim oExcelPath As String = "\\server1\Inventor\Job\Create Projects.xlsx"
	
	Dim oExcel As Object = CreateObject("Excel.Application")
	oExcel.Visible = False
	oExcel.DisplayAlerts = False
	Dim oWB As Object = oExcel.Workbooks.Open(oExcelPath)
	Dim oWS As Object = oWB.Sheets(1) 'Sheet 1
	oWS.Activate()

	'In this sample, when you're getting a cell, the row is first
	MsgBox("Cell A2 is: " & oWS.Cells(2, 1).Value)

'look at the rows A2 thru A50, adjust as needed
'note blank rows are ok
'Dim oList As New ArrayList
'oList = oWS.Cells(2, 1).Value

'' Set a reference to the DesignProjectManager object.
'Dim oDesignProjectMgr As DesignProjectManager
'oDesignProjectMgr = ThisApplication.DesignProjectManager
'Dim oProject As DesignProject

'For Each oNumber In oList
'	' Create a new single user project	
'	oProject = oDesignProjectMgr.DesignProjects.Add(kSingleUserMode, _
'		oNumber, oPath & oNumber & "\")
'Next

	oWB.Close (True)
	oExcel.Quit
	oExcel = Nothing