드래그 앤 드롭으로
즐겨찾기 아이콘 위치 수정이 가능합니다.
게시물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 쪼금 뒤져봤는데, 오유인님들 좀 도와주세요~ㅡㅜ
댓글 분란 또는 분쟁 때문에
전체 댓글이 블라인드 처리되었습니다.
새로운 댓글이 없습니다.