Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
?
Solved

Doevents question

Posted on 2009-05-13
1
Medium Priority
?
572 Views
Last Modified: 2012-05-06
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
Comment
Question by:rutledgj
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
1 Comment
 
LVL 5

Accepted Solution

by:
Aanvik earned 2000 total points
ID: 24378631
Change Application.DoEvents with following.
System.Windows.Forms.Application.DoEvents


0

Featured Post

Keep up with what's happening at Experts Exchange!

Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Make the most of your online learning experience.
Q&A with Course Creator, Mark Lassoff, on the importance of HTML5 in the career of a modern-day developer.
An introduction to basic programming syntax in Java by creating a simple program. Viewers can follow the tutorial as they create their first class in Java. Definitions and explanations about each element are given to help prepare viewers for future …
Simple Linear Regression

618 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question