real time data graphing/analysis speadsheet

["SenFl" <SenFl@xxxxxxxxxxx>]

You can save/graph up to 255 fields of information.

Attached is a spreadsheet which will copy information from a real time DDE
datafeed  (I have it set up for quote.com, you can use any other one as
well) and graph the information or any formulas you create.

I have it set up to update every 5 seconds.  You can adjust it to update
whatever time frame you like.

To make it work, do the following:
Open spreadsheet with Excel 97
enable macros
update all linked information
select : tools, macro,macros,run datatimer

to edit the update frequency or add more symbols to track:
tools,
macro,
macros,
edit

You must put the Qlink dde instructions in columns b1 thru ?1directly.  You
cannot
reference another area which contains the Qlink DDE instructions.

To stop the macro, click on another sheet in the workbook.

To use Excel for something else, open another version of it.  The program
will not let you work on another sheet at the same time the macro runs.
(Maybe someone can fix this)

If anyone adds any interesting features to this spreadsheet, I would
appreciate letting me see what  you have done.  A problem I encounter is
that when the program runs, I cannot use any other sheets or workbooks.  The
program stops dead in its tracks.  I would like to be able to work on many
other spreadsheets, reference this spreadsheet and create charts while the
program is saving information.

Below is the code which accomplishes all this.

Use at your own risk.  Not responsible for anything bad that happens as a
result of using this.


' Copy Cells Macro
'
'

Sub DataTimer()
' start time checking loop
' to change time, modify the hour, minute or second entry

    If Time() <= #11:59:00 PM# Then

' to change the data capture interval, you can change the hours, minutes or
seconds
' it is now set for 5 SECOND invervals

        Application.OnTime Now + TimeValue("00:00:05"), "dorow"

    End If

End Sub




Sub dorow()

' identify the number of columns you want to track; it is set to 25
    colnumber = 25

' update OLE links
    ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources

' copy row 1
    Worksheets("dataarea").Range(Cells(1, 1), Cells(1, colnumber + 1)).Copy

    Worksheets("dataarea").Range("a1").End(xlDown).Offset(1, 0).PasteSpecial
xlValues

    Application.CutCopyMode = False

' call DataTimer module
    DataTimer

End Sub








Attachment Converted: "c:\eudora\attach\copycells.xls"