Rene Lou
Head-Fier
- Joined
- Jan 21, 2014
- Posts
- 50
- Likes
- 65
Tip: Take the time and create a XLS configuration file for the CSV processor of your A16.
I just updated the A16 with the new firmware 2.15 and loaded all settings / listening rooms / presets by simply copy my CSV files to the SD card again. The A16 will reconfigure all listening rooms and presets after a firmware update and factory restore with an additional reboot fully automatically.
You will have to save all XLS worksheets to individual CSV files. Saving all worksheets individually is time consuming as well, so I added a small Excel macro to the Smyth XLS file for saving all worksheets fully automatic to a new directory - here is the macro in case you are interested:
I just updated the A16 with the new firmware 2.15 and loaded all settings / listening rooms / presets by simply copy my CSV files to the SD card again. The A16 will reconfigure all listening rooms and presets after a firmware update and factory restore with an additional reboot fully automatically.
You will have to save all XLS worksheets to individual CSV files. Saving all worksheets individually is time consuming as well, so I added a small Excel macro to the Smyth XLS file for saving all worksheets fully automatic to a new directory - here is the macro in case you are interested:
Code:
Sub Export_all_worksheets_as_csv_files()
Dim ws As Worksheet
Dim savePath As String
Dim fileName As String
Application.ScreenUpdating = False
' save filename
fileName = ThisWorkbook.Name
' define save path incl. sub directory
savePath = ThisWorkbook.Path & "\" & Left(fileName, InStrRev(fileName, ".") - 1) & "_saved_as_CSV\"
' check if directory already exists, otherwise create it
If Dir(savePath, vbDirectory) = "" Then
MkDir savePath
End If
' loop for all worksheets
For Each ws In ThisWorkbook.Worksheets
' create CSV-filename
Dim csvFileName As String
csvFileName = savePath & ws.Name & ".csv"
' save worksheet
ws.SaveAs csvFileName, xlCSV
Next ws
Application.ScreenUpdating = True
MsgBox "All worksheets have been saved in directory '" & Left(fileName, InStrRev(fileName, ".") - 1) & "_saved_as_CSV'.", vbInformation
End Sub