Excel VBA ဖြင့်အွန်လိုင်းဝဘ်စာမျက်နှာများမှဒေတာဖတ်နည်း

ဤအခြေအနေတွင် Yahoo.com မှ တစ်မိနစ်အထိ ငွေကြေးလဲလှယ်နှုန်းများကို ဝဘ်ဆိုက်တစ်ခုမှ ဒေတာကို မည်သို့ဖတ်ရမည်ကို ဤလေ့ကျင့်ခန်းက ပြသသည်။

စာဖတ်သူတွင် Developer ribbon ကိုပြသထားပြီး VBA Editor နှင့် ရင်းနှီးသည်ဟု ယူဆပါသည်။ မဟုတ်ပါက၊ Google "Excel Developer Tab" သို့မဟုတ် "Excel Code Window" ကို ကျေးဇူးပြု၍

ကြိုတင်လိုအပ်ချက်များတွင် ပေါင်းစပ်ပုံးများကို ဖြည့်သွင်းခြင်းနှင့် အမည်များကို သတ်မှတ်ခြင်းဆိုင်ရာ အသိပညာ ပါဝင်သည်။.

အလုပ်စာအုပ်တွင် စာရွက်နှစ်ရွက် ပါဝင်သည်-

User Interface:

ဝယ်ခြင်းနှင့်ရောင်းခြင်း ပေါင်းစပ်သေတ္တာများသည် အောက်ဖော်ပြပါ ဒေသဆိုင်ရာဒေတာစာရွက်ကို ကိုးကားပါသည်။

D11 ရှိဇယားကို ဝဘ်ဆိုက်ကိုယ်တိုင်မှ အလိုအလျောက်ကူးထည့်မည်ဖြစ်ပြီး အသုံးပြုသူဖော်မတ်ချခြင်းကို ဆက်လက်ထိန်းသိမ်းထားမည်ဖြစ်သည်။

ဤလေ့ကျင့်ခန်းအတွက် xlsm ကို ဒေါင်းလုဒ်လုပ်နိုင်ပါသည်။ ဒီမှာ.

လျှောက်လွှာကိုကိုယ်တိုင်တည်ဆောက်ပါ။

ပေါင်းစပ်သေတ္တာနှစ်ခုဖြင့် စာရွက်တစ်ခုကို ဖန်တီးပါ။ ပေါင်းစပ်အကွက်များသည် ဒုတိယစာရွက်ပေါ်တွင် ဆဲလ်များကို ကိုးကားပါမည်။

combo-boxes များသည် ဝဘ်ဆိုဒ်ကိုဖတ်ရန် ကုဒ်ကို ခေါ်ဆိုမည်ဖြစ်သည်။ ပွောငျးလဲ အဖြစ်အပျက်။

ငွေကြေးအမည်များကို အောက်ဖော်ပြပါစာရင်းမှ ဒုတိယစာရွက် (“ငွေကြေးများ”) တွင် ကူးထည့်နိုင်သည်၊ အမျိုးအစား-အမှာစာသည် ပုဂ္ဂိုလ်ရေးဦးစားပေးကိစ္စဖြစ်သည်-

ဒေတာကို ကော်လံ B နှင့် E တွင် ကူးထည့်ပါ။

ပုံတွင်ပြထားသည့်အတိုင်း အမည်များကို သတ်မှတ်ပြီး အညွှန်းလုပ်ဆောင်ချက်များကို အသုံးပြုပါ-

ဒေသဆိုင်ရာဒေတာစာရွက် “Currencies” တွင် အမည်များကို သတ်မှတ်ထားသောကြောင့်၊ စာရွက် “Main” သည် တန်ဖိုးရရှိရန် သတ်မှတ်ထားသောအမည်များကို ရည်ညွှန်းရန်သာဖြစ်ပြီး၊ ဆိုလိုသည်မှာ “အဓိက” ဆဲလ် E10 နှင့် G10 အတွက် =SELL နှင့် =BUY အသီးသီးဖြစ်သည်။

ဝဘ်ကိုဖတ်ရန် Excel ပရိုဂရမ်ရေးပါမည်။ သို့သော် ၎င်းတွင် မတူညီသောအခြေအနေများကိုတည်ဆောက်ရာတွင် သင်မက်ခရိုအဖြစ်မှတ်တမ်းတင်လိုသည့်ဥပမာတစ်ခုဖြစ်သည့် Data ribbon တွင် ၎င်း၏ကိုယ်ပိုင် built-in လုပ်ငန်းစဉ်ပါရှိသည်။ ကွန်ပျူတာ သို့မဟုတ် ဘရောက်ဆာဖွဲ့စည်းပုံများသည် ဝဘ်စာမျက်နှာ script များကို ဆိုးရွားစွာ ထိခိုက်စေနိုင်ကြောင်း သတိပြုပါ။

အဆိုပါ Code ကို

မော်ဂျူးတစ်ခုကို ထည့်သွင်းပြီး အောက်ပါတို့ကို ထည့်သွင်းပါ။

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 ဖိုင်များ ပြင်ပကိရိယာများကို အသုံးပြု၍ ပြုပြင်နိုင်ပြီး အချိန်နှင့် ကြိုးစားအားထုတ်မှု အတော်အတန် သက်သာစေပါသည်။

စာရေးသူနိဒါန်း:

Felix Hooker သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ ပြုပြင် rar archive ကို နှင့် sql recovery software ထုတ်ကုန်များ။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com