error 1004 : Application-defined or object-defined

**Pititica** · 11-18-2011, 06:12 AM

Hello Guys...

I have a problem in this code :

Dim oExcel As Object
Dim objExlSht As Object
Dim vas As Variant
Dim Db1 As DAO.Database
Dim Rs1 As DAO.Recordset
Dim blnIsOpen As Boolean

Set oExcel = CreateObject("Excel.Application")
oExcel.Workbooks.Add
Set objExlSht = oExcel.ActiveWorkbook.Sheets(1)

'the error happens here.
With Worksheets("Plan1").Range("A2")
.CurrentRegion.Clear
.CopyFromRecordset Rs1
End With

Could someone helpe me, please??

**tom1977** · 11-18-2011, 06:18 AM

maybe you do not have sheet "Plan1" without file is hard to say what's going on.

**Pititica** · 11-18-2011, 06:24 AM

Originally Posted by tom1977

maybe you do not have sheet "Plan1" without file is hard to say what's going on.

Do you have any sugestion for to soulve this problem... another way for to do what I want to do?

**tom1977** · 11-18-2011, 06:30 AM

my suggestion is: attach the file with Your code (remove any confidential data of course)

**nigelog** · 11-18-2011, 06:39 AM

code tags make it easier for people to see and read the code - use [ code] without the space before and [ /code] without the space after



Dim oExcel As Object
Dim objExlSht As Object
Dim vas As Variant
Dim Db1 As DAO.Database
Dim Rs1 As DAO.Recordset
Dim blnIsOpen As Boolean

Set oExcel = CreateObject("Excel.Application")
oExcel.Workbooks.Add 
Set objExlSht = oExcel.ActiveWorkbook.Sheets(1)

'the error happens here.
With Worksheets("Plan1").Range("A2")
.CurrentRegion.Clear
.CopyFromRecordset Rs1
End With

**Pititica** · 11-18-2011, 06:42 AM

Originally Posted by tom1977

my suggestion is: attach the file with Your code (remove any confidential data of course)

Understood...
I don't know... The unique thing that i want to do is to show a excel sheet.. every time that press a buttom...
But... The first time that I try.. I can, but if I show this sheet, close and press the buttom again... this problem happen...
I've never used excel for this...

**Pititica** · 11-18-2011, 06:57 AM

Originally Posted by nigelog

code tags make it easier for people to see and read the code - use [ code] without the space before and [ /code] without the space after



Dim oExcel As Object
Dim objExlSht As Object
Dim vas As Variant
Dim Db1 As DAO.Database
Dim Rs1 As DAO.Recordset
Dim blnIsOpen As Boolean

Set oExcel = CreateObject("Excel.Application")
oExcel.Workbooks.Add 
Set objExlSht = oExcel.ActiveWorkbook.Sheets(1)

'the error happens here.
With Worksheets("Plan1").Range("A2")
.CurrentRegion.Clear
.CopyFromRecordset Rs1
End With

Ok.. thank you for this....

I don't know... what happens here... do you know other way that I can clean my sheet???