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

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

조회 수 20214 추천 수 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
번호 분류 제목 날짜 조회 수
617 컴퓨터잡담 삼성, LG 여! 스마트폰의 창작기술로 아이폰을 점령하라! 2011.09.03 3642
616 컴퓨터잡담 [윈도우proxy server]프록시 서버 구축하기 file 2011.09.06 14197
615 컴퓨터잡담 [윈도우7] 이 컴퓨터는 정품 Windows를 사용하고 있지 않습니다 해결방법 1 2011.09.12 12540
614 컴퓨터잡담 툴바제작사이트 1 2011.09.15 4055
613 컴퓨터잡담 안드로이드 어플 쉽게 만들기 2011.09.15 4101
612 컴퓨터잡담 DLL Injection - SetWindowsHookEx()함수 이용방법 1 2011.09.15 6512
611 컴퓨터잡담 VBA를 이용한 엑셀 프로그래밍 1 2011.09.23 21508
610 컴퓨터잡담 EXCEL) 매크로 공부하기 2011.09.25 12280
» 컴퓨터잡담 ExCEL VBA) 파일을 열지않고 값 읽어오기 23 2011.09.25 20214
608 컴퓨터잡담 ExCEL VBA) 중복된 데이터 추출하기 4 2011.09.25 20169
607 컴퓨터잡담 ExCEL VBA) 함수만들기 1 2011.09.25 13943
606 컴퓨터잡담 Excel VBA) 자료모으기 2011.09.28 11903
605 컴퓨터잡담 autohotkey - 변수리스트(Variables and Expressions) 모음 2011.09.30 11830
604 컴퓨터잡담 엑셀 VBA 제어문의 종류 3 2011.10.04 10507
603 컴퓨터잡담 VBA - 시트/셀, 엑셀 값만 복사하기! (VBA을 이용한 복사영역 조절) 2011.10.04 31411
602 컴퓨터잡담 AHK_L) SysListView321 컨트롤 내용 추출하기 2011.10.07 9888
601 컴퓨터잡담 DLL View dll 파일관리 및 정보확인 프로그램 file 2011.10.10 4376
600 컴퓨터잡담 엑셀)문자데이터를 날짜 및 시간으로 변경하는 방법(함수) 2011.10.11 6911
599 컴퓨터잡담 Ahk Standard Library Collection, 2010 Sep (+Gui) ~ Libs: 100 3 2011.10.11 14189
598 컴퓨터잡담 AHK & my Address of Pointer and my Offset 2011.10.11 13160
Board Pagination Prev 1 ... 14 15 16 17 18 ... 46 Next
/ 46

http://urin79.com

우린친구블로그

sketchbook5, 스케치북5

sketchbook5, 스케치북5

나눔글꼴 설치 안내


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

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

설치 취소