Skip to content
조회 수 18264 추천 수 0 댓글 3
?

단축키

Prev이전 문서

Next다음 문서

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

단축키

Prev이전 문서

Next다음 문서

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

Excel VBA) DAO를 이용하여 엑셀문서 열지않고 데이타 가져오기



strSQL = "Select * FROM [장애관리.csv] where 출동업체 = '로케트밧데리' "


"Select * FROM [레코드명(csv파일명 적어줌)] where 필드명 = '추출할내용' "




Microsoft Visual Basic 코드입력창에서 [도구] -> [참조] 선택하면

참조 - VBAProject 창이 나타납니다.


Microsoft DAO 3.6 Object Library 항목 체크표시를 선택해야 합니다.


참고) 확장자가 CSV파일은 불러오지 못한다?



Sub CSVReadValue()

    Dim strSQL As String
    Dim dbMyDB As DAO.Database
    Dim rstRST As DAO.Recordset
    Dim lngStart As Long
    Dim i As Integer
    Const SourceFile = "Book3.csv" '불러들일 CSV명
    lngStart = Timer
    
    '칼럼별로 뽑아낼 수 있으나 변수를 몰라 일단 모든데이타(*) 데이타를 가져온다.
    strSQL = "Select 아우, 미초 FROM [Book3.csv]"
    strSQL = "Select * FROM [Book3.csv]"
    
   '텍스트 파일을 불러들일 OpenDatabase 사용방법
    Set dbMyDB = OpenDatabase(ThisWorkbook.Path, False, False, "Text;Database=" & ThisWorkbook.Path & ";table=" & "Book3.csv")
    
    
    Set rstRST = dbMyDB.OpenRecordset(strSQL, dbReadOnly)
    Application.ScreenUpdating = False
    
    'Worksheets.Add after:=Worksheets("Sheet2")
    
    With ActiveSheet
        .UsedRange.Clear
        For i = 0 To rstRST.Fields.Count - 1
            Cells(1, i + 1).Value = rstRST.Fields(i).Name
        Next
        
        .Range("A2").CopyFromRecordset rstRST
        .UsedRange.Columns.AutoFit
    End With
        
    Application.ScreenUpdating = True
    MsgBox "불과 " & Format(Timer - lngStart, "00:00:00") & "초 소요되었습니다!", , "www.iExcellr.com"
    
   rstRST.Close
   dbMyDB.Close
   Set rstRST = Nothing
   Set dbMyDB = Nothing

End Sub




Sub XLSReadValue()


    Dim strSQL As String

    Dim dbMyDB As DAO.Database

    Dim rstRST As DAO.Recordset

    Dim lngStart As Long

    Dim i As Integer

    Const SourceFile = "Book31.xls"

    lngStart = Timer

    

    strSQL = "Select 아우, 미초, 일처리 "

    'strSQL = strSQL & " RQD등급, BRMR, RMR, RMR등급, Q, Q등급, SMR, SMR등급, SCR, 추가1, 추가2, 추가3 "

    strSQL = strSQL & "FROM [Book3$] "

    

    Set dbMyDB = OpenDatabase(ThisWorkbook.Path & Application.PathSeparator & SourceFile, False, True, "excel 8.0;")

    Set rstRST = dbMyDB.OpenRecordset(strSQL)

    Application.ScreenUpdating = False

    

    'Worksheets.Add after:=Worksheets("Sheet2")

    

    With ActiveSheet

        .UsedRange.Clear

        For i = 0 To rstRST.Fields.Count - 1

            Cells(1, i + 1).Value = rstRST.Fields(i).Name

        Next

        

        .Range("A2").CopyFromRecordset rstRST

        .UsedRange.Columns.AutoFit

    End With

        

    Application.ScreenUpdating = True

    MsgBox "불과 " & Format(Timer - lngStart, "00:00:00") & "초 소요되었습니다!", , "www.iExcellr.com"

    

   rstRST.Close

   dbMyDB.Close

   Set rstRST = Nothing

   Set dbMyDB = Nothing


End Sub




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

?
  • ?
    정말궁금 2011.11.14 19:09

    DAO가 WIN7 에서도 지원되나요?

     

    안되는것 같습니다. 제PC에서는 아무리 해도.

     

  • ?
    ㅁㅁㅁ 2013.11.01 09:25

    이 쏘스코드 원작자가 누구에요?

  • ?
    디케 2013.11.07 09:46

    해외사이트에서 찾아서 코드 변경했어요.


List of Articles
번호 분류 제목 날짜 조회 수
277 WindowsTip 윈도우 8.1 시작화면 아닌 바탕화면(데스크톱 모드)를 기본으로 설정하는 방법 file 2015.04.02 7557
276 WindowsTip 윈도우 8.1 부팅속도 개선방법 2015.04.13 4813
275 WindowsTip UEFI 부팅+윈도우 8.1 2015.04.13 6218
274 WindowsTip Fasoo DRM 삭제하기(fph) file 2015.04.13 10591
273 WindowsTip 캐논 프린터 MG2990 드라이버 file 2015.05.03 5300
272 WindowsTip 캐논 MG 2990 스캔 드라이버 file 2015.05.03 4715
271 WindowsTip 윈도우 ip helper ipv6 도데체 무엇인가? 2015.05.11 4916
270 Server APMSETUP7 PHP 업그레이드 2015.06.02 6351
269 Server XE 카카오톡 글전송 2015.07.08 1222
268 [Docs]스프레드시트 구글드라이브 API file 2015.07.09 4541
267 Server XE ckeditor 모바일에서 사용하기 2015.07.13 1151
266 Server 파일 업로드 폴더 변경 2015.07.13 1904
265 컴퓨터잡담 PC에 안드로이드 설치하기 1 file 2015.07.18 5441
264 [Docs]스프레드시트 구글 스프레드시트(Google Spreadsheet)를 데이터베이스로 활용하기 file 2015.07.20 5077
263 HTMLPHPMSQL PHP5.4.4 form 변수 전달받기(get, post방식) 2015.07.22 8329
262 컴퓨터잡담 핑테스트 프로그램 file 2015.09.01 1043
261 컴퓨터잡담 무선 공유기 선택시 중요한 4가지 2015.09.07 1543
260 Excel 엑셀 깨진파일 복구하기 file 2015.11.11 7673
259 WindowsTip DOS Batch - FTP Scripts 배치파일 2015.11.12 5702
258 컴퓨터잡담 도스 배치파일로 원격지 컴퓨터 모니터링 2015.11.13 816
Board Pagination Prev 1 ... 31 32 33 34 35 ... 46 Next
/ 46

http://urin79.com

우린친구블로그

sketchbook5, 스케치북5

sketchbook5, 스케치북5

나눔글꼴 설치 안내


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

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

설치 취소