Ինչպես կարդալ տվյալները առցանց վեբ էջերից Excel VBA-ով

Այս վարժությունը ցույց է տալիս, թե ինչպես կարելի է կարդալ տվյալները վեբկայքից, այս դեպքում՝ Yahoo.com-ից արժույթի փոխարժեքների մինչև րոպեն:

Ենթադրվում է, որ ընթերցողը ցուցադրում է Developer ժապավենը և ծանոթ է VBA խմբագրին: Եթե ​​ոչ, խնդրում ենք Google- ի «Excel Developer Tab» կամ «Excel Code Window»:

Նախադրյալները ներառում են համակցված տուփերի լրացման և անունների սահմանման իմացություն.

Աշխատանքային գրքույկը բաղկացած է երկու թերթիկից.

Օգտագործողի միջերես.

Գնել և վաճառել համակցված տուփերը հղում են կատարում ստորև բերված տեղական տվյալների թերթիկին:

D11-ի աղյուսակը ավտոմատ կերպով կտեղադրվի հենց կայքից՝ պահպանելով օգտվողի ձևաչափումը:

Այս վարժության xlsm-ը կարելի է ներբեռնել այստեղ.

Կառուցեք հավելվածը ինքներդ:

Ստեղծեք թերթիկ երկու համակցված տուփերով: Համակցված տուփերը կհղվեն երկրորդ թերթիկի բջիջներին:

Համակցված տուփերը նաև կկանչեն կոդը՝ կայքը կարդալու համար՝ օգտագործելով Փոփոխություն իրադարձություն.

Արտարժույթի անունները կարող են տեղադրվել ստորև բերված ցանկի երկրորդ թերթիկում («Արժույթներ»), քանի որ տեսակավորման կարգը անձնական նախասիրության հարց է.

Տեղադրեք տվյալները B և E սյունակներում:

Սահմանեք անունները և օգտագործեք ինդեքսի գործառույթները՝ ըստ նկարի.

Քանի որ անունները սահմանվել են տեղական տվյալների թերթիկում՝ «Արժույթներ», «Հիմնական» թերթը պարզապես պետք է հղում կատարի սահմանված անուններին՝ արժեքը ստանալու համար, այսինքն՝ = SELL և = BUY «Հիմնական» բջիջների E10 և G10 համապատասխանաբար:

Մենք կծրագրավորենք Excel-ը համացանցը կարդալու համար: Այնուամենայնիվ, այն ունի իր ներկառուցված գործընթացը Տվյալների ժապավենի վրա, որի օրինակը կարող եք ցանկանալ գրանցել որպես մակրո տարբեր սցենարներ կառուցելիս: Նկատի ունեցեք, որ համակարգչի կամ բրաուզերի կազմաձևերը կարող են բացասաբար ազդել վեբ էջի սկրիպտների վրա:

Կոդ

Տեղադրեք մոդուլ և մուտքագրեք հետևյալը.

Option Explicit

Sub Ticker()
  Dim currBuy As String
  Dim currSell As String

  Range("D11:F14").ClearContents      'prepare the ground for the web data
  currBuy = Range("BUY")          'get variable values from Defined Names previously set up
  currSell = Range("SELL")
  With ActiveSheet.QueryTables.Add(Connection:= _
    "URL;http://finance.yahoo.com/q?s=" & currBuy & currSell & "=X", Destination:=Range("$D$11"))
    .Name = "q?s=" & currSell & currBuy & "=X"
    .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 = """table1"""
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False
  End With
End sub

Sub DropDown2_Change()    'This event will call the routine above. Object name might differ.
    Call Ticker
End Sub

Sub DropDown1_Change()
    Call Ticker
End Sub

Պահպանեք աշխատանքային գիրքը xlsm տեսակի տեսքով.

Ստուգեք կոդը՝ փոխելով համակցված տուփերի արժեքները, այնուհետև խելացիացրեք կպցրած աղյուսակի ձևաչափերը (չորս տասնորդական տեղ, ցանցագծեր, ստվերներ):

Excel ֆայլերի կոռումպացվածություն

Excel-ը երբեմն հայտնի է, որ փչացնում է ֆայլերը պահելու ժամանակ, այնուհետև փորձում է ինքնուրույն վերականգնել իր ռեժիմը, որը հաճախ, իմ փորձով, պարզապես չի աշխատում: Սա կարող է աղետալի լինել օգտվողի համար, քանի որ սկզբնաղբյուր ֆայլն է (հնարավոր է, ձեր միակ պատճենը) ոչնչացվել: Վնասված Excel ֆայլեր Այնուամենայնիվ, կարելի է վերանորոգել երրորդ կողմի գործիքների միջոցով՝ խնայելով զգալի ժամանակ և ջանք:

Հեղինակի ներածություն.

Ֆելիքս Հուքերը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում նորոգում rar Արխիվ և sql վերականգնման ծրագրային արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com