파일 복사 VBA

VBA
작성자
부산촌놈
작성일
2022-11-19 14:53
조회
58
엑셀버전 : M365

운영체제 : 윈도우10

질문 요약 : VBA를 응용해 특정 파일을 복사하고 이름을 복사된 파일의 이름을 리스트에 따라 부여하기

안녕하세요.

제가 1개의 파일 양식에 각종 서식을 만들어 두고 로직을 걸어 파일이름을 참조하여 안의 내용이 바뀌도록 만든 다음 해당 파일을 복사하여 파일이름이 VBA에 의해 바뀌면서 안의 내용도 바뀌도록 하려고 하는데요.

VBA를 실행하려고 하니 에러가 자꾸 떠서 어느 부분에서 문제가 있는지 모르겠습니다.

아래는 제가 작성한 VBA 구문이고

iNo은 파일의 고유번호이고

sFname2은 고유번호에 부여된 이름입니다.

A열에 고유번호가 기재되어 있고 B열에는 고유번호에 부여된 이름이 리스트업되어 있습니다.

Sub 파일복사()

Sheet4.Activate

Dim sPath, sFname, sFname2 As String

Dim iNo, i As Integer

Dim fs As Object

sFname = "0_청구서 양식.xlsm"

sPath = "C:\Users\3360k\OneDrive\문서\청구서 파일2\"

iNo = 150

Set fs = CreateObject("Scripting.FileSystemObject")

For i = 1 To iNo

입력행 = i + 1

sFname2 = Dir(sPath & i & "_" & Cells(입력행, 2) & ".xlsm", vbNormal)

fs.FileCopy sPath & sFname, sFname2

Next

Set fs = Nothing

어느 부분에서 문제가 있었는지 모르겠습니다.

스크랩
공유
회원등급 : 2레벨
포인트 : 50 EP
총질문 : 1 개 (마감율 : 100%)
채택답변 : 0 개
전체 2

  • 2022-11-19 17:28

    @부산촌놈 님 만약에 B열에 해당하는 파일이 없으면 sFname2가 빈문자열이 될 것같은데요...

    그럼 fsFileCopy에서 에러가 나지 않을까요?

    sFname2 = Dir(sPath & i & "_" & Cells(입력행, 2) & ".xlsm", vbNormal)

    fs.FileCopy sPath & sFname, sFname2


  • 2022-11-20 20:20

    @부산촌놈 님 Sheet1,2,3는 이미 logic을 걸어 작성되었다는 전제하에 이들을 새로운 workbook으로 복사한다음 sheet4의A열과 B열의 value로 150개의 신규파일 생성하는 내용입니다.

    이 방식을 이용하면 Scripting.FileSystemObject 사용할 필요가 없습니다.

    생성되는 파일들도 xlsm으로 하지 않고 xlsx로 저장하기를 권합니다.

    Option Explicit
    
    Sub CreateWorkbooks()
        Dim path As String, i As Integer, iNo As Integer
        Dim sFilename As String, sFullFilename As String
    
        iNo = 150
        
        For i = 1 To iNo
    
            Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Copy
            
            path = "C:\Users\3360k\OneDrive\문서\청구서 파일2\"
    
            sFilename = Sheet4.Cells(i, 1) & "_" & Sheet4.Cells(i, 2) & ".xlsx"
            sFullFilename = path & sFilename
    
            With ActiveWorkbook
                .SaveAs Filename:=sFullFilename, FileFormat:=xlOpenXMLWorkbook
                .Close SaveChanges:=False
            End With
            
        Next i
        
    End Sub

     


전체 8,512
번호 카테고리 제목 작성자 작성일 추천 조회
알림
「🎉 올해의 책 투표」 '진짜쓰는 실무엑셀' 이 후보에 선정되었습니다! (👉깜짝 이벤트) (51)
오빠두엑셀 | 2022.11.07 | 추천 23 | 조회 7956
오빠두엑셀 2022.11.07 23 7956
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (105)
오빠두엑셀 | 2021.10.28 | 추천 135 | 조회 8512
오빠두엑셀 2021.10.28 135 8512
44967 함수/공식
New 중복값 제가하는 방법 첨부파일
tndka**** | 01:29 | 추천 0 | 조회 15
tndka**** 01:29 - 15
44964 기능/도구
New 엑셀에서 새 인스턴스(instance)로 실행되는 이유가 궁금합니다. 첨부파일
월마리아 | 01:16 | 추천 0 | 조회 16
월마리아 01:16 - 16
44963 VBA
New 일정간격마다 모두재계산&파일 열자마자 매크로 실행
KangU | 2022.11.28 | 추천 0 | 조회 19
KangU 2022.11.28 - 19
44962 함수/공식
New 누적 합계 구하기 함수 관련 엑셀파일
짱구 | 2022.11.28 | 추천 0 | 조회 18
짱구 2022.11.28 - 18
44959 함수/공식
New 안녕하세요! 엑셀 뉴비, 고수분들께 도움을 구하고자 합니다 ㅠㅠ 엑셀파일첨부파일 (3)
U_ho | 2022.11.28 | 추천 0 | 조회 22
U_ho 2022.11.28 - 22
44956 함수/공식
New 고수님들 도와주세요 (1)
LUKE. | 2022.11.28 | 추천 0 | 조회 20
LUKE. 2022.11.28 - 20
44955 함수/공식
New 따로 수정이나 새로고침 하지않아도 실시간으로 계산값이 변경되는 날짜계산기 (2) 답변완료
KangU | 2022.11.28 | 추천 0 | 조회 28
KangU 2022.11.28 - 28
44953 함수/공식
New 엑셀 날짜 함수 사용시 날짜 표시 안되는 이슈 첨부파일 (2)
junee562 | 2022.11.28 | 추천 0 | 조회 28
junee562 2022.11.28 - 28
44950 함수/공식
New vlookup을 활용한 여러 조건 시 결과값을 불러오고 싶습니다. 엑셀파일 (2) 답변완료
DBOX | 2022.11.28 | 추천 0 | 조회 33
DBOX 2022.11.28 - 33
44946 함수/공식
New 정산금액을 공문에 참조하려고 하는데 n/a가 뜹니다. 엑셀파일 (3)
야근쟁이 | 2022.11.28 | 추천 0 | 조회 25
야근쟁이 2022.11.28 - 25
44941 함수/공식
New COUNT 함수 관련 2가지 조건의 수를 구하고 싶습니다. 첨부파일 (2) 답변완료
2039290jf1 | 2022.11.28 | 추천 0 | 조회 27
2039290jf1 2022.11.28 - 27
44940 VBA
New 엑셀 매크로 AutoFill 관련 문의 (1)
원더우먼 | 2022.11.28 | 추천 0 | 조회 34
원더우먼 2022.11.28 - 34
44938 기능/도구
New 온라인그림 선택이 안되요. 첨부파일 (1)
굿걸♡ | 2022.11.28 | 추천 0 | 조회 22
굿걸♡ 2022.11.28 - 22
44937 함수/공식
New 다중조건 if 관련 문의 (2) 답변완료
지도현 | 2022.11.28 | 추천 0 | 조회 39
지도현 2022.11.28 - 39
44935 함수/공식
New 엑셀 2007,2010 오프라인 도움말파일 구해요
나야 | 2022.11.28 | 추천 0 | 조회 19
나야 2022.11.28 - 19
44932 VBA
New VBA FIND를 통해서 일치하는 값 찾을때까지 검색 후 만약에 없으면 해당셀에 찾는값 없음 넣기 (1)
고바마 | 2022.11.28 | 추천 0 | 조회 35
고바마 2022.11.28 - 35
44930 VBA
New vba를 이용하여 수식 결과값 추출 시트를 만들고 싶습니다. 첨부파일 (1)
코모 | 2022.11.28 | 추천 0 | 조회 44
코모 2022.11.28 - 44
44929 함수/공식
New [관심]!!경우의수 적용하여, 값 판단법 좀 알려주세요..ㅜ 엑셀파일첨부파일 (5)
ak스타 | 2022.11.28 | 추천 0 | 조회 28
ak스타 2022.11.28 - 28
44927 함수/공식
New 다중 sumifs 기타 값 계산 엑셀파일첨부파일 (3) 답변완료
선크 | 2022.11.28 | 추천 0 | 조회 34
선크 2022.11.28 - 34
44915 VBA
New 괄호안의 숫자 합계 구하기 VBA 또는 수식 엑셀파일첨부파일 (4) 답변완료
007 | 2022.11.27 | 추천 0 | 조회 62
007 2022.11.27 - 62
44913 함수/공식
New 함수 결과값이 이상합니다 첨부파일 (1)
엄기용 | 2022.11.27 | 추천 0 | 조회 31
엄기용 2022.11.27 - 31
44907 함수/공식
New 시간만 구하는 방법.. 첨부파일 (4) 답변완료
candle0723 | 2022.11.27 | 추천 0 | 조회 39
candle0723 2022.11.27 - 39
44904 문서서식
New 표시형식 문의 드립니다 (1)
거꾸로문 | 2022.11.26 | 추천 0 | 조회 30
거꾸로문 2022.11.26 - 30
44901 VBA
New 안녕하세요. vba로 단위 변환 질문드립니다.
Jes | 2022.11.26 | 추천 0 | 조회 38
Jes 2022.11.26 - 38
44899 차트/그래프
New 슬라이서 서식을 변경 한 후, 다른 엑셀 파일에서도 사용할 수 있는 방법이 있을까요?
twou**** | 2022.11.26 | 추천 0 | 조회 27
twou**** 2022.11.26 - 27
44896 VBA
New 여러 문자들 중 참조 문자에 있는 값 찾기 vba 엑셀파일첨부파일 (4)
007 | 2022.11.26 | 추천 0 | 조회 61
007 2022.11.26 - 61
44892 기능/도구
New 필터랑 행 숨기기 된 상태에서 자동채우기 안 되나요?
오리파 | 2022.11.25 | 추천 0 | 조회 25
오리파 2022.11.25 - 25
44887 함수/공식
New 다중조건을 만족하는 여러개의 값 구하는 함수식 문의드립니다. (1)
함수시르미 | 2022.11.25 | 추천 0 | 조회 53
함수시르미 2022.11.25 - 53
44886 VBA
New 엑세스 및 엑셀 연동 VBA INSERT구문 질문 엑셀파일
H.B | 2022.11.25 | 추천 0 | 조회 35
H.B 2022.11.25 - 35
44885 함수/공식
New 엑셀로 전투 시뮬레이션을 만들 수 있을까요? (4)
네버 | 2022.11.25 | 추천 0 | 조회 61
네버 2022.11.25 - 61