[es] - vba code - web download kao .csv

ramzesIV

Član broj: 263681
Poruke: 149
*.univie.teleweb.at.

+6 Profil

^{28.07.2011. u 13:53 - pre 155 meseci}

Code:
Sub GetOne()
'   Download one stock only

    Dim QuerySheet As Worksheet
    Dim DataSheet As Worksheet
    Dim EndDate As Date
    Dim StartDate As Date
    Dim Symbol As String
    Dim qurl As String
    Dim nQuery As Name


    Application.DisplayAlerts = False
    Application.Calculation = xlCalculationAutomatic

    Set DataSheet = ActiveSheet

        StartDate = DataSheet.Range("B2").Value
        EndDate = DataSheet.Range("B3").Value
        Symbol = DataSheet.Range("B4").Value
        Range("C7").CurrentRegion.ClearContents

'construct the URL for the query

        qurl = "http://chart.yahoo.com/table.csv?s=" & Symbol
        qurl = qurl & "&a=" & Month(StartDate) - 1 & "&b=" & Day(StartDate) & _
            "&c=" & Year(StartDate) & "&d=" & Month(EndDate) - 1 & "&e=" & _
            Day(EndDate) & "&f=" & Year(EndDate) & "&g=" & Range("C4") & "&q=q&y=0&z=" & _
            Symbol & "&x=.csv"

QueryQuote:
             With ActiveSheet.QueryTables.Add(Connection:="URL;" & qurl, Destination:=DataSheet.Range("C7"))
                .BackgroundQuery = True
                .TablesOnlyFromHTML = False
                .Refresh BackgroundQuery:=False
                .SaveData = True
            End With

            Range("C7").CurrentRegion.TextToColumns Destination:=Range("C7"), DataType:=xlDelimited, _
                TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
                Semicolon:=False, Comma:=True, Space:=False, other:=False

    Range("C1:I1").Select
    Selection.ColumnWidth = 8

'turn calculation back on

    Application.DisplayAlerts = True
    Range("C8:I6000").Select
    Selection.Sort Key1:=Range("C8"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

    RemoveNames

Range("A1").Select

End Sub
Sub RemoveNames()

Dim nQuery As Name

        For Each nQuery In Names
            If IsNumeric(Right(nQuery.Name, 1)) Then
                nQuery.Delete
            End If
        Next nQuery

End Sub

resila sam problem.

ako nekom treba kod da downloaduje podatke u excel, ovo je po meni jedan od boljih makroa.

_{[Ovu poruku je menjao ramzesIV dana 29.07.2011. u 11:20 GMT+1]}

_{[Ovu poruku je menjao ramzesIV dana 29.07.2011. u 11:21 GMT+1]}

Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1319

Jabber: 3okc@elitesecurity.org

+116 Profil

Re: vba code - web download kao .csv

^{31.07.2011. u 13:46 - pre 155 meseci}

Citat:

ramzesIV: resila sam problem.

ako nekom treba kod da downloaduje podatke u excel, ovo je po meni jedan od boljih makroa.

1. Izmenila si poruku u kojoj iznosiš problem i napisala da si ga "rešila".
2. Da bi nam ovo saopštila, bilo je potrebno da skrolujemo kroz dve strane koda (za koji ne znamo ni šta radi).

Sada se više ne zna gde je glava a gde rep.

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!

Odgovor na temu

ramzesIV

Član broj: 263681
Poruke: 149
*.univie.teleweb.at.

+6 Profil

Re: vba code - web download kao .csv

^{01.08.2011. u 17:09 - pre 155 meseci}

dobila sam html funkciju koju treba da prebacim u vb.

posto nisam ni sa vb dobro, jos manje znam php.

a posto se niko nije javio na forumu, ja sam onaj drugi kod koji je napisan u vb, prepravljajuci ga (umesto url koji je dat u kodu stavila ovaj server koji je meni potreban) dobila ono sto sam trazila.

i onda vise nije bilo svrhe da drzim i dalje ona dva koda, pa sam ispravila poruku i stavila ovaj vb kod koji mi je mnogo pomogao.

i zato sam ga ostavila u poruci, i napisala da sam resila problem, ali ako nekom smeta, mogu (ili moze moderator) obrisati.

mislim da nisam nista lose uradila.

ne vidim u ovoj temi 2 strane, ja samo vidim imenjenu poruku.

Odgovor na temu