Rank: Advanced Member
Groups: Registered, Registered Users Joined: 3/19/2005(UTC) Posts: 2,995
Was thanked: 14 time(s) in 10 post(s)
|
I recently start up with a Value Line subscription. Unlike IBD, I don't see a way to d/l the stocks in an Excel format or any other pre-formatted state. As such I came up with this fairly painless method of converting the clipboard to simple text using MS WORD. After the conversion is complete just save the file as simple text and change the extension to sym for the Downloader.
[code:1:bd3c920063]Sub FormatValueLine()
' 1) Highlight ValueLine symbols on screen and copy to clipboard
' 2) In Word, select EDIT | PASTE SPECIAL | UNFORMATTED TEXT | OK
' 3) Manually remove all parentheses that are not surrounding a ticker symbol before running macro!!
' Insert blank space at end of symbol list
Selection.HomeKey Unit:=wdStory
Selection.EndKey Unit:=wdStory
For i = 1 To 100
Selection.TypeParagraph
Next i
' Remove extra row spaces
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " ^p ^p ^p "
.Replacement.Text = " ^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
' Remove column separator
Selection.HomeKey Unit:=wdStory
For i = 1 To 100
With Selection.Find
.Text = " "
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.MoveDown Unit:=wdLine, Count:=3
Selection.HomeKey Unit:=wdLine
Next i
' Truncate space on right side of symbol
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ") "
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
' Truncate space on left side of symbol
Selection.HomeKey Unit:=wdStory
For i = 1 To 100
Selection.Find.ClearFormatting
With Selection.Find
.Text = "("
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
Next i
' Format symbol for QC
Selection.HomeKey Unit:=wdStory
For i = 1 To 100
Selection.TypeText Text:="us;"
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.HomeKey Unit:=wdLine
Next i
' Return to home
Selection.HomeKey Unit:=wdStory
End Sub[/code:1:bd3c920063]
|
|
|
|
Rank: Advanced Member
Groups: Registered, Registered Users, Subscribers, Unverified Users Joined: 10/28/2004(UTC) Posts: 3,111 Location: Perth, Western Australia
Was thanked: 16 time(s) in 16 post(s)
|
G
If you send me the data file to my email, as it is downloaded/received from the originator, I will have a look at an Excel macro for you.
wabbit :D
|
|
|
|
Rank: Advanced Member
Groups: Registered, Registered Users Joined: 3/19/2005(UTC) Posts: 2,995
Was thanked: 14 time(s) in 10 post(s)
|
Thanks W. There is no download option as far as I can discern. I am just highlightling the text off the screen and copying it to the clipboard. The Excel macro is no sweat, but I was hoping someone would stop by and say Hey! Just click here to find the d/l section on the Value Line website. I'm lazy.
|
|
|
|
Rank: Advanced Member
Groups: Registered, Registered Users, Subscribers Joined: 3/7/2005(UTC) Posts: 1,346
|
hey g ..... not sure what your after but here's a few...... click and save excel type links.....h
[EDITED by Moderator]
|
|
|
|
Rank: Advanced Member
Groups: Registered, Registered Users Joined: 3/19/2005(UTC) Posts: 2,995
Was thanked: 14 time(s) in 10 post(s)
|
Wow! That's exactly what I was hoping existed. I wrote an email to ValueLine asking them if such formats existed, but have yet to receive a reply. I temporarily edited (hid) those links until you tell me that they are available for anyone to see without a subscription. I realize that they are open access, but are the files intended for non-subscribers too? If so, I should have saved my annual subscription fee. Let me know.
p.s., thanks for the speedy reply! :D
|
|
|
|
Rank: Advanced Member
Groups: Registered, Registered Users, Subscribers Joined: 3/7/2005(UTC) Posts: 1,346
|
now now g...... you don't think i'd hack their site do ya.... :angel: ....... those are free for anyone..... kinda thought i had more, will scratch around for'em if its what your after..... if it's somthin i get by, uhh, shall we say 'questionably means'.... i won't post it..... h
|
|
|
|
Rank: Advanced Member
Groups: Registered, Registered Users Joined: 3/19/2005(UTC) Posts: 2,995
Was thanked: 14 time(s) in 10 post(s)
|
standard
small and mid cap
value line 600
research center
The links seem to report back only a broad universe of stocks. I could not correlate them to the current listing. They really have no meaning as far as I can discern. They are not ranked, nor do they have a file date associated with them. It might be a ploy to suck in the leeches. I found a few other variations that worked too (try appending VL100 and Select).
Thanks for clarifying.
|
|
|
|
Rank: Advanced Member
Groups: Registered, Registered Users, Subscribers Joined: 3/7/2005(UTC) Posts: 1,346
|
hey g.... yeah those are just value lines basic lists, not ranked... are lookin for the lists say like, grouped/ranked by timeliness 1 thru 5......h
|
|
|
|
Rank: Advanced Member
Groups: Registered, Registered Users Joined: 3/19/2005(UTC) Posts: 2,995
Was thanked: 14 time(s) in 10 post(s)
|
Yep.. the timeliness list. Like I mentioned, I have the info, but I had to work to get it formatted. No biggie, I just thought I might be missing something. I'm slow, but I eventually get where I'm going! :P
|
|
|
|
Rank: Advanced Member
Groups: Registered, Registered Users Joined: 3/19/2005(UTC) Posts: 2,995
Was thanked: 14 time(s) in 10 post(s)
|
Follow the links to 'The Value Line Investment Survey - Standard Edition - Stock Screener'. After that, screen the list for Timeliness Rank = 1. When the list appears, you will be given an option to save the results in an Excel file. Perfect.
Thanks Jim!
|
|
|
|
Users browsing this topic |
Guest (Hidden)
|
Forum Jump
You cannot post new topics in this forum.
You cannot reply to topics in this forum.
You cannot delete your posts in this forum.
You cannot edit your posts in this forum.
You cannot create polls in this forum.
You cannot vote in polls in this forum.