Silver Spreadsheet Available Here!

Discussion in 'Silver' started by haveblue, Apr 22, 2011.

  1. haveblue

    haveblue New Member

    Joined:
    Apr 21, 2011
    Messages:
    57
    Likes Received:
    0
    Trophy Points:
    0
    I've been working on silver log 1.1, which updates a single spot price when you load the file, and every 10 mins thereafter. This is achieved by using external data from the Perth mint website and a 2nd sheet which "talks" to the first one I have set up.
     
  2. Mickroy

    Mickroy New Member

    Joined:
    Feb 9, 2011
    Messages:
    159
    Likes Received:
    0
    Trophy Points:
    0
    Location:
    Brisvegas
    How do you do this? Is it just a web data source as explained earlier?

    In the meantime I'm using data from the Perth Mint web site also, but parsing the html returned from a web request. It's a bit flaky though as you need to know what you're looking for when searching the document. Here's code for silver from Perth Mint if anyone is interested & technically inclined.

    Code:
    Sub uxUpdateSilverSpotButton_Click()
    On Error GoTo Err:
    
        Dim httpRequest As Object: Set httpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
        Dim regExp As Object: Set regExp = CreateObject("vbscript.regexp")
        Dim regExpMatches As Object
        Dim silverPrice As Currency
        
        'Fetch html from perth mint prices page
        With httpRequest
            .Open "GET", "http://www.perthmint.com.au/metalPrices.aspx", False
            .Send
        End With
        
        'Find silver price with regex
        With regExp
            .IgnoreCase = True
            .Global = True
            .Pattern = "<span id=""lblSilverAskAU"">(.+)</span>"
            Set regExpMatches = .Execute(httpRequest.responseText)
        End With
        
        'Set spot price cell value
        ActiveSheet.Range("L21").Value = CCur(regExpMatches.Item(0).SubMatches.Item(0))
    
    Err:
        If Len(Err.Description) > 0 Then MsgBox (Err.Description)
        Set httpRequest = Nothing
        Set regExp = Nothing
        Set regExpMatches = Nothing
    
    End Sub
    
     
  3. haveblue

    haveblue New Member

    Joined:
    Apr 21, 2011
    Messages:
    57
    Likes Received:
    0
    Trophy Points:
    0
    I followed the steps as outlined by Hiho above. I changed the data connections properties to always allow the connetion to the web data so I don't have to manaully refresh everytime I load the sheet. While I had the properties open I changed the refresh rate from 60 mins to every 10 mins, you could change it to every 1 min if you wanted to. I haven't entered any macros or code at all, hope this helps, cheers.
     
  4. samoth25

    samoth25 Member Silver Stacker

    Joined:
    Aug 12, 2011
    Messages:
    90
    Likes Received:
    13
    Trophy Points:
    8
    Location:
    Melbourne
    Haveblue

    Thanks for your email will give you some feedback after playing around
     
  5. Wout

    Wout New Member

    Joined:
    May 8, 2011
    Messages:
    502
    Likes Received:
    0
    Trophy Points:
    0
    Location:
    Australia
    I am just in the process of making one, thanks this will help laying it out :)
     
  6. haveblue

    haveblue New Member

    Joined:
    Apr 21, 2011
    Messages:
    57
    Likes Received:
    0
    Trophy Points:
    0
    Cheers...oh yeah.....I've got a sheet for gold now as well. It's mirror copy of the silver log but it updates the gold price automatically, happy to email that one as well if anyones interested :D

    Haveblue.
     
  7. Guest

    Guest Guest

    Uhmmm Spread what??

    REDBACK
     
  8. Midnight Man

    Midnight Man Member Silver Stacker

    Joined:
    Jul 16, 2011
    Messages:
    832
    Likes Received:
    0
    Trophy Points:
    16
    And, without wanting to step on toes etc... because I had no clue of the price I paid for some lumps of silver I bought back in 2007, I have a home brew special that simply asks for Quantity - Item - Oz for Silver and Gold, on one screen/sheet. In the background, it rips off Perth Minth and Kitco pricing, then displays your stack in AUD (PM), USD (PM), USD (Kitco) pricing for each metal, then total.

    Happy to mail this to anyone who wants it, or wants to improve/break/plagiarise :)

    EDIT: To save mucking about with PM's and return e-mails, it's here for anyone that wants it: http://www.freefilehosting.net/silverstackersstackercalc
     
  9. Silvermonkey

    Silvermonkey Active Member

    Joined:
    Jul 30, 2011
    Messages:
    873
    Likes Received:
    36
    Trophy Points:
    28
    Location:
    Australia
    I would love a copy of this when it's ready thanks haveblue!!
    :eek:)
     
  10. kookaburra

    kookaburra New Member

    Joined:
    Jul 12, 2010
    Messages:
    177
    Likes Received:
    0
    Trophy Points:
    0
    Location:
    Sweden
  11. undftd

    undftd Member Silver Stacker

    Joined:
    Aug 3, 2011
    Messages:
    710
    Likes Received:
    0
    Trophy Points:
    16
    Location:
    Brisbane
    Thanks again Haveblue.

    Great Spreadsheet.
     
  12. Chilli

    Chilli Member Silver Stacker

    Joined:
    Mar 21, 2011
    Messages:
    958
    Likes Received:
    0
    Trophy Points:
    18
    Location:
    Australia
    and you have to enter your name, email adress and country to register ?

    how anonymous is that ?
     
  13. silver dragon

    silver dragon New Member

    Joined:
    Aug 22, 2011
    Messages:
    81
    Likes Received:
    0
    Trophy Points:
    0
    Location:
    Australia
    Hi haveblue,
    sent you an email for the spreadsheet but just discovered the link so I have downloaded it.
    Wow am I going to have fun playing with that.
    Thanks heaps
     
  14. renovator

    renovator Well-Known Member

    Joined:
    Jan 20, 2011
    Messages:
    6,989
    Likes Received:
    83
    Trophy Points:
    63
    Location:
    QLD
    I have a spreadsheet its on my bed. I dont know why so many would want a record on their pc of everything they own. . Im amazed . Call me old but i want sfa on my pc of my wealth or holdings .
     
  15. fishball

    fishball New Member Silver Stacker

    Joined:
    Apr 11, 2011
    Messages:
    6,509
    Likes Received:
    1
    Trophy Points:
    0
    Location:
    Shin Sekai Yori
    I have my spreadsheet on a USB stick which only has the spreadsheet and is encrypted with truecrypt :).
     
  16. renovator

    renovator Well-Known Member

    Joined:
    Jan 20, 2011
    Messages:
    6,989
    Likes Received:
    83
    Trophy Points:
    63
    Location:
    QLD
    Nice !!! good to see a bit of commonsense fishball
     
  17. silver dragon

    silver dragon New Member

    Joined:
    Aug 22, 2011
    Messages:
    81
    Likes Received:
    0
    Trophy Points:
    0
    Location:
    Australia
    Never thought about having a spreadsheet for anybody to stumble across. I really like the idea of knowing what I have so might have to do like fishball and usb the sheet.
     
  18. Yippe-Ki-Ya

    Yippe-Ki-Ya New Member

    Joined:
    Feb 23, 2011
    Messages:
    5,465
    Likes Received:
    0
    Trophy Points:
    0
    Location:
    The Land of Guilty by Default
    + 1

    Thats bluddy right mate - its the first thing the government goons will seize is you pc! :lol:
     
  19. haveblue

    haveblue New Member

    Joined:
    Apr 21, 2011
    Messages:
    57
    Likes Received:
    0
    Trophy Points:
    0
    Thanks for showing me the website, I haven't seen that one before, cheers. Personally it's not for me, after the Playstation Network was hacked I was glad I never stored my Credit Card number on that network. Many people said that the real reason that network was hacked was to get peoples passwords, as most people use the same password for everything.
     
  20. haveblue

    haveblue New Member

    Joined:
    Apr 21, 2011
    Messages:
    57
    Likes Received:
    0
    Trophy Points:
    0
    +1 :D My harddrive is encrypted...and then my actual spreadsheet is encrypted as well.
     

Share This Page