Hi, This maybe work:
Sub ServerExportExcolon
Set st = ActiveDocument.GetSheetObject("LB01")
st.ServerSideExportEx "C:\test.csv", ":" ,1,850
End Sub
Sub ServerExportExsemicolon
Set st = ActiveDocument.GetSheetObject("LB01")
st.ServerSideExportEx "C:\test.csv", ";" ,1,850
End Sub
Try to connect them to a button by cal the macro in action.
BR//GOnza