I am trying to open an existing excel file (C:\Documents\dfdf32.xls) and edit one of the cells (H7) by entering today's date and print that sheet. This is my code:

Private Sub Command1_Click()

Dim oXL As Excel.Application
Dim oWB As Excel.Workbook
Dim oWS As Excel.Worksheet

Set oXL = New Excel.Application
Set oWB = oXL.Workbooks.Open("C:\Documents\dfdf32.xls")
Set oWS = oWB.Worksheets("Sheet1")

oWS.Range("H7").Value = "=TODAY()"

oWB.Save

oWB.Workbooks.Open("C:\Documents\dfdf32.xls").Prin tOut Copies:=1
oWB.Workbooks("C:\Documents\dfdf32.xls").Close

oXL.Quit

When I execute this, it says "a file named "dfdf32.xls" already exist . Do you want replace.."

Can anybody help me to correct my code?

Thank you
`Ali

Replace

oWB.Workbooks.Open("C:\Documents\dfdf32.xls").Prin tOut Copies:=1

with

oWB.PrintOut Copies:=1

It should work

The message is displayed as you are trying to open a workbook that was already opened.

Cheers
Shasur

http://www.vbadud.blogspot.com

Thank you.

It worked but only once, and I got this message: run time error 438 , object doesn't support this property or method
and I pressed debug and it highlited this segment:
oWB.Workbooks("C:\Documents\dfdf32.xls").Close

and then I tried to execute it for the second time it said this file is a read only file you should rename the file and...

Hi Ali

You have the Workbook linked to the object oWB, so you need not have the following

oWB.Workbooks("C:\Documents\dfdf32.xls").Close

oWB.close will do

Cheers
Shasur


http://www.vbadud.blogspot.com