Save a DDE streaming data ina file

[paolfili]

I' ve a 10 sheet of DDE financial streaming data in Excel 2003.
Is possible (VBA routine?,macro?) save data in a file (i.e. every 1 second)?
Is possible save only the Changed data?

Thanks

 

[DauntingGecko]

You're probably looking at the task the wrong way. You can get it so Excel tries to save a new workbook every second but it'll grind everything to a hault and may freeze it up.

The data is obviously coming from database or feed somewhere else. Why not create a C# program with multithreads that save the new data that flowed into a cache as a spreadsheet every 1 second?

Sounds like you're going to be saving a lot of data every second. Is it really needed? Can you go direct to the source? Why save every second?!

 

[paolfili]

Thanks for the reply.
I have some fianancial streaming data from a DDE link to an *.exe (the trading platform).
I'd like to save data in a file (1 second is only to have a reference...
probably 5 or 10 seconds is ok...)
No other way to collect data ....

You're probably looking at the task the wrong way. You can get it so Excel tries to save a new workbook every second but it'll grind everything to a hault and may freeze it up.

The data is obviously coming from database or feed somewhere else. Why not create a C# program with multithreads that save the new data that flowed into a cache as a spreadsheet every 1 second?

Sounds like you're going to be saving a lot of data every second. Is it really needed? Can you go direct to the source? Why save every second?!

 

[DauntingGecko]

Your exe is pulling out data from a spreadsheet that has DDE?!

If thats correct, why doesn't your exe just pull the data out? Seems muddled up. If the exe is pulling the data out it would then also have the ability to save spreadsheets every so often as well.

How strange...

 

[paolfili]

I' ve a closed source executable ,the platform *.exe.
This is an executable to start a trading platform.
The platform is designed by the creators to eport DDE data to excel.
I want to be able to save the data.
The only different way is reverse engineer the platform and save the data filtered from the socket. (not so simple anyway).

Your exe is pulling out data from a spreadsheet that has DDE?!

If thats correct, why doesn't your exe just pull the data out? Seems muddled up. If the exe is pulling the data out it would then also have the ability to save spreadsheets every so often as well.

How strange...

 

[DauntingGecko]

Option Explicit

Private Sub SaveCopies()

Dim SaveTo As String

SaveTo = "\\ServerName\Path\FileName " & CStr(Format(Now, "dd MMM yyyy HH mm ss")) & ".xls"

ThisWorkbook.SaveAs Filename:=SaveTo
Application.OnTime Now + TimeValue("00:00:20"), "SaveCopies"

End Sub

Change \\ServerName\Path\FileName to the location where you want to save the workbook. Also change the 20 number to the number of seconds you want it to loop and save.

 

[paolfili]

Thanks a lot.
Works very well!

Is possible to make some enhancements?

I want to have different sheets with different DDE streaming data.
I have a different files each one with a list of symbols.
I want excel read the symbols and stream for each file I have in a different sheet.
I.e. This is the file1
-----------------
SYM1
SYM2
-----------------
This is the file2
---------------
SYM3
SYM4
------------
Ok.
I want in Sheet1 :
the stream of =TOS|VOLUME!'SYM1' and
=TOS|VOLUME!'SYM2'
in Sheet2 :
The stream of =TOS|VOLUME!'SYM3' and =TOS|VOLUME!'SYM4'


*********************
The I have the suggested routine:


--------------------------
Private Sub SaveCopies()

Dim SaveTo As String

SaveTo = "\\ServerName\Path\FileName " & CStr(Format(Now, "dd MMM yyyy HH mm ss")) & ".xls"

ThisWorkbook.SaveAs Filename:=SaveTo
Application.OnTime Now + TimeValue("00:00:20"), "SaveCopies"

End Sub
----------------------

Is possible to save data from each Sheet in different Files?
(using i.e. a Master macro that call childern macro each for each streaming sheet) ?

Thanks

Option Explicit

Private Sub SaveCopies()

Dim SaveTo As String

SaveTo = "\\ServerName\Path\FileName " & CStr(Format(Now, "dd MMM yyyy HH mm ss")) & ".xls"

ThisWorkbook.SaveAs Filename:=SaveTo
Application.OnTime Now + TimeValue("00:00:20"), "SaveCopies"

End Sub

Change \\ServerName\Path\FileName to the location where you want to save the workbook. Also change the 20 number to the number of seconds you want it to loop and save.