Office Interop Exception in VB.NET1.1, Please help - Visual Basic Discussion Boards

What I will do is to open two or more Excel files with VB.net.
After that I will start to search an value in the first Excel sheet.
If I don't find the value I start the seach again in the next sheet.

The question for me is, how can I chance to different workbooks in the Excel application with VB.net via Office Interop.

Do you have a pice sample code how I can do that.

stephan0607 wrote:
how can I chance to different workbooks in the Excel

If you're asking how you can CHANGE to a different workbook, you already did it in your code. There's a Workbooks collection in the Excel object. In each Workbook object, there is a Worksheets collection.

stephan0607 wrote:
Do you have a pice sample code how I can do that

I already said I don't do Office Interop. I'm going entirely on the documentation for the Excel object model.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008
But no longer in 2009...

How can i change background color of msgbox using vb dot net or vb6. i do not want to use form for this purpose.

You can't. You have to build a custom form for this.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008
But no longer in 2009...

but it changes when we change theam in windows xp

Yes theam Change it. And Theam change all the color style of all over windows.Not only for your application.

so if you want to change Messagebox Color you should to create your custom Form (Messagebox).

If you can think then I Can.

Yeah, because the MessageBox is rendered by the system and uses the system's theme.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008
But no longer in 2009...

Hi,
I am using VB.NET1.1 and office 2003. I have created a object of Word document, opening it, writing some data into the document Printing it and finally closing the document. However it is throwing this exception while closing the document.
exception from hresult 0x800A140C Here is the code piece:

If (IsNothing(appWord) = True) Then
appWord = ModWord.GetWordApplication
End If

docProposal = ModWord.GetDocument(appWord, lstrFileName)
lstrFileName = docProposal.FullName
lstrFile = docProposal.Name

If (docProposal.MailMerge.Fields.Count > 0) Then

For Each bk As Word.MailMergeField In docProposal.MailMerge.Fields
bk.Locked = True
Next

' Create a data source containing the field data.
docProposal.MailMerge.CreateDataSource(Name:=lstrDataFile, HeaderRecord:="1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37")

' Open the file to insert data.

'docProposalData = appWord.Documents.Add(lstrDataFile, Visible:=False)
docProposalData = appWord.Documents.Open(lstrDataFile, Visible:=False)

With docProposalData.Tables.Item(1)
lint = 1
For Each lstr In laHdg
.Cell(1, lint).Range.Text = lstr
lint += 1
Next
lint = 1
For Each lstr In laData
.Cell(2, lint).Range.Text = lstr
lint += 1
Next
End With

' Save and close the data file.
docProposalData.SaveAs(lstrDataFile)
Application.DoEvents()
'The code is breaking at this line.
docProposalData.Close(Word.WdSaveOptions.wdDoNotSaveChanges, , False)
Application.DoEvents()

Please help

For Reference here is GetDocument function

Public Shared Function GetDocument(ByVal wordApplication As Word.Application, ByVal filename As String) As Word.Document

If wordApplication Is Nothing Then
Throw New ApplicationException("Word application is nothing.")
End If

Dim docProposal As Word.Document = wordApplication.Documents.Open(filename)

If filename.EndsWith(".dot") Then
For Each template As Word.Template In wordApplication.Templates
If filename.EndsWith(template.Name) Then
template.Saved = True
End If
Next
filename = filename.Substring(0, filename.IndexOf(".dot")) & ".doc"
docProposal.SaveAs(filename)
End If

Return docProposal
End Function

Thanks & Regards
Puneet

Hi friends,

I wrote this code to display graphical text on form as well in label control but it has two problems.

1. It display the graphical text on form when I move mouse on a button on the form.

2. It dosnt show anything in label

Pls help.

<code>
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.IO
Imports System.Text
Imports System.Windows.Forms
Public Class Form1

Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
'Create a Graphics object
Dim g As Graphics = Me.CreateGraphics()
'Create font families
Dim verdanaFamily As New FontFamily("Verdana")
Dim arialFamily As New FontFamily("Arial")
AddHandler Label1.Paint, AddressOf Me.Label1_Paint

'Construct font objects
Dim verdanaFont As New Font("Verdana", 10)
Dim arialFont As New Font(arialFamily, 16, FontStyle.Bold)
Dim tahomaFont As New Font("Tahoma", 24, FontStyle.Underline Or FontStyle.Italic)

