Ipinapakita ng artikulong ito kung paano i-refresh ang isang worksheet o tsart sa mga regular na agwat. Ang ehersisyo na ito ay nagtatayo ng isang timer na nagre-refresh ng worksheet bawat isang minuto, na sumasalamin ng mga pagbabago sa pinagmulang data.
Ipinapalagay ng artikulong ito na ang mambabasa ay ipinapakita ang Developer ribbon at pamilyar sa VBA Editor. Kung hindi, mangyaring Google "Excel Developer Tab" o "Excel Code Window".
Ang isang halimbawa ng workbook na ginamit sa ehersisyo na ito ay maaaring matagpuan dito.
Ang mga paggamit ng pabagu-bagong pag-uulat ay maaaring:
- Pagbasa ng proprietary database na ibinigay sa iyong system ng telepono ng kumpanya, upang pag-aralan ang mga tawag.
- Bumuo ng isang random na numero bawat 15 minuto para sa mga layunin ng premyo o raffle.
- Magpadala ng awtomatikong mga email mula sa iyong lokal na database kapag natugunan ang ilang mga antas. (Dito magpapasya ang timer kung magpaputok ba ng proseso o hindi, batay sa mga nakamit na antas).
o, ang gagamitin namin:
- Ipakita ang pinakabagong USD / EUR exchange rate mula sa internet.
Ang data ay nakuha mula sa Website ng Yahoo Finance bawat isang minuto. Kapag matagumpay na nasubukan, ang isang mas matagal na agwat ng pagproseso ay dapat mapalitan.
Ang Interface
Magbukas ng isang bagong workbook;
Pangalanan ang unang sheet na "Ipakita". Dahil ang talahanayan D8 hanggang E11 ay mapunan mula sa web, ang mga halaga o mga heading ng hilera ay hindi kailangang ipasok. Ang natitira ay opsyonal.
Ang Kodigo
Buksan ang window ng VBA code at magpasok ng isang module. Kopyahin ang code sa ibaba sa modyul.
Ang Auto_Open na kaganapan starts ang Timer kapag nagbukas ang workbook at huminto kapag nagsara ang worbook, maliban kung ang code ay nagambala ng developer sa panahon ng pag-unlad.
Sub Auto_Open()
AlertTime = Now + TimeValue("00:01:00") 'interval in minutes
Application.OnTime AlertTime, "Ticker" 'call Sub Ticker, below
End Sub
Sub Ticker()
Dim currBuy As String
Dim currSell As String
Range("D8:F11").ClearContents 'prepare the destination for the web data
currBuy = "USD"
currSell = "EUR"
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://finance.yahoo.com/q?s=" & currBuy & currSell & "=X", Destination:=Range("$D$8"))
.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
AlertTime = Now + TimeValue("00:01:00") ‘move trigger on a minute
Application.OnTime AlertTime, "Ticker"
End Sub
Ang resulta
Tuwing ilang minuto ang talahanayan sa Sheet na "Display" ay maa-update mula sa website ng Yahoo. Sumangguni sa website ng Microsoft para sa mas kumplikadong mga koneksyon ng data.
Pag-recover ng mga nasirang workbook
Ang Excel ay kilalang nag-crash sa hindi inaasahang sandali, marahil ay nauugnay sa kakulangan ng mga mapagkukunan. Sa ganitong mga kaso ang mapagmulang file ay maaaring maging irrevocably nasira, at tumanggi na muling buksan. Sa kawalan ng madalas na pag-backup, isang tool upang mabawi nasira ang Excel Napakahalaga ng mga file.
Panimula ng May-akda:
Si Felix Hooker ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang rar ayusin at mga produkto ng software sa pag-recover ng sql. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa