View Full Version : Solved: Workbook
Chandrasheka
10-25-2010, 03:26 AM
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
10-25-2010, 03:34 AM
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
10-25-2010, 03:57 AM
Hi,
Thank you its working.
Regards,
Chandra Shekar
Chandrasheka
10-26-2010, 04:18 AM
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
10-26-2010, 05:04 AM
Exists, or is open?
Chandrasheka
10-26-2010, 06:33 AM
Hi,
I need code for both the option please.
Thanks
Chandra Shekar
Bob Phillips
10-26-2010, 07:05 AM
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
10-26-2010, 07:20 AM
Hi,
How to apply this code with the previous code. Please let me know. I am new to VBA.
Thank you
Chandra Shekar
Chandrasheka
10-27-2010, 12:40 AM
Hi,
Any suggestion xld.
Thanks
Chandra Shekar
Powered by vBulletin® Version 4.2.5 Copyright © 2024 vBulletin Solutions Inc. All rights reserved.