'Create Brush and other objects
Dim pointF As New PointF(30, 10)
Dim solidBrush As New SolidBrush(Color.FromArgb(255, 0, 0, 255))
'Draw text using DrawString
g.DrawString(TextBox1.Text, verdanaFont, New SolidBrush(Color.Red), New PointF(20, 20))
g.DrawString(TextBox1.Text, arialFont, New SolidBrush(Color.Blue), New PointF(20, 50))

'Dispose of objects
SolidBrush.Dispose()
g.Dispose()
End Sub

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
e.KeyChar = ChrW(AscW(CommonFunctions.AsciiToUnicode(AscW(e.KeyChar))))
End Sub

Private Sub Label1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Label1.Paint
'Create a Graphics object
Dim g As Graphics = Label1.CreateGraphics
'Create font families

'Construct font objects

Dim tahomaFont As New Font("Tahoma", 24, FontStyle.Underline Or FontStyle.Italic)

'Create Brush and other objects
Dim pointF As New PointF(30, 10)
Dim solidBrush As New SolidBrush(Color.FromArgb(255, 0, 0, 255))
g.DrawString(TextBox1.Text, tahomaFont, New SolidBrush(Color.Green), Label1.Location.X, Label1.Location.Y)
'Dispose of objects
solidBrush.Dispose()
g.Dispose()
End Sub

Protected Overrides Sub OnPaint(ByVal pe As PaintEventArgs)
Dim fnt As New Font("Verdana", 16)

Dim g As Graphics = pe.Graphics
g.DrawString(TextBox1.Text, fnt, New SolidBrush(Color.Red), 14, 10)

End Sub 'OnPaint

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Refresh()
End Sub
End Class

</code>

Why don't you show us the code you wrote and where you are receiving the errors, then we migth be able to help you.

Your code is messed up to say the least. You can start by removing every line that says "CreateGraphics" and replace it with this:

Dim g As Graphics = e.Graphics

Use the Graphics object passed to you in the event args. Do NOT create your own Graphics object when handling Paint events.

Get rid of your OnPaint method.

You're creating objects all over the place, but only Diposing of some of them. Your code leaks resources like mad because your creating these objects on every Paint event call, but never releasing them. You'll eventually run the system out of resources and Windows will start behaving very strangely. Create objects that do not change over time, like brushes, pens, and fonts, once, and reuse them. Dispose of them when you app closes.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008
But no longer in 2009...

When I used this code

<pre>Dim g As Graphics = e.Graphics</pre>

Its gives me error at run time that:

Parameter is not valid

Where are you putting the code? You need to put that code in a Paint event or any function that has a PaintEventArgs Parameter. If you start a new project and put this in the Form1_Paint event like this

    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint

    Dim g As Graphics = e.Graphics
    g.DrawString("Hello, World !", New Font("Verdana", 15), New SolidBrush(Color.Red), New PointF(20, 20))
    g.DrawString("This is an example of using a Paint event", New Font("Arial", 12), New SolidBrush(Color.Blue), New PointF(20, 50))
    g.Dispose()

End Sub

you shouldn't have any problems.

Dear Following is my code and below that is the error I get:

<pre>Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.IO
Imports System.Text
Imports System.Windows.Forms
Public Class Form1

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint

Dim g As Graphics = e.Graphics
g.DrawString(TextBox1.Text, New Font("Verdana", 15), New SolidBrush(Color.Red), New PointF(20, 20))
g.DrawString(TextBox1.Text, New Font("Arial", 12), New SolidBrush(Color.Blue), New PointF(20, 50))
g.Dispose()

End Sub

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
e.KeyChar = ChrW(AscW(CommonFunctions.AsciiToUnicode(AscW(e.KeyChar))))
End Sub

Private Sub Label1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Label1.Paint
Dim g As Graphics = e.Graphics
g.DrawString(TextBox1.Text, New Font("Verdana", 15), New SolidBrush(Color.Red), New PointF(20, 20))

g.Dispose()
End Sub

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Refresh()
End Sub

End Class</pre>

Error I get

