vba 로 특정폴더 파일복사해서 다른경로로 파일 붙여넣는 방법은?

VBA
작성자
밍장군
작성일
2020-10-07 16:51
조회
39
vba 를 이용해서 임의 폴더의 파일을 복사 해서 임의폴더2 에 붙여넣으려고 하는데

웹 검색해서 아래 코드는 알아 냈는데 파일을 찾을 수 없다고 하네요 분명 파일은 있는데

53번 런타임 오류가 발생합니다
Sub MergeWBs()
Dim wbDst As Workbook
Dim wbSrc As Workbook
Dim wsSrc As Worksheet
Dim Mypath As String
Dim strFilename As String

Application.DisplayAlerts = False
Application.EnableEvents = False
Application.ScreenUpdating = False

Mypath = "D:\temp"
Set wbDst = ThisWorkbook
strFilename = Dir(Mypath & "\*.xls", vbNormal)
If Len(strFilename) = 0 Then Exit Sub
Debug.Print strFilename
Debug.Print Mypath

'--------------------------- 파일 복사하려고 만든 코드 ----------------------------

FileCopy strFilename, Mypath

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

'----------------------------- 원 코드 ----------------------------------

'Do Until strFilename = ""
'Set wbSrc = Workbooks.Open(Filename:=MyPath & "\" & strFilename)
'Set wsSrc = wbSrc.Worksheets("통계")
'wsSrc.Copy after:=wbDst.Worksheets(wbDst.Worksheets.Count)
'wbSrc.Close False
'strFilename = Dir()
'Loop
'wbDst.Worksheets(1).Delete

Application.DisplayAlerts = True
Application.EnableEvents = True
Application.ScreenUpdating = True

End Sub

해서 간단하게 직접 적어서
Sub asd()
FileCopy "d:\temp\a.xls", "D:\temp"
End Sub
이렇게 넣었는데

'75' 런타임 오류가 발생하였습니다 경로/파일 접근 오류가 뜨네요

방법 없나요

복사는 부터 원하는 path  에 붙여넣는 방법 좀 가르쳐주시기 바랍니다

감사합니다
밍장군
회원등급 : 가지1단계
포인트 : 390 EP
전체 2

