나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 허석원 (drywell)

추천:  2
파일:     조회:  1941
제목:   다른 파일의 데이타(날짜별로 받음)을 가지고 오는 방법이 없을까요?
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

1. 엑셀 버전 2000
2. win98,
3. CPU (IV
4. RAM (128,
* 아래줄에 질문을 작성하세요 >>
Sub 부평1공장()
    ChDir "D:\My Documents\van\대우부평1공장"
    Workbooks.OpenText Filename:= _
        "D:\My Documents\van\대우부평1공장\b020B-20030722.xls", StartRow:=1, DataType:= _
        xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
        Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:=False _
        , FieldInfo:=Array(Array(1, 1), Array(2, 1))
    Cells.Select
    Selection.Copy
    Windows("대우VAN.xls").Activate
    Sheets("부1").Select
    ActiveSheet.Paste
End S

여기서......대우부평1공장에 b020B-20030722.xls 화일을 가지고 올려고 합니다
이파일은 날짜별로 바뀝니다..오늘이 07월22일 이니까...
위와 같이 됩니다..

날짜별로 들어오는 데이타엑셀파일을 가지고 올수 있는 방법이 없을까요?
내일 이면 b020B-20030723 인데..날짜별로 바꾸어서 오늘 날짜로 가지고 오는 방법이 없나요?

고수님들의 조언을 바랍니다.
 
[불량 게시물 신고]  
정기호"D:\My Documents\van\대우부평1공장\b020B-20030722.xls" 부분을 아래와 같이 고쳐 보시길
"D:\My Documents\van\대우부평1공장\b020B-" & Format(Date, "yyyymmdd")& ".xls"
07-22 (09:03)
삭제 ■신고
        
  

작성일 : 2003-07-22(08:43)
최종수정일 : 2003-07-22(08:43)