Saveas .xlsx format

0

01's

Board Regular
Joined
Jun 1, 2011
Messages
85
Hi,
I work on an excel file uesing some VBA codes and then in the end I want to save it in the same location(current location) with same name in .xlsx format. How can I achieve it?
 

Excel Facts

Round to nearest half hour?
Use =MROUND(A2,"0:30") to round to nearest half hour. Use =CEILING(A2,"0:30") to round to next half hour.
Sort by date Sort by votes
Try

Code: 
Dim fname As String
fname = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".")) & "xlsx"
ActiveWorkbook.SaveAs Filename:=fname, FileFormat:=51
 
Upvote 0
You must log in or register to reply here.

Similar threads

P
  • Solved
writing a macro to copy an entire xlsm workbook to a users desktop as xlsx values only.
Replies
9
Views
705
Alex Blakenburg
A
G
  • Question Question
remove columns from multiple Excel-files in a folder
Replies
5
Views
278
gjvv
G
S
  • Question Question
Consolidate or Similar, Only with Formula Reference?
Replies
0
Views
265
Scotster
S
S
  • Solved
Modify the code to save files in xlsx format
Replies
4
Views
564
sofas
S
K
  • Question Question
Create new Workbook from exist
Replies
5
Views
146
KreshBell
K

Forum statistics

Threads
1,224,522
Messages
6,179,299
Members
452,904
Latest member
CodeMasterX

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top