Бұл жаттығу веб-сайттан деректерді қалай оқуға болатындығын көрсетеді, бұл жағдайда Yahoo.com-дан валюта бағамдарының минутқа дейін өзгеруі.
Оқырманға Әзірлеуші лентасы көрсетілген және ол VBA редакторымен таныс деп есептеледі. Олай болмаса, Google-дің «Excel Developer Tab» немесе «Excel Code Window» сұраймыз.
Пререквизиттер құрамына қораптарды толтыру және аттарды анықтау туралы білім кіреді.
Жұмыс кітабы екі парақтан тұрады:
Пайдаланушы интерфейсі:
Сатып алу және сату тіркесімдері төмендегі жергілікті деректер парағына сілтеме жасайды.
D11 кестесі пайдаланушының пішімін сақтай отырып, веб-сайттың өзінен автоматты түрде қойылады.
Бұл жаттығуға арналған xlsm жүктеуге болады Мұнда.
Қолданбаны өзіңіз құру.
Екі тіркесімді парақ жасаңыз. Құрама өрістер екінші парақтың ұяшықтарына сілтеме жасайды.
Сонымен қатар, өрістер терезесін пайдаланып, веб-сайтты оқу үшін кодты шақырады өзгеріс оқиға.
Валюта атауларын төмендегі тізімнен екінші параққа («Валюталар») қоюға болады, сұрыптау тәртібі жеке қалауыңыз бойынша:
| ZAR |
| USD |
| EUR |
| GBP |
| CHF |
| AUD |
| NZD |
| JPY |
| CAD |
| SEK |
| DKK |
| NOK |
| MUR |
| HKD |
| SGD |
| ILS |
| AED |
| INR |
| CNY |
Деректерді В және Е бағандарына салыңыз.
Атауларды анықтаңыз және суреттегідей индекс функцияларын қолданыңыз:
Атаулар жергілікті «Валюталар» парағында анықталғандықтан, «Басты» парақ тек мәнді алу үшін анықталған атауларға сілтеме жасауы керек, яғни сәйкесінше «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