Skip to content
컴퓨터잡담
2011.09.25 21:34

ExCEL VBA) 파일을 열지않고 값 읽어오기

조회 수 20215 추천 수 0 댓글 0
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄

ExCEL VBA) 파일을 열지않고 값 읽어오기

 

Option Explicit

Function ReadValue(Path, File, sht, Rng) As Variant
    Dim Msg As String
    Dim strTemp As String
   
    If Trim(Right(Path, 1)) <> "\" Then Path = Path & "\"
    If Dir(Path & File) = "" Then
        ReadValue = "해당 파일이 없습니다"
        Exit Function
    End If
    Msg = "'" & Path & "[" & File & "]" & sht & "'!" & Range(Rng).Range("a1").Address(, , xlR1C1)
    ReadValue = ExecuteExcel4Macro(Msg)
End Function

Sub CallReadValue()
    Dim strPath As String
    Dim strFile As String
    Dim strSheet As String
    Dim strAddress As String
    Dim sht As Worksheet
    Dim r As Long
    Dim c As Integer
   
    Application.ScreenUpdating = True
    Set sht = Worksheets.Add
    ActiveWindow.DisplayGridlines = False
    strPath = ThisWorkbook.Path
    strFile = "지점별실적.xls"
    strSheet = "Sheet1"
   
    For r = 1 To 11
        For c = 1 To 5
            strAddress = Cells(r, c).Address
            If ReadValue(strPath, strFile, strSheet, strAddress) = 0 Then Exit For
            Cells(r, c) = ReadValue(strPath, strFile, strSheet, strAddress)
        Next c
    Next r
   
    Selection.AutoFormat Format:=xlRangeAutoFormatList1, Number:=True, Font:= _
        True, Alignment:=True, Border:=True, Pattern:=True, Width:=True
    Rows("1:2").Insert shift:=xlDown
   
    With ActiveCell
        ActiveSheet.Buttons.Add(.Left, .Top, .Width * 2, .Height).Select
        With Selection
            .Caption = "<<돌아가기"
            .OnAction = "GoBack"
        End With
    End With
    Range("a1").Select
    MsgBox "자료를 모두 읽어들였습니다", vbInformation, "작업 종료//Exceller"
End Sub

Sub GoBack()
    Application.Goto Sheets("Preface").Range("a1"), True
End Sub

로그인 후 댓글쓰기가 가능합니다.

?

List of Articles
번호 분류 제목 날짜 조회 수
317 WindowsTip 윈도우 빠른종료 팁 file 2014.12.27 1823
316 WindowsTip autohotkey regwrite ipv6 제거툴 file 2014.12.27 1540
315 WindowsTip 마이크로소프트 윈도우가 제공하는 기본적인 실행명령어 모음. 2014.12.27 6305
314 WindowsTip 애드웨어 클리너 2015.01.07 6856
313 WindowsTip XP USB 부팅디스크 만들기 & 고스트 2015.01.08 2089
312 WindowsTip 컴퓨터가 많이 느리다면? 2015.01.08 1777
311 WindowsTip 복구콘솔 USB 만들기 2015.01.09 1539
310 WindowsTip ISO 파일을 USB로 굽기(USB 윈도우 설치 디스크 만들기) file 2015.01.09 4885
309 WindowsTip 도스용 파티션 매직 file 2015.01.09 2327
308 WindowsTip 알리익스프레스에서 산 ralink 802.n usb driver file 2015.01.09 1540
307 WindowsTip 윈도우 XP에서 exFAT 인식 패치방법 file 2015.01.14 1557
306 WindowsTip usb 쓰기가 금지되어 있습니다 해제방법 file 2015.01.22 1827
305 WindowsTip exFAT 이동식 USB 하드 쓰기 금지 문제 해결방법 2015.01.22 3109
304 WindowsTip 공유기의 공인IP(Wan) 미할당으로 안되는 증상이 잦은경우 대처방법 file 2015.01.22 1968
303 WindowsTip JAVA 7 다운로드 file 2015.01.23 5894
302 WindowsTip (nPDF) 프린터 인쇄 내용을 PDF 파일로 변환하기 2015.01.24 2273
301 WindowsTip Windows XP 부팅속도 개선 팁 file 2015.01.24 1413
300 컴퓨터잡담 크롬 속도올리기 2015.01.24 807
299 AutoHotKey Autohotkey 브라우저 제어 테스트 file 2015.01.26 8203
298 WindowsTip IE 익스플로러 메뉴 바탕이 검정색으로 변했을경우 대처방법 2 2015.01.27 1644
Board Pagination Prev 1 ... 29 30 31 32 33 ... 46 Next
/ 46

http://urin79.com

우린친구블로그

sketchbook5, 스케치북5

sketchbook5, 스케치북5

나눔글꼴 설치 안내


이 PC에는 나눔글꼴이 설치되어 있지 않습니다.

이 사이트를 나눔글꼴로 보기 위해서는
나눔글꼴을 설치해야 합니다.

설치 취소