전체 1,328
번호 카테고리제목작성자작성일추천조회
1323 차트/그래프
New 연결하여 붙여넣기(그림) 선택옵션에서 안보여서용 ㅠㅠ도와주세용 (2)
윤사슴 | 16:23 | 추천 0 | 조회 11
윤사슴16:23011
1322 기능/도구
New 조건부서식 아이콘표시 문의 첨부파일 (3)
글래스 | 15:06 | 추천 0 | 조회 16
글래스15:06016
1321 차트/그래프
New 선생님.. 첨부파일 (1)
rpaq**** | 13:32 | 추천 0 | 조회 16
rpaq****13:32016
1320 함수/공식
New 다운받은게 추가기능에서 설치가 된거 같은데 작동을 안하네요. 첨부파일 (1)
Fund 꿈전사 | 11:53 | 추천 0 | 조회 12
Fund 꿈전사11:53012
1319 문서서식
New 원하는 프르그렘 엑셀 유료 제작도 해주시나요? (1)
Fund 꿈전사 | 11:47 | 추천 0 | 조회 22
Fund 꿈전사11:47022
1318 VBA
New 엑셀에서 아웃룩일정 입력하는 방법에 관한 질문 (1)
naver_5f8b682a12bb7 | 09:08 | 추천 0 | 조회 17
naver_5f8b682a12bb709:08017
1317 문서서식
New 인쇄물 좌측하단 사용자정보 삭제방법 문의 첨부파일 (2)
naver_5f8ee15a8602b | 2020.10.20 | 추천 0 | 조회 18
naver_5f8ee15a8602b2020.10.20018
1316 함수/공식
New 재고 중복 차감 되는 문제... 첨부파일 (1)
skya**** | 2020.10.20 | 추천 0 | 조회 32
skya****2020.10.20032
1315 VBA
New 동일한 이름을 가진 통합 문서를 동시에 열 수 없습니다 첨부파일 (1)
당신을축복하는올빼미 | 2020.10.20 | 추천 0 | 조회 18
당신을축복하는올빼미2020.10.20018
1314 VBA
New 셀 범위 조건으로 메시지 팝업창 처음 한번만 뜨게 할 수 있나요? (2)
와따나 | 2020.10.20 | 추천 0 | 조회 28
와따나2020.10.20028
1313 함수/공식
New 공정별 날짜별 작업인원 수를 표시할려고하는데 도움이 필요합니다. 첨부파일 (2)
casanova | 2020.10.20 | 추천 0 | 조회 27
casanova2020.10.20027
1312 기능/도구
New 다중필터 엑셀 추가기능 (Excel 추가기능 Addin) 설치 파일 좀 보내주실 분;;.. (1)
쨍하고해뜬오후 | 2020.10.20 | 추천 0 | 조회 17
쨍하고해뜬오후2020.10.20017
1311 차트/그래프
New 선생님... - 엑셀 VBA 차트 계열 색 변경 자동화 매크로 첨부파일 (2)
rpaq**** | 2020.10.20 | 추천 0 | 조회 25
rpaq****2020.10.20025
1310 함수/공식
New Xlookup 활용 문의 첨부파일 (1)
K_Division | 2020.10.20 | 추천 0 | 조회 24
K_Division2020.10.20024
1309 VBA
New 여러개의 참조 삽입 방법 (7)
써머데이즈 | 2020.10.20 | 추천 0 | 조회 23
써머데이즈2020.10.20023
1308 함수/공식
New 엑셀초보입니다. 다른시트 내용을 VLOOKUP을 이용해서 가져오기 ㅠ (2)
el**** | 2020.10.20 | 추천 0 | 조회 28
el****2020.10.20028
1307 함수/공식
New 서식들어간 일자 concat 조합 첨부파일 (2)
내뀨바라기 | 2020.10.19 | 추천 0 | 조회 31
내뀨바라기2020.10.19031
1306 함수/공식
New 엑셀초보자입니다. if함수 수식좀 알려주세요... (1)
이재똥 | 2020.10.19 | 추천 0 | 조회 28
이재똥2020.10.19028
1305 함수/공식
New 안녕하세요 if함수 질문있습니다. (2)
glass | 2020.10.19 | 추천 0 | 조회 22
glass2020.10.19022
1304 VBA
New 안녕하세요 vba 크롤링 질문드립니다. (1)
jaebe**** | 2020.10.19 | 추천 0 | 조회 24
jaebe****2020.10.19024
1303 함수/공식
New 동일한 이벤트 가 발생한 기간을 표시하는 함수 구하는 방법 질문드립니다. 첨부파일 (6)
몽골리용 | 2020.10.19 | 추천 1 | 조회 44
몽골리용2020.10.19144
1302 VBA
New VBA를 이용하여 CSV 데이터를 정해진 서식에 입력할때의 방식 질문 (4)
dpd**** | 2020.10.19 | 추천 0 | 조회 28
dpd****2020.10.19028
1301 문서서식
New 조건부 서식으로 일치하지 않는 셀의 텍스트색 변환 (2)
Border | 2020.10.19 | 추천 0 | 조회 32
Border2020.10.19032
1300 함수/공식
New 선배님들 제발 도와주십시요.. 첨부파일 (2)
장전동오니기리 | 2020.10.18 | 추천 0 | 조회 66
장전동오니기리2020.10.18066
1299 함수/공식
원데이터에서 다중조건을 추출해서 평균을 구하는 함수는 어떻게 써야하나요? 첨부파일 (3)
2020WorldChampionLAD | 2020.10.17 | 추천 0 | 조회 55
2020WorldChampionLAD2020.10.17055
1298 함수/공식
방대한 데이터 정리 문의 드립니다! (3)
포뇨 | 2020.10.17 | 추천 0 | 조회 65
포뇨2020.10.17065
1297 함수/공식
일정관리 불러오는 함수 첨부파일 (6)
오제 경기의왕 | 2020.10.16 | 추천 0 | 조회 74
오제 경기의왕2020.10.16074
1296 피벗테이블
공정별 날짜별 작업인원 수를 표시할려고하는데 도움이 필요합니다. (1)
casanova | 2020.10.16 | 추천 0 | 조회 60
casanova2020.10.16060
1295 차트/그래프
오빠두엑셀 선생님 질문드립니다. 첨부파일 (1)
rpaq**** | 2020.10.15 | 추천 0 | 조회 72
rpaq****2020.10.15072
1294 VBA
참조 셀 추가 (1)
써머데이즈 | 2020.10.15 | 추천 0 | 조회 51
써머데이즈2020.10.15051