Save a copy as CSV automatically

[crsnwby]

I have a macro enabled workbook that is using ODBC to collect data, I have a macro that auto saves the sheet every 60 seconds. What I need to try and add now is another auto save that also saves a CSV version to a network drive.

This script does the action but it needs the save button to be pressed in excel, I need it linked to the auto save somehow. Can anyone help?

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Sourcewb As Workbook
Dim Destwb As Workbook
Dim TempFileName As String

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

Set Sourcewb = ActiveWorkbook
TempFileName = "\\146.105.85.55\e$\Splunk_DATA\MIM\SLA Status" + ".csv"

'Copy the sheet to a new workbook
ActiveSheet.Copy
Set Destwb = ActiveWorkbook

'Save the new workbook and close it
With Destwb
.SaveAs Filename:=TempFileName, FileFormat:=xlCSV, ConflictResolution:=xlLocalSessionChanges
.Close SaveChanges:=False
End With

With Application
.ScreenUpdating = True
.EnableEvents = True
.DisplayAlerts = True
End With
End Sub

 

[CharlesChuckieCharles]

should be enough in the following link to allow you to do whats required

http://www.mrexcel.com/forum/excel-questions/857978-modify-autosave-macro.html