Szkolenia z MS Excel

piątek, 17 lipca 2009

Makro- Importowanie kursów walut z Internetu

Masz dość ciągłego sprawdzania kursów walut?? To makro pozwoli Ci na importowanie danych kursów EUR, USD i CHF z Internetu. Dzięki jednemu przyciskowi możesz pobrać aktualny kurs walut i robić przeliczenia z wykorzystaniem tych kursów!

Sub ImportowanieWalut()
'
' ImportowanieWalut Makro
' Makro zarejestrowane 2009-07-17, autor Matik
'

'
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://kursy-walut.mybank.pl", Destination:=Range("A1"))
.Name = "kursy-walut.mybank.pl"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "1"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Range("A5:D36").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-30
Range("A1:D1").Select
Selection.Font.Bold = True
Range("C7").Select
Columns("C:C").ColumnWidth = 11.86
Columns("B:B").ColumnWidth = 10.57
Range("D1:D5").Select
Selection.ClearContents
Range("A1").Select
End Sub

To makro importuje kursy walut ze strony http://kursy-walut.mybank.pl/. A oto co uzyskamy po uruchomieniu tego makra

Nazwa waluty Kod waluty Średni kurs
Dolar amerykański 1 USD 3,063
Euro 1 EUR 4,3184
Frank szwajcarski 1 CHF 2,8425

Czemu akurat z tej strony? Nie wiem chyba była w czołówce googla pod hasłem aktualny kurs walut:)

7 komentarzy:

  1. OOO ale super. O to mi chodziło. Dzięki!!

    OdpowiedzUsuń
  2. Hej a możesz poradzić w jaki sposób pozbyć się franka? :D bo zaczynam w visualu a to by mi się przydało :) czekam, pozdrawiam

    OdpowiedzUsuń
  3. Wystarczy zmodyfikować linijkę
    End With
    Range("A5:D36").Select
    Selection.ClearContents

    na

    End With
    Range("A4:D36").Select
    Selection.ClearContents

    To makro działa w bardzo prosty sposób. Najpierw importuje tabele z wszystkimi walutami a potem usuwa te niepotrzebne.
    Powodzenia!

    OdpowiedzUsuń
  4. Witam

    W jaki sposób wyświetlić tylko Eur i SEK ?? coś niemogę sobie poradzić z góry dzięki

    OdpowiedzUsuń
  5. Można też dużo prościej, używając funkcji KURS w Excelu:
    http://jordan.pl/pl/o-nas/kursy-walut-excel

    OdpowiedzUsuń
  6. Witam, czy można wprowadzić kod makra bez nagrywania go? jak mam wprowadzić powyższy kod? jak ustawić pobieranie kursu ze strony nbp.pl? Z góry wielkie dzięki

    OdpowiedzUsuń
  7. Witam,
    po odświeżeniu danych excel przywraca wszystkie waluty zamiast tylko pierwszych trzech. Czy może ktoś wie, jak rozwiązać problem. Z góry dzięki

    OdpowiedzUsuń

Related Posts Plugin for WordPress, Blogger...