Hello Eneryone,
I am having a problem. I have written a little app that will take a text
"pipe" delimited file and place all of the values in to an Excel
spreadsheet. It works great on any of my XP Pro machines. When I install the
app on a Win2K Pro machine, I get the following error message:
************** Exception Text **************
System.Runtime.InteropServices.COMException (0x80020008): Bad variable type.
at System.RuntimeType.ForwardCallToInvokeMember(Strin g memberName,
BindingFlags flags, Object target, Int32[] aWrapperTypes, MessageData&
msgData)
at Excel.Range.set__Default(Object RowIndex, Object ColumnIndex, Object )
at Collections.frmMain.butXfer_Click(Object sender, EventArgs e)
at System.Windows.Forms.Control.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnMouseUp(MouseEventAr gs mevent)
at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons
button, Int32 clicks)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ButtonBase.WndProc(Message& m)
at System.Windows.Forms.Button.WndProc(Message& m)
at System.Windows.Forms.ControlNativeWindow.OnMessage (Message& m)
at System.Windows.Forms.ControlNativeWindow.WndProc(M essage& m)
at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg,
IntPtr wparam, IntPtr lparam)
************** Loaded Assemblies **************
mscorlib
Assembly Version: 1.0.5000.0
Win32 Version: 1.1.4322.573
CodeBase:
file:///c:/winnt/microsoft.net/framework/v1.1.4322/mscorlib.dll
----------------------------------------
System
Assembly Version: 1.0.5000.0
Win32 Version: 1.1.4322.573
CodeBase:
file:///c:/winnt/assembly/gac/system/1.0.5000.0__b77a5c561934e089/system.dll
----------------------------------------
System.Drawing
Assembly Version: 1.0.5000.0
Win32 Version: 1.1.4322.573
CodeBase:
file:///c:/winnt/assembly/gac/system.drawing/1.0.5000.0__b03f5f7f11d50a3a/system.drawing.dll
----------------------------------------
Collections
Assembly Version: 1.0.1329.16914
Win32 Version: 1.0.1329.16914
CodeBase:
file:///C:/Program%20Files/Mason%20General%20Hospital/Collections/Collections.exe
----------------------------------------
System.Windows.Forms
Assembly Version: 1.0.5000.0
Win32 Version: 1.1.4322.573
CodeBase:
file:///c:/winnt/assembly/gac/system.windows.forms/1.0.5000.0__b77a5c561934e089/system.windows.forms.dll
----------------------------------------
Microsoft.VisualBasic
Assembly Version: 7.0.5000.0
Win32 Version: 7.10.3052.4
CodeBase:
file:///c:/winnt/assembly/gac/microsoft.visualbasic/7.0.5000.0__b03f5f7f11d50a3a/microsoft.visualbasic.dll
----------------------------------------
Interop.Excel
Assembly Version: 1.4.0.0
Win32 Version: 1.4.0.0
CodeBase:
file:///C:/Program%20Files/Mason%20General%20Hospital/Collections/Interop.Excel.DLL
----------------------------------------
System.Xml
Assembly Version: 1.0.5000.0
Win32 Version: 1.1.4322.573
CodeBase:
file:///c:/winnt/assembly/gac/system.xml/1.0.5000.0__b77a5c561934e089/system.xml.dll
----------------------------------------
The code I am using is:
Dim objExcel As New Excel.Application
Dim objWB As Excel.Workbook = objExcel.Workbooks.add
Dim objWS As Excel.Worksheet = CType(objWB.Worksheets(1), Excel.Worksheet)
objExcel.Visible = True
Cursor.Current = Cursors.WaitCursor
Dim sr As System.IO.StreamReader = New
System.IO.StreamReader(System.IO.Path.GetTempPath( ) & "Collections.txt")
Dim line As String, MyArray() As String, item As String, temp As String
Dim cnt As Int32
Dim lcol As Long, lrow As Long
lrow = 1
Do
line = sr.ReadLine()
MyArray = Split(line, "|", , CompareMethod.Text)
For lcol = 1 To UBound(MyArray)
Select Case lcol
Case Is = 2
objWS.Cells(lrow, lcol) =
Microsoft.VisualBasic.Left(MyArray(lcol), (Len(MyArray(lcol)) - 2)) & "." &
Microsoft.VisualBasic.Right(MyArray(lcol), 2)
Case Is = 11
If Len(MyArray(lcol)) > 0 Then
item = MyArray(lcol)
MyArray(lcol) = Microsoft.VisualBasic.Left(item, 2) & "/" &
Microsoft.VisualBasic.Mid(item, 3, 2) & "/" &
Microsoft.VisualBasic.Right(item, 4)
objWS.Cells(lrow, lcol).Value = MyArray(lcol)
End If
Case Is = 12
If Len(MyArray(lcol)) > 0 Then
item = MyArray(lcol)
MyArray(lcol) = Microsoft.VisualBasic.Left(item, 2) &
"/" & Microsoft.VisualBasic.Mid(item, 3, 2) & "/" &
Microsoft.VisualBasic.Right(item, 4)
objWS.Cells(lrow, lcol).Value = MyArray(lcol)
End If
Case Is = 15
If Len(MyArray(lcol)) > 0 Then
item = MyArray(lcol)
MyArray(lcol) = Microsoft.VisualBasic.Left(item, 2) &
"/" & Microsoft.VisualBasic.Mid(item, 3, 2) & "/" &
Microsoft.VisualBasic.Right(item, 4)
objWS.Cells(lrow, lcol).Value = MyArray(lcol)
End If
Case Else
objWS.Cells(lrow, lcol) = MyArray(lcol)
End Select
If lcol = 2 Then
Else
objWS.Cells(lrow, lcol) = MyArray(lcol)
End If
Next
lrow += 1
Loop Until line Is Nothing
Cursor.Current = Cursors.Default
sr.Close()
If System.IO.File.Exists(System.IO.Path.GetTempPath() & "Collections.txt")
Then
System.IO.File.Delete(System.IO.Path.GetTempPath() & "Collections.txt")
End If
objWS.Columns.AutoFit()
objWS = Nothing
objWB = Nothing
objExcel = Nothing
1  15721 
If i had to guess i'd say you're using different versions of the .net
framework, or more probably, different versions of excel between the two
computers.
You may be able to change your code to use latebinding and avoid this
problem. Otherwise I think you'll need excel-version specifc COM interop
assemblies..
Matt Evans
--
This posting is provided "AS IS" with no warranties, and confers no rights.
Use of included script samples are subject to the terms specified at http://www.microsoft.com/info/cpyright.htm
Note: For the benefit of the community-at-large, all responses to this
message are best directed to the newsgroup/thread from which they
originated.
-------------------- From: "Brian Conklin" <bc******@masongeneral.com>
Subject: Adding data to Excel from VB.NET
Date: Fri, 22 Aug 2003 13:59:30 -0700
Lines: 200
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1158
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165
Message-ID: <#r**************@TK2MSFTNGP09.phx.gbl>
Newsgroups: microsoft.public.dotnet.languages.vb
NNTP-Posting-Host: list.masongeneral.com 66.119.204.11
Path: cpmsftngxa06.phx.gbl!TK2MSFTNGP08.phx.gbl!TK2MSFTN GP09.phx.gbl
Xref: cpmsftngxa06.phx.gbl microsoft.public.dotnet.languages.vb:129795
X-Tomcat-NG: microsoft.public.dotnet.languages.vb
Hello Eneryone,
I am having a problem. I have written a little app that will take a
text"pipe" delimited file and place all of the values in to an Excel
spreadsheet. It works great on any of my XP Pro machines. When I install
theapp on a Win2K Pro machine, I get the following error message:
************** Exception Text **************
System.Runtime.InteropServices.COMException (0x80020008): Bad variable
type. at System.RuntimeType.ForwardCallToInvokeMember(Strin g memberName,
BindingFlags flags, Object target, Int32[] aWrapperTypes, MessageData&
msgData)
at Excel.Range.set__Default(Object RowIndex, Object ColumnIndex, Object
) at Collections.frmMain.butXfer_Click(Object sender, EventArgs e)
at System.Windows.Forms.Control.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnMouseUp(MouseEventAr gs mevent)
at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons
button, Int32 clicks)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ButtonBase.WndProc(Message& m)
at System.Windows.Forms.Button.WndProc(Message& m)
at System.Windows.Forms.ControlNativeWindow.OnMessage (Message& m)
at System.Windows.Forms.ControlNativeWindow.WndProc(M essage& m)
at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg,
IntPtr wparam, IntPtr lparam)
************** Loaded Assemblies **************
mscorlib
Assembly Version: 1.0.5000.0
Win32 Version: 1.1.4322.573
CodeBase:
file:///c:/winnt/microsoft.net/framework/v1.1.4322/mscorlib.dll
----------------------------------------
System
Assembly Version: 1.0.5000.0
Win32 Version: 1.1.4322.573
CodeBase:
file:///c:/winnt/assembly/gac/system/1.0.5000.0__b77a5c561934e089/system.dl
l----------------------------------------
System.Drawing
Assembly Version: 1.0.5000.0
Win32 Version: 1.1.4322.573
CodeBase:
file:///c:/winnt/assembly/gac/system.drawing/1.0.5000.0__b03f5f7f11d50a3a/s
ystem.drawing.dll----------------------------------------
Collections
Assembly Version: 1.0.1329.16914
Win32 Version: 1.0.1329.16914
CodeBase:
file:///C:/Program%20Files/Mason%20General%20Hospital/Collections/Collectio
ns.exe----------------------------------------
System.Windows.Forms
Assembly Version: 1.0.5000.0
Win32 Version: 1.1.4322.573
CodeBase:
file:///c:/winnt/assembly/gac/system.windows.forms/1.0.5000.0__b77a5c561934
e089/system.windows.forms.dll----------------------------------------
Microsoft.VisualBasic
Assembly Version: 7.0.5000.0
Win32 Version: 7.10.3052.4
CodeBase:
file:///c:/winnt/assembly/gac/microsoft.visualbasic/7.0.5000.0__b03f5f7f11d
50a3a/microsoft.visualbasic.dll----------------------------------------
Interop.Excel
Assembly Version: 1.4.0.0
Win32 Version: 1.4.0.0
CodeBase:
file:///C:/Program%20Files/Mason%20General%20Hospital/Collections/Interop.E
xcel.DLL----------------------------------------
System.Xml
Assembly Version: 1.0.5000.0
Win32 Version: 1.1.4322.573
CodeBase:
file:///c:/winnt/assembly/gac/system.xml/1.0.5000.0__b77a5c561934e089/syste
m.xml.dll----------------------------------------
The code I am using is:
Dim objExcel As New Excel.Application
Dim objWB As Excel.Workbook = objExcel.Workbooks.add
Dim objWS As Excel.Worksheet = CType(objWB.Worksheets(1), Excel.Worksheet)
objExcel.Visible = True
Cursor.Current = Cursors.WaitCursor
Dim sr As System.IO.StreamReader = New
System.IO.StreamReader(System.IO.Path.GetTempPath () & "Collections.txt")
Dim line As String, MyArray() As String, item As String, temp As String
Dim cnt As Int32
Dim lcol As Long, lrow As Long
lrow = 1
Do
line = sr.ReadLine()
MyArray = Split(line, "|", , CompareMethod.Text)
For lcol = 1 To UBound(MyArray)
Select Case lcol
Case Is = 2
objWS.Cells(lrow, lcol) =
Microsoft.VisualBasic.Left(MyArray(lcol), (Len(MyArray(lcol)) - 2)) & "." &
Microsoft.VisualBasic.Right(MyArray(lcol), 2)
Case Is = 11
If Len(MyArray(lcol)) > 0 Then
item = MyArray(lcol)
MyArray(lcol) = Microsoft.VisualBasic.Left(item, 2) & "/" &
Microsoft.VisualBasic.Mid(item, 3, 2) & "/" &
Microsoft.VisualBasic.Right(item, 4)
objWS.Cells(lrow, lcol).Value = MyArray(lcol)
End If
Case Is = 12
If Len(MyArray(lcol)) > 0 Then
item = MyArray(lcol)
MyArray(lcol) = Microsoft.VisualBasic.Left(item, 2) &
"/" & Microsoft.VisualBasic.Mid(item, 3, 2) & "/" &
Microsoft.VisualBasic.Right(item, 4)
objWS.Cells(lrow, lcol).Value = MyArray(lcol)
End If
Case Is = 15
If Len(MyArray(lcol)) > 0 Then
item = MyArray(lcol)
MyArray(lcol) = Microsoft.VisualBasic.Left(item, 2) &
"/" & Microsoft.VisualBasic.Mid(item, 3, 2) & "/" &
Microsoft.VisualBasic.Right(item, 4)
objWS.Cells(lrow, lcol).Value = MyArray(lcol)
End If
Case Else
objWS.Cells(lrow, lcol) = MyArray(lcol)
End Select
If lcol = 2 Then
Else
objWS.Cells(lrow, lcol) = MyArray(lcol)
End If
Next
lrow += 1
Loop Until line Is Nothing
Cursor.Current = Cursors.Default
sr.Close()
If System.IO.File.Exists(System.IO.Path.GetTempPath() & "Collections.txt")
Then
System.IO.File.Delete(System.IO.Path.GetTempPath() & "Collections.txt")
End If
objWS.Columns.AutoFit()
objWS = Nothing
objWB = Nothing
objExcel = Nothing
This thread has been closed and replies have been disabled. Please start a new discussion. Similar topics
by: sberk44 |
last post by:
I am trying to take data submited from a web form and convert that to
an excel spreadsheet. Each new form submitted i would line a new row
or column in that same spreadsheet. Eventually I would...
|
by: DavidGeorge |
last post by:
I have made a fundamental error in design and ignored security until
the end of the project. This is largely because the whole process was
a steep learning curve (helped enormously by this group)...
|
by: Przemek Wrzesinski |
last post by:
Hi, I'm trying to add additional column using 'alter table' command via
OleDB to Excel workbook (one sheet called queExportBOND):
Dim strConn As String
strConn =...
|
by: e.h.doxtator |
last post by:
All
I'm a Python newbie, and I'm just getting to the wonders of COM
programming. I am trying to programmatically do the following:
1. Activate Excel
2. Add a Workbook
3. Add a Worksheet...
|
by: saragoesnuts |
last post by:
I have a program that automates to Excel with information in tables.
I want to add charts to the excel file (pie charts, bar charts, etc).
Is this possible?
|
by: nkechifesie |
last post by:
Hi, I have written a VBA program that runs on Excel and puts data on the excel sheet. This runs everyday. I want to be adding the dates to the files, this date is gotten from the excel sheet that...
|
by: rishiyo |
last post by:
Good ones!! I want to retrieve and add datas with excel. I've tried one by adding two textboxes and two command buttons. THE code is:
'do declare these variables you need to add a reference'to...
|
by: rameshmandapati |
last post by:
hi
i have a problem with Excel.
iam adding data to a cell in Excel using java script
var excel = new ActiveXObject ("Excel.Application");
but i want image also i search in google i...
|
by: chirag1989 |
last post by:
how can i add data to database using excel through asp
actual i wanted to use datagrid but as its not supported
by asp so i want to try dat by excel
can any one just provide me a short code...
|
by: Kemmylinns12 |
last post by:
Blockchain technology has emerged as a transformative force in the business world, offering unprecedented opportunities for innovation and efficiency. While initially associated with cryptocurrencies...
|
by: Naresh1 |
last post by:
What is WebLogic Admin Training?
WebLogic Admin Training is a specialized program designed to equip individuals with the skills and knowledge required to effectively administer and manage Oracle...
|
by: antdb |
last post by:
Ⅰ. Advantage of AntDB: hyper-convergence + streaming processing engine
In the overall architecture, a new "hyper-convergence" concept was proposed, which integrated multiple engines and...
|
by: WisdomUfot |
last post by:
It's an interesting question you've got about how Gmail hides the HTTP referrer when a link in an email is clicked. While I don't have the specific technical details, Gmail likely implements measures...
|
by: Oralloy |
last post by:
Hello Folks,
I am trying to hook up a CPU which I designed using SystemC to I/O pins on an FPGA.
My problem (spelled failure) is with the synthesis of my design into a bitstream, not the C++...
|
by: Carina712 |
last post by:
Setting background colors for Excel documents can help to improve the visual appeal of the document and make it easier to read and understand. Background colors can be used to highlight important...
|
by: Rahul1995seven |
last post by:
Introduction:
In the realm of programming languages, Python has emerged as a powerhouse. With its simplicity, versatility, and robustness, Python has gained popularity among beginners and experts...
|
by: ezappsrUS |
last post by:
Hi,
I wonder if someone knows where I am going wrong below. I have a continuous form and two labels where only one would be visible depending on the checkbox being checked or not. Below is the...
|
by: F22F35 |
last post by:
I am a newbie to Access (most programming for that matter). I need help in creating an Access database that keeps the history of each user in a database. For example, a user might have lesson 1 sent...
| |
