Энэ дасгал нь вэбсайтаас авсан өгөгдлийг хэрхэн уншихыг харуулдаг бөгөөд энэ тохиолдолд Yahoo.com-ийн хамгийн сүүлийн үеийн валютын ханш.
Уншигч нь Хөгжүүлэгчийн туузыг харуулсан бөгөөд VBA редакторыг сайн мэддэг гэж таамаглаж байна. Хэрэв үгүй бол Google-ийн “Excel Developer Tab” эсвэл “Excel Code Window” -ийг ашиглана уу.
Урьдчилсан нөхцөл нь хосолсон хайрцгийг бөглөх, нэрийг тодорхойлох мэдлэгийг багтаадаг.
Ажлын дэвтэр нь хоёр хуудаснаас бүрдэнэ.
Хэрэглэгчийн интерфэйс:
Худалдан авах, зарах хосолсон хайрцгууд нь доорх орон нутгийн мэдээллийн хуудсыг харуулдаг.
D11 дээрх хүснэгтийг вэбсайтаас өөрөө хуулж, хэрэглэгчийн форматыг хадгалах болно.
Энэ дасгалын xlsm програмыг татаж авах боломжтой энд.
Аппликешныг өөрөө бүтээх.
Хоёр хос хайрцаг бүхий хуудас үүсгээрэй. Самбар хайрцгууд нь хоёр дахь хуудсан дээрх нүднүүдийг лавлах болно.
Комбо хайрцгууд нь мөн ашиглан вэбсайтыг унших кодыг дуудах болно Change үйл явдал.
Валютын нэрийг доорх жагсаалтын хоёр дахь хуудсанд ("Валютууд") нааж болох бөгөөд эрэмбэлэх дараалал нь хувийн сонголтоос хамаарна.
| ZAR |
| Ам.доллар |
| EUR |
| GBP |
| CHF |
| AUD |
| NZD |
| JPY |
| CAD |
| SEK |
| DKK |
| NOK |
| MUR |
| HKD |
| SGD |
| ILS |
| AED |
| : MNT |
| CNY |
Өгөгдлийг B ба E баганад буулгана уу.
Зургийн дагуу нэрсийг тодорхойлж, индексийн функцийг ашиглана уу.
Орон нутгийн мэдээллийн хуудсан дээр "Валютууд" гэсэн нэр томъёог тодорхойлсон тул "Үндсэн" хуудас нь утгыг авахын тулд зөвхөн тодорхойлсон нэрсийг дурдах ёстой, өөрөөр хэлбэл E10 ба G10 "Үндсэн" нүднүүдийн хувьд = SELL ба = АВАХ.
Бид 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