게시판 즐겨찾기
편집
드래그 앤 드롭으로
즐겨찾기 아이콘 위치 수정이 가능합니다.
엑셀 VBA 가변적인 경로에서 파일 읽기
게시물ID : computer_22496짧은주소 복사하기
작성자 : 나에게도
추천 : 0
조회수 : 502회
댓글수 : 0개
등록시간 : 2011/11/02 22:10:40
    Dim OPEN_DATE As String
    OPEN_DATE = Worksheet펑션.Text(Range("시작!B3"), "yyyymmdd")
       
    Workbooks.OpenText Filename:="D:\hour\&OPEN_DATE&18\20BSS64-1029-A-&OPEN_DATE&18", StartRow:=1, DataType:= _
        xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
        Tab:=True, Semicolon:=False, Comma:=True, Space:=False, Other:=False _
        , FieldInfo:=Array(1, 1)
    Cells.Select
    Range("A2:JL10000").Select
    Selection.Copy
    Windows("TEST.xlsm").Activate
    Sheets("1029").Select
    Range("A1000000").End(xlUp).Offset(1, 0).Select
    ActiveSheet.Paste
    
    Workbooks("20BSS64-1029-A-&OPEN_DATE&18").Close False

가변적인 경로(시스템의 어제날짜와 같으며, 형식은 YYYYMMDD입니다.)에서 파일을 읽어서 COPY한 후 파일 닫는 코드인데, 안됩니다.

어떻게 해야 될까요?;;

네이버 지식-IN 쪼금 뒤져봤는데, 오유인님들 좀 도와주세요~ㅡㅜ

꼬릿말 보기
전체 추천리스트 보기
새로운 댓글이 없습니다.
새로운 댓글 확인하기
글쓰기
◀뒤로가기
PC버전
맨위로▲
공지 운영 자료창고 청소년보호