[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Rossetta for Metastock file format.



PureBytes Links

Trading Reference Links

Thanks, Walter,

Very useful code.


----- Original Message -----
From: Walter Lake <wlake@xxxxxxxxx>
To: <metastock@xxxxxxxxxxxxx>
Sent: Monday, May 29, 2000 10:54 AM
Subject: Re: Rossetta for Metastock file format.


> Hi James
>
> Sorry ... no Developer's Kit needed here <G>
>
> I use automated variations of this macro procedure i.e., sub, for every
type
> of data that I run into Metastock. I don't know what version of XL you are
> using or version of Metastock. Save your file as ASCII text file or as an
> Excel 4 file or whatever weird and wonderful thing Metastock will accept
and
> run the "convert" procedures in Downloader.
>
> No magic ... just very simple code based on Ton's posts. I never bothered
to
> shorten it, clean it up or simplify it because it's very fast and easy for
> traders to understand. The "stops" allow you to manually enter / change
> inputs for data of different number of rows.
>
> Let me know if you need help inserting this into the Excel VBE or help in
> changing it to your situation, i.e., number/order of columns.
>
> Best regards
>
> Walter
>
> ===============================
>
> Sub CleanupFile_AddMetastockFormat()
> '
> 'Cleanup of worksheet
> 'Insert blank row at row 1
> 'Insert blank col B before Date col
> 'delete Col J (day #)
> '
>     Rows("1:1").Delete Shift:=xlUp
>     Rows("1:1").Insert Shift:=xlDown
>     Columns("B:B").Insert Shift:=xlToRight
>     Columns("J:J").Delete Shift:=xlToLeft
>
> 'Add "D" for Daily
>
>     Range("B2").Select
>     ActiveCell.FormulaR1C1 = "D"
>     Range("B3").Select
>     ActiveCell.FormulaR1C1 = "D"
>     Range("B2:B3").Select
>     Selection.AutoFill Destination:=Range("B2:B78"), Type:=xlFillDefault
>
>     Range("C2").Select
>
>     Stop
>
> 'Change date to Metastock date format and to the correct date
> 'Change range to the correct number of rows that you have, i.e. 78
>
>     ActiveCell.FormulaR1C1 = "05/28/2000"
>     Range("C2").Select
>     Selection.Copy
>     Range("C3").Select
>     ActiveSheet.Paste
>     Range("C2:C3").Select
>     Application.CutCopyMode = False
>     Selection.AutoFill Destination:=Range("C2:C78"), Type:=xlFillDefault
>
>     Range("A1").Select
>     ActiveCell.FormulaR1C1 = "<TICKER>"
>     Range("B1").Select
>     ActiveCell.FormulaR1C1 = "<PER>"
>     Range("C1").Select
>     ActiveCell.FormulaR1C1 = "<DATE>"
>     Range("D1").Select
>     ActiveCell.FormulaR1C1 = "<OPEN>"
>     Range("E1").Select
>     ActiveCell.FormulaR1C1 = "<HIGH>"
>     Range("F1").Select
>     ActiveCell.FormulaR1C1 = "<LOW>"
>     Range("G1").Select
>     ActiveCell.FormulaR1C1 = "<CLOSE>"
>     Range("H1").Select
>     ActiveCell.FormulaR1C1 = "<VOL>"
>     Range("I1").Select
>     ActiveCell.FormulaR1C1 = "<O/I>"
>     Range("J1").Select
>
>     Rows("78:78").Select
>
>
> End Sub
>
>
>
>
> ----- Original Message -----
> From: "James Palmer" <jamespalmer@xxxxxxxxxxxxx>
> To: <metastock@xxxxxxxxxxxxx>
> Sent: Monday, May 29, 2000 11:16 AM
> Subject: Re: Rossetta for Metastock file format.
>
>
> | Walter,
> |
> | How would you create a VBA routine to convert your excel file to
Metastock
> | format?   Do you need the metastock developers kit for that or is there
a
> | Rossetta stone out there that you know of that reveals how to tranlate
> data
> | into the format?
> |
> | Thanks,
> |
> | James
> |
> |
> |
> | ----- Original Message -----
> | From: Walter Lake <wlake@xxxxxxxxx>
> | To: Metastock bulletin board > <metastock@xxxxxxxxxxxxx>
> | Sent: Monday, May 29, 2000 6:57 AM
> | Subject: for stocks only?
> |
> |
> | > Thanks for your email.
> | >
> | > Metastock can definitely be used for different kinds of technical
> | analysis.
> | >
> | > Just because the "user interface" is set up to make it easier to look
at
> | > stocks and commodities doesn't mean that Metastock is limited to
"only"
> | > analyzing and system testing stocks and commodities.
> | >
> | > Only minor changes would be required to change Metastock into
"generic"
> | > technical analysis software.
> | >
> | > Many kinds of fundamental data can be entered into Metastock for
> technical
> | > analysis. Set it up as you would for a mutual fund. Paste your data in
3
> | > times, i.e., into the H, L and C columns of Downloader or use a VBA
> | routine
> | > to set up your XL file in Metastock format for conversion.
> | >
> | > Either you think / believe that technical analysis is a valid form of
> | > analysis or you don't? If it's a valid form of analysis, then it's
valid
> | for
> | > different types of time series data.
> | >
> | > The disconnect between stock price and underlying fundamentals has
lead
> | many
> | > to believe that fundamentals are not important and that only the chart
> | > matters. Therefore there is no need to even consider other uses for
> | > Metastock. Whether that will always be the case ... who knows?
> | >
> | > Best regards
> | >
> | > Walter
> | >
> | >
> | >
> |
>
>