export to csv macro
Try this PM4
Sub ActiveSheet_To_CSV_File() Dim wb As Workbook Dim strdate As String Dim Fname As String strdate = Format(Date, "mmyyyy") Fname = ActiveSheet.Name _ & " " & strdate & ".csv" Application.ScreenUpdating = False ActiveSheet.Copy Set wb = ActiveWorkbook With wb .SaveAs Fname, FileFormat:=xlCSV .Close False End With Application.ScreenUpdating = True End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "PM4" wrote in message ... Hi, I'm looking for a macro in excel that lets me export to csv. The filename must be the name of the sheet combined with the month and year on the moment of export (like finance-052006.csv). Can somebody help me out? I've been searching for a few hours but no luck so far. I found macro's with static filenames or with a prompt. I even tried to eddit the macro's but only got some errors. It looks like i'll be working woth macro's much more the next few months so i'm going to spend more time understanding it. Kind regards, PM. -- PM4 ------------------------------------------------------------------------ PM4's Profile: http://www.excelforum.com/member.php...o&userid=34025 View this thread: http://www.excelforum.com/showthread...hreadid=537853 |
All times are GMT +1. The time now is 11:24 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com