Solved

Doevents question

Posted on 2009-05-13
1
510 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
1 Comment
 
LVL 5

Accepted Solution

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


0

Featured Post

Enabling OSINT in Activity Based Intelligence

Activity based intelligence (ABI) requires access to all available sources of data. Recorded Future allows analysts to observe structured data on the open, deep, and dark web.

Join & Write a Comment

This is an explanation of a simple data model to help parse a JSON feed
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
In this fifth video of the Xpdf series, we discuss and demonstrate the PDFdetach utility, which is able to list and, more importantly, extract attachments that are embedded in PDF files. It does this via a command line interface, making it suitable …
In this seventh video of the Xpdf series, we discuss and demonstrate the PDFfonts utility, which lists all the fonts used in a PDF file. It does this via a command line interface, making it suitable for use in programs, scripts, batch files — any pl…

747 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

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now