Vba excel сохранить файл в папку

Your means of describing all in this paragraph is really good,
every one be able to easily understand it, Thanks a
lot.

Having trouble using the below code. Any ideas?
SaveFile = Application.GetSaveAsFilename( _
FileFilter:=”Excel Files (*.xlsx), *.xlsx”)
ActiveWorkbook.SaveAs SaveFile

After the file is saved it appears as an Excel file in the indicated location, but when you try to open it a dialogue box says: “Excel cannot open the file because the file format or file extension is not valid. Verify that the file has not been corrupted and that the file extension matches the format of the file.”

Hi Rob,
I found no issues in your code, you may be using Excel 2003. If your Excel is not 2007 or higher, you can change the “Excel Files (*.xlsx), *.xlsx” as “Excel Files (*.xls), *.xls”

i.e; xls, instead of xlsx

Thanks-PNRao!

Hi Jason,
Assuming you have the Folder path at Range A1 of sheet1, and File name at Range A2:

wkb.SaveAs Filename:=Sheets(“Sheet1”).Range(“A1″) &” &Sheets(“Sheet1”).Range(“A2″) &”.xlsx”

Hope this helps!
Thanks-PNRao!

Hi,
Can I use a macro to save the excel file in a specific location based off of a specific cell within the document? Also, Could I have the macro change the name of the document based off of a different cell within the same document?

Hi Chris,

Yes, you can use SaveAs method of workbook to save the file with different name. Assuming you have the file name in the Cell A1.

The below code will save the active workbook in the same path with name specified at A1.

Dim strFilename As String
strFilename = ActiveWorkbook.Path & " & Range("A1") & ".xlsm"
ActiveWorkbook.SaveAs Filename:=strFilename, FileFormat:=52

The below code will save the active workbook in the given path with file name mentioned with the full path at A1.

Dim strFilename As String
strFilename =Range("A1") & ".xlsm"
ActiveWorkbook.SaveAs Filename:=strFilename, FileFormat:=52

Thanks-PNRao!

hi,

i am trying to use this code but having some issues,

i am using excel 2010 but the extension .xlsm nor .xlsx is working

this code:
”
If sFileSaveName False Then
ActiveWorkbook.SaveAs sFileSaveName
End If
”

is saving a copy of the file but closes the original document to reopen the saved copy.

please help

Hi,

SaveAs will save the file with the changes in the specified location. It will not neither close the old file nor open new file.
when you open the file, it will always stores in the temporary memory, when you Save the file, this will just save the changes to the existing file – SaveAs will save the file in the specified location.

Hope this clarifies your query.
Thanks-PNRao!

Hi
How to keep text format when save as to *.csv or at least to show “keep using that format” question dialog with VBA

Thanks

save file as .xls…. for that first go to the “save as type”.. then choose “.xls” extension file… ur file automatically will b saved as “filename.xls”…

What code do I use so that the file saves to a folder in a users My Documents. Now, the folder might not exist the first time they are saving the file, so I would need to incorporate that as well into the code.

Example path: C:UsersDocumentsWorkbook1.xlsx

Thanks in advance!

What code do I use so that the file saves to a folder in a users My Documents. Now, the folder might not exist the first time they are saving the file, so I would need to incorporate that as well into the code.

Example path: C:UsersDocumentsWorkbook1.xlsx

Thanks in advance

The example path did not show correctly in my initial comment. Between Users and Documents it should show ” and between Documents and the file name it should show “.

C:Users”Documents”Workbook1.xlsx

Argh…Ok. Where the quotes are should be username and New Folder respectively.

Sorry for all the extra comments.

Great, it really helped me!!

Hi,
I tried several code to save my excxel file. All attemts including your “Save Workbook in the same location of the Macro (this) Workbook” results the same: I get a new but empty file (with your code workbookname.xls) in the same directory where workbook using ThisWorkbook.There is data in cells of original workbook but the saved one is empty…(excel 2007)..
Could you Have please some idea what couses this curious phenomena?

I have the same problem. Maybe sone ideas?

Hi to all,
I am using Excel 2011 for Mac. In a macro file (.xlsm) triggered from my database, with an AutoOpen macro, I import data from my database, format the spreadsheet and then save it as a .xlsx file. My problem is that when the macro does a SaveAs, there is a dialog box telling me that the macros will be removed in the .xlsx file and then required that I click on the save button. How can I bypass that dialog and finish the save process without user intervention?

