04-19-2022
04:56 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
04-19-2022
04:56 AM
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