rutledgj
asked on
Doevents question
I am writing a vb.net (2005) app that will automate excel. I have a simple label on a form to act as a status indicator. I'm trying to set the status and wanted to use DoEvents to make it refresh but I can't seem to access that function.
When I place it in the code I get the error: DoEvents is not a member of Microsoft.Office.Interop.E xcel.Appli cation
It seems to be confused as to what the application object is referring to.
When I place it in the code I get the error: DoEvents is not a member of Microsoft.Office.Interop.E
It seems to be confused as to what the application object is referring to.
Private Sub CreateDiscountCalendarHeader()
lblStatus.Text = "Creating SSOI Discount Calendar Header"
Application.Doevents
reportName = "test.xls"
'** create excel report column headers
oXL = CType(CreateObject("Excel.Application"), Excel.Application)
oWB = oXL.Workbooks.Add
With oXL
.Visible = True
End With
oSheet = CType(oWB.Worksheets.Add, Worksheet)
oSheet.PageSetup.Orientation = Excel.XlPageOrientation.xlLandscape
oSheet.PageSetup.PrintGridlines = False
With oXL.ActiveWindow
' .DisplayGridlines = False
' .DisplayHeadings = False
End With
CalDate = Now.ToString
DirectName = "MCLANES"
DirectAddress = "401 N. Main St. Winston-Salem, NC 27320"
SAPContactEmail = "rutledj@rjrt.com"
oSheet.Cells(2, 2) = "Promotional Allowance Calendar Statement For: " & CalDate.ToString
oSheet.Cells(4, 2) = "Calendar Information Distributed to: " & DirectName
oSheet.Cells(4, 8) = DirectAddress
oSheet.Cells(6, 2) = "Sent to: "
oSheet.Cells(6, 4) = SAPContactEmail
oSheet.Cells(8, 2) = "Promotional Allowance rates and brands are subject to change"
oSheet.Cells(10, 2) = "ID#"
oSheet.Cells(10, 6) = "Name"
oSheet.Cells(10, 11) = "Address"
oSheet.Range("B2:K10").Select()
oSheet.Range("B2:K10").Font.Bold = True
oSheet.Range("B2:K10").Font.Underline = True
oSheet.Range("A1").Select()
End Sub
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.