My code:

ThisFile = Range(“B2”).Value
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=ThisFile, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=True
Range(“A1”).Select
Application.DisplayAlerts = True
Application.Quit

I am passing a password through the variable “f” and trying to protect the workbook but it is not working.
Can you tell me how?
ActiveWorkbook.Protect Password:=f, Structure:=True, Windows:=False

Hi All,

I am trying to add in code to save the below to a shared drive with a date in the name of the file ie “abc 16.06.2017” Would also love to send a print screen in the body of the mail too – can anyone help with that?

Thanks a mill

Sub Mail_ControlSheet()

Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Sourcewb As Workbook
Dim Destwb As Workbook
Dim TempFilePath As String
Dim TempFileName As String
Dim OutApp As Object
Dim OutMail As Object

With Application
.ScreenUpdating = False
.EnableEvents = False
End With

Set Sourcewb = ActiveWorkbook

ActiveSheet.Copy
Set Destwb = ActiveWorkbook

With Destwb
Select Case Sourcewb.FileFormat
Case 51: FileExtStr = “.xlsx”: FileFormatNum = 51

End Select

End With

Set OutApp = CreateObject(“Outlook.Application”)
Set OutMail = OutApp.CreateItem(0)

With Destwb
With OutMail
.to = “xx@abc.com”
.CC = ”
.BCC = ”
.Subject = “XX ” & Format(Date, “dd-mm-yyyy”)
.Body = “Hi All,” & vbCrLf & vbCrLf & “XX.” & vbCrLf & vbCrLf & “Many Thanks” & vbCrLf & “Shane”
.Attachments.Add “hbeu.adroot.hsbcgb001Redir GB USERS LAPTOP43960692DocumentsShanehello.xlsm.”
.Display
End With
On Error GoTo 0
.Close savechanges:=False
End With

End Sub

I am trying to save file RENT.xls in different folders:
My Documents/Jan 17/ RENT.xls
My Documents/Feb/RENT.XLS
My Documents/Mar/RENT.xls
etc
etc

Can someone help please?

Here is the Macro to save the file into required folders using VBA.

Sub sbSaveFileInToDifferentFolders()

Set wb = Workbooks.Open("C:TempRENT.xls")

MyFoldersArray = Array( _
"C:TempFolderA", _
"C:TempFolderB", _
"C:TempFolderC" _
)

For iCntr = 0 To UBound(MyFoldersArray, 1)
    wb.SaveAs MyFoldersArray(iCntr) & " & wb.Name
Next

End Sub

Thanks!

I need help with the following. I need to save a copy of a workbook with the File Name and the Date (A Save at that moment), and then open that saved Copy. Currently the below code will Save the file and rename the document correctly (except it will do .xlsm.xslm and I cant fix this…) but when you open the document, there is no information. Its completely blank…. so its not a save as, its just opening a new file and naming based on my file.

Can someone help me correct this code so that it saves all of my data, renames the file and opens it up once saved?

Sub snwb()
Dim thisWb As Workbook, d As Integer

Set thisWb = ActiveWorkbook
Workbooks.Add
d = InStrRev(thisWb.FullName, “.”)
ActiveWorkbook.SaveAs filename:=Left(thisWb.FullName, d – 1) & Format(Now, ” yyyy.mm.dd”) & Mid(thisWb.FullName, d) & “.xlsm”, FileFormat:=52

ActiveWorkbook.Close savechanges:=False
End Sub

I have an updated code that seems to be working correct, however, I need this to work with Office 365. I need the file to save back to the same location on 365. Any ideas?

Sub SaveToRelativePath()
Dim relativePath As String
relativePath = ThisWorkbook.path & ” & ActiveWorkbook.Name
ActiveWorkbook.SaveAs filename:=ThisWorkbook.Name & ” FINAL BID” & “.xlsm”, FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub

Hi can u provide the below u r VBA including view list (file size, created date and modified date), due to i have confusing the new file or old file.

Save a Workbook to a Specific Folder

Sub ExampleToSaveWorkbook()

Workbooks.Add
‘Saving the Workbook
ActiveWorkbook.SaveAs “C:WorkbookName.xls”
‘OR
‘ActiveWorkbook.SaveAs Filename:=”C:WorkbookName1.xls”

End Sub