Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 593
  • Last Modified:

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.Excel.Application

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

Open in new window

0
rutledgj
Asked:
rutledgj
1 Solution
 
AanvikCommented:
Change Application.DoEvents with following.
System.Windows.Forms.Application.DoEvents


0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

What Kind of Coding Program is Right for You?

There are many ways to learn to code these days. From coding bootcamps like Flatiron School to online courses to totally free beginner resources. The best way to learn to code depends on many factors, but the most important one is you. See what course is best for you.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now