|
|
|
|
|
|
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) |
|
|
|
|