Solved: Workbook

[Chandrasheka]

Hi,

Please check the code in the attached file. I am trying to create a new workbook and copying entire content of sheet1 to new workbook.

Thanks in advance.

Regards,

Chandra Shekar

[Bob Phillips]

Dim fnm
fnm = Application.GetSaveAsFilename("", "Excel Files (*.xls), *.xls")
If IsNull(fnm) = True Then
MsgBox "File Name is Blank"
Else
Sheets("Sheet1").Copy
ActiveWorkbook.SaveAs fnm
End If

[Chandrasheka]

Hi,

Thank you its working.

Regards,

Chandra Shekar

[Chandrasheka]

Hi,

How to check if file exists are not. If exists code should give error message that file already exists.

Thanks

Chandra Shekar

[Bob Phillips]

Exists, or is open?

[Chandrasheka]

Hi,

I need code for both the option please.

Thanks

Chandra Shekar

[Bob Phillips]

Public Sub DoubleCheck()
Const FILE_PATH As String = "C:\some directory\"
Const FILE_NAME As String = "somefile.xls"
Dim filename As String

filename = Dir(FILE_PATH & FILE_NAME, vbNormal)
If filename = "" Then

MsgBox FILE_PATH & FILE_NAME & " does not exist"
Else

If Not CBool(Workbooks(FILE_NAME) Is Nothing) Then

MsgBox FILE_NAME & " already open"
End If
End If
End Sub

[Chandrasheka]

Hi,

How to apply this code with the previous code. Please let me know. I am new to VBA.

Thank you

Chandra Shekar

[Chandrasheka]

Hi,

Any suggestion xld.

Thanks
Chandra Shekar