I have no problem Opening an Excel spreadsheet and edit what ever I want. The problem is: If I try to add data to the Excel open spreadsheet the current code opens and another instance of Excel - soon my taskbar is full in Excel. How can I just append the new data or save, close and open the selected Excel spreadsheet.

There is some problem with your code. IT would be better if you can post the snippet here.

You can try for searching Workbooks.Open etc and fix it

Cheers
Shasur

__________________
C# Code Snippets (http://www.dotnetdud.blogspot.com)

VBA Tips & Tricks (http://www.vbadud.blogspot.com)

My Code is in Stars

**************
...
Set ApExcel = CreateObject("Excel.application") 'Creates an object
ApExcel.Visible = True ' So you can see Excel
ApExcel.Workbooks.Open theformpath '
End If
' ==========================

For i = 1 To ListView1.ListItems.Count
rdoRS.MoveFirst
Do While rdoRS.EOF = False
hx = rdoRS!hxfield & "_" & rdoRS!Prefix
If hx = ListView1.ListItems(i).Text Then
ApExcel.Range(hx).Formula = ListView1.ListItems(i).SubItems(1)
Exit Do
End If
rdoRS.MoveNext
Loop
**************

Hi

Can you place a break point on the following line and check if it is executed more than once

Set ApExcel = CreateObject("Excel.application") 'Creates an object

Also the Range you have declared can be more explicit

Set ApExcel = CreateObject("Excel.application") 'Creates an object
Set ApXLWorkbook = ApExcel.Workbooks.Open theformpath
Set ApXLSheet = ApXLWorkbook.sheets(1)

and use the following for ranges

ApXLSheet.Range(hx).Formula = ListView1.ListItems(i).SubItems(1)

instead of

ApExcel.Range(hx).Formula = ListView1.ListItems(i).SubItems(1)

Cheers
Shasur

__________________
C# Code Snippets (http://www.dotnetdud.blogspot.com)

VBA Tips & Tricks (http://www.vbadud.blogspot.com)

Shasur

I found this bit of code
***********
Dim appExcel As Excel.Application
On Error Resume Next
Set appExcel = GetObject(,"Excel.Application")
IF appExcel Is Nothing Then 'No instance of Excel is available
Set appExcel = CreateObject("Excel.Application")
End If
***********

That works for me - I don't know what I am doing - I just works.

Thanks for the other input I will surely use it.

I am moving away from VB6 and looking for another development app similar to VB6 but not microsoft - any ideas?

Hornet 28

Since you are working with Excel etc, it would be better if you go for .NET. In .NET you have VSTO (Visual Studio Tools for Office), which does all VBA is doing now. You can build apps in VSTO (it will combine the functionality of Office and .NET)

__________________
C# Code Snippets (http://www.dotnetdud.blogspot.com)

VBA Tips & Tricks (http://www.vbadud.blogspot.com)

Shasur

I have a much broader scope in mind...than Excel. The code is just a simple 'Proof of Concept'.

I am avoiding microsoft - but - I am looking for results. I am Leaning toward a more Open environment, so to speak - even running under a small Unix kernel and avoid an OS that I do not control. Much more do do...

You have been a great help, Thanks.