<
System.ArgumentException was unhandled
Message="Parameter is not valid."
Source="System.Drawing"
StackTrace:
at System.Drawing.Graphics.GetHdc()
at System.Drawing.BufferedGraphics.RenderInternal(HandleRef refTargetDC, BufferedGraphics buffer)
at System.Drawing.BufferedGraphics.Render()
at System.Windows.Forms.Control.WmPaint(Message& m)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.Label.WndProc(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData)
at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
at System.Windows.Forms.Application.Run(ApplicationContext context)
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
at DrawStringMethodGDI_.My.MyApplication.Main(String[] Args) in 17d14f5c-a337-4978-8281-53493378c1071.vb:line 81
at System.AppDomain._nExecuteAssembly(Assembly assembly, String[] args)
at System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)
at Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
at System.Threading.ThreadHelper.ThreadStart_Context(Object state)
at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
at System.Threading.ThreadHelper.ThreadStart()
InnerException:

>

I still cannot see what you are trying to do, nor do I know where in the program you are getting the error. Is it when the form is loading, when you type in the textbox , where? Have you made sure that you have put text in the textbox before the form is loaded? Comment out the label_paint, and textbox_keypress events and try running it again. Did you try my example I gave you with strings instead of TextBox1.Text, and what results did that give you ?

ok I found out the problem that it gives error bcoz of the g.dispose() in the label's paint sub.

but its not showing anything in label

Having read up a little bit on it, it seems that this catches a lot of people out. According to MSDN, it is only good practice to Dispose of your Graphics object if you specifically Create it, and not if you receive it from another routine, such as in your control.Paint PaintEventArgs parameter. This is because there might be other routines further down the line that need that object. So there is no reason to dispose of your graphics object in this case. As to why it is not painting in the label, there is nowhere where you paint anything to the label

Your still not disposing the other GDI objects you're creating, like Brush and Font. If you don't dispose of those objects, you WILL eventully run the system out of resources. Like I said before, create object you're going to use over and over again once at the class level and dispose of them before your form closes.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008
But no longer in 2009...

your HTML tags aren't working, didn't you notice?
and multi-line code snippets deserve PRE tags, not CODE tags.
I'm not reading it the way it is now.

Hmmm | :|

Luc Pattyn [Forum Guidelines] [Why QA sucks] [My Articles]

I only read code that is properly formatted, adding PRE tags is the easiest way to obtain that.

Ok, thanks a lot for all of your help, is working now, but now I want to know another thing that, is there anyway that I can copy this graphical text into clipboard and then paste into Richtextbox?

Thanks in advance.

mates,

I don't know where to put this question regarding crystal report but i work it in vb.net. Hopefully im in the correct forum. Anyway, if somebody could give me an idea or solution I highly appreciated.
Heres the problem:

How will i generate the crystal report to set the details regarding what the user input in form.
Example. In my form i have 2 textbox and a button.
If I input in textbox1 = 4 and textbox2 = 2. so the result is 4x2(4 by 2) in details of cr.

in report the data should 4 rows and 2 colums.
Sample data:

TG-5465444    TG-5465448
TG-5465445    TG-5465449
TG-5465446    TG-5465450
TG-5465447    TG-5465451

textbox1 = 3 and textbox2 = 1 ; 3 by 1

TG-5465444
TG-5465445
TG-5465446

i got this in access report, heres my code

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
  If Me.Page = 1 Then
    If mintSkipped < mintToSkip Then
      With Me
        .MoveLayout = True
        .NextRecord = False
        .PrintSection = False
      End With
      mintSkipped = mintSkipped + 1
    End If
  End If
End Sub

C# コードMicrosoft End User
2000-2008

「「「「「「「「「「「「「「「「「「「「「「「「「「「「
The best things in life are free
」」」」」」」」」」」」」」」」」」」」」」」」」」」」

Crystal Report is devided in 3 Section :

1 : Header
2 : Details
3 : Footer

If You have a repeated data (From Database) then insert the field in Details Section.

For More details you should need to learn Crystal Report.

If you can think then I Can.

I need to open a YED.exe application when a user clicks on the .gml file in the tree view.

Now it is happening but in a separate window. I want this application to be launched in the form. Like what we have webbrowser to open many supported files.

Do we have anyother tools in VB6 so that i can launch the .exe within the Form?

Thanks,
Karthick.M

VB6 is no longer supported, and you would be well advised to get VB.Net.

------------------------------------

I will never again mention that I was the poster of the One Millionth Lounge Post, nor that it was complete drivel. Dalek Dave

I dont have a option, I have to do it in VB6.

Please help if you knw how to.

Thanks,
Karthick.M