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

 이준호 (jiof9911)

추천:  2
파일:     파일 가져오기.zip (296.4KB) 조회:  3273
제목:   다른 파일 데이터 불러오기. vba 수정부탁드려요
     
  Sub ExcelFile_Get()
    Dim getFile As Object
    Dim FilePath As String          '// 파일 경로 변수
    Dim FileName As String         '// 가져올 엑셀 파일명 변수
    
    On Error Resume Next
    FilePath = ThisWorkbook.Path + "\"  '// 현재 파일 경로
    '------------
    

    
    '-------------

    FileName = Sheets("Main").Cells(1, 1).Value + Sheets("Main").Cells(2, 1).Value
    
    Set getFile = GetObject(FilePath & FileName)
    With ActiveWorkbook.ActiveSheet.Range("A5")    '// A5열부터 데이터 출력
        .CurrentRegion.Clear    '// 현재 존재하는 값을 전부 삭제
        
        getFile.Sheets([A1].Text).UsedRange.Copy [A5]
        getFile.Close False
    End With
    Set getFile = Nothing
End Sub









파일 가져오기 파일의 스크립트 입니다.
vba를 몰라서 여기저기서 자료를 받아 만든건데요

b.csv 파일에 빈 열이 있으면
기존자료가 모두 지워져야 하는데
빈 열까지만 지워진후 데이터를 불러 옵니다.


기존자료를 모두지우고 새로 불러 오고 싶은데
어떻게 수정해야 할까요? 


 
[불량 게시물 신고]  
        
  

작성일 : 2019-10-19(10:19)
최종수정일 : 2019-10-20(12:36)
 


 ◎ 관련글

  제 목   작성자   날짜
다른 파일 데이터 불러오기. vba 수정부탁드려요 이준호 2019-10-19
[RE]다른 파일 데이터  불러오기. vba 수정부탁드려요 dew 2019-10-21