Builder · New

새 규칙 만들기

규칙 이름

VBA 언어

파일명·폴더명에 한글이 포함되면 VBA 런타임 오류가 발생할 수 있습니다. 영문 경로를 권장합니다.

파일 위치 방식

폴더 경로

경로 끝에 반드시 백슬래시(\)를 포함해주세요.

파일명 패턴

와일드카드(*) 사용. 예: Bank_*.xls*

시트 선택 방식

데이터 시작 행

헤더 다음 첫 데이터 행 번호. 예: 14

종료 지점 텍스트 (선택)

A열에 이 텍스트가 나타나면 그 행 직전까지만 읽음

처리 전략

행 통과 조건

후처리 (선택)

출력 타겟 — 여러 개 동시 활성 가능

대상 시트 이름

입력 시작 행

복사 범위 마지막 열

쓰기 방식

붙여넣기 방식

헤더 보호 행 수

상단 N행은 절대 건드리지 않음. 예) 12 → 13행부터 데이터 입력

완료 후 처리

정렬 기준 열

실행 시각 기록 셀

Live VBA

' ============================================================
' Rule: My Automation
' Strategy: Statement Import
' Source pattern: Report*.xls*
' Target sheet: Sheet1
' Created: 2026-04-27T21:05:02.401Z
' ============================================================

Sub VIBAE_My_Automation()

    ' -- Declarations
    Dim wbSrc As Workbook
    Dim wsSrc As Worksheet, wsDst As Worksheet
    Dim srcFile As String
    Dim srcLastRow As Long
    Dim processedCount As Long

    processedCount = 0

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    On Error GoTo ErrHandler

    ' -- Set target sheet
    Set wsDst = ThisWorkbook.Sheets("Sheet1")

    ' -- Locate source file using wildcard
    srcFile = Dir("C:\Users\username\Documents\" & "Report*.xls*")
    If srcFile = "" Then
        MsgBox "Source file not found." & Chr(10) & "Path: " & "C:\Users\username\Documents\", vbCritical
        Exit Sub
    End If
    Set wbSrc = Workbooks.Open("C:\Users\username\Documents\" & srcFile, ReadOnly:=True)

    Set wsSrc = wbSrc.Sheets(1)

    srcLastRow = wsSrc.Cells(wsSrc.Rows.Count, "A").End(xlUp).Row

    ' -- Clear destination and bulk copy values
    wsDst.Range("A14:H500").ClearContents
    Dim rowCount As Long
    rowCount = srcLastRow - 14 + 1
    If rowCount > 0 Then
        wsDst.Range("A14:H" & (14 + rowCount - 1)).Value = _
            wsSrc.Range("A14:H" & srcLastRow).Value
        processedCount = rowCount
    End If



    wbSrc.Close SaveChanges:=False


    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    MsgBox "Done! Rows processed: " & processedCount, vbInformation
    Exit Sub

ErrHandler:
    If Not wbSrc Is Nothing Then wbSrc.Close SaveChanges:=False
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    MsgBox "Error: " & Err.Description, vbCritical
End Sub

실행 순서

01원본 파일 열기
02필터 · 매핑 · 변환
03결과 시트에 쓰기
04완료

로딩 중...

' ============================================================ ' Rule: My Automation ' Strategy: Statement Import ' Source pattern: Report*.xls* ' Target sheet: Sheet1 ' Created: 2026-04-27T21:05:02.401Z ' ============================================================ Sub VIBAE_My_Automation() ' -- Declarations Dim wbSrc As Workbook Dim wsSrc As Worksheet, wsDst As Worksheet Dim srcFile As String Dim srcLastRow As Long Dim processedCount As Long processedCount = 0 Application.ScreenUpdating = False Application.Calculation = xlCalculationManual On Error GoTo ErrHandler ' -- Set target sheet Set wsDst = ThisWorkbook.Sheets("Sheet1") ' -- Locate source file using wildcard srcFile = Dir("C:\Users\username\Documents\" & "Report*.xls*") If srcFile = "" Then MsgBox "Source file not found." & Chr(10) & "Path: " & "C:\Users\username\Documents\", vbCritical Exit Sub End If Set wbSrc = Workbooks.Open("C:\Users\username\Documents\" & srcFile, ReadOnly:=True) Set wsSrc = wbSrc.Sheets(1) srcLastRow = wsSrc.Cells(wsSrc.Rows.Count, "A").End(xlUp).Row ' -- Clear destination and bulk copy values wsDst.Range("A14:H500").ClearContents Dim rowCount As Long rowCount = srcLastRow - 14 + 1 If rowCount > 0 Then wsDst.Range("A14:H" & (14 + rowCount - 1)).Value = _ wsSrc.Range("A14:H" & srcLastRow).Value processedCount = rowCount End If wbSrc.Close SaveChanges:=False Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic MsgBox "Done! Rows processed: " & processedCount, vbInformation Exit Sub ErrHandler: If Not wbSrc Is Nothing Then wbSrc.Close SaveChanges:=False Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic MsgBox "Error: " & Err.Description, vbCritical End Sub

새 규칙 만들기

데이터 수집 (소스)

데이터 변환·매핑 + 행 필터

데이터 정제·검증

출력 — Excel

출력 — PDF

출력 — PowerPoint

출력 — Word

출력 — Outlook 메일

후처리 — 서식·차트

후처리 — 수식 자동 삽입

새로고침·동기화

모니터링·알림

안전 & 실행

새 규칙 만들기

데이터 수집 (소스)

데이터 변환·매핑 + 행 필터

데이터 정제·검증

출력 — Excel

출력 — PDF

출력 — PowerPoint

출력 — Word

출력 — Outlook 메일

후처리 — 서식·차트

후처리 — 수식 자동 삽입

새로고침·동기화

모니터링·알림

안전 & 실행