VBA 타이머를 사용하여 Excel 워크 시트를 주기적으로 업데이트하는 방법

이 문서에서는 워크 시트 또는 차트를 정기적으로 새로 고치는 방법을 보여줍니다. 이 연습에서는 원본 데이터의 변경 사항을 반영하여 XNUMX 분마다 워크 시트를 새로 고치는 타이머를 작성합니다.

이 문서에서는 독자에게 개발자 리본이 표시되고 VBA 편집기에 익숙하다고 가정합니다. 그렇지 않은 경우 Google "Excel 개발자 탭"또는 "Excel 코드 창"을 사용하십시오.

이 연습에 사용 된 통합 문서의 예를 찾을 수 있습니다. 여기에서 확인하세요.

동적보고의 용도는 다음과 같습니다.

• Reading the proprietary database supplied with your company telephone system, to analyse calls.
• 상품이나 추첨을 위해 15 분마다 임의의 숫자를 생성합니다.
• 특정 수준이 충족되면 로컬 데이터베이스에서 이메일을 자동으로 보냅니다. (여기서 타이머는 달성 한 레벨에 따라 프로세스를 실행할지 여부를 결정합니다).

또는 우리가 사용할 것 :

• 인터넷에서 최신 USD / EUR 환율을 표시합니다.

데이터는 Yahoo Finance 웹 사이트 XNUMX 분마다. 성공적으로 테스트되면 더 긴 처리 간격으로 대체해야합니다.

인터페이스

새 통합 문서를 엽니 다.

첫 번째 시트의 이름을 "디스플레이"로 지정합니다. 테이블 D8 ~ E11이 웹에서 채워 지므로 값이나 행 머리글을 입력 할 필요가 없습니다. 나머지는 선택 사항입니다.

코드

VBA 코드 창을 열고 모듈을 삽입하십시오. 아래 코드를 모듈에 복사하십시오.

The Auto_Open event starts the Timer when the workbook opens and stops when the worbook closes, unless the code is interrupted by the developer during development.

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

결과

매 n 분마다 "디스플레이"시트의 표가 Yahoo 웹 사이트에서 업데이트됩니다. 보다 복잡한 데이터 연결은 Microsoft 웹 사이트를 참조하십시오.

손상된 통합 문서 복구

Excel has been known to crash at unexpected moments, probably related to a then lack of resources. In such cases the source file can be irrevocably damaged, and refuse to re-open.  In the absence of frequent backup, a tool to recover 손상된 엑셀 파일은 매우 중요합니다.

저자 소개 :

Felix Hooker는 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. rar fix 및 SQL 복구 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM