Help Regarding SaveAs option in VB6

S

SpiderSwamy

Hi,
I am writing the following code to open an excel file if present
in
that path and want to save it with a different name using the Save As
option in vb6, the code is as below


sOutFol = App.Path
Set moApp = New excel.Application
On Error GoTo solution
moApp.Workbooks.Open (sOutFol & "\" & "output.xls")
moApp.Visible = True
Set mywb = moApp.Workbooks(1)


If (moApp.Visible = True) Then
mywb.Close
MsgBox " Save the Output.xls with other name and then click OK "
y = outputold.xls
FileName = mywb.SaveAs(y, ForReading)
Form2.Show


Any one who know what values to pass to the SaveAs function or please
give a piece of code which works for SaveAs function..


Thanks in Advance


Swamy
 
H

Henrich

Hi, try this:

Application.Dialogs(xlDialogSaveAs).Show

Henrich

„SpiderSwamy" napísal (napísala):
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top