VBA 지정 폴더 파일 이동
VBA
작성자
몰라요ㅠㅠ
작성일
2021-04-05 14:51
조회
54
VBA 선택 폴더내 파일 이동이 가능한 코드입니다.
그런데 저는 선택 폴더가 아니라.
미리 폴더주소를 지정하고 싶습니다.
Sub MoveFiles() 'Updateby Extendoffice Dim xFd As FileDialog Dim xTFile As String Dim xExtArr As Variant Dim xExt As Variant Dim xSPath As String Dim xDPath As String Dim xSFile As String Dim xCount As Long '폴더를 선택할수있는코드 Set xFd = Application.FileDialog(msoFileDialogFolderPicker) xFd.Title = "Please select the original folder:" If xFd.Show = -1 Then xSPath = xFd.SelectedItems(1) Else Exit Sub End If If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\" xFd.Title = "Please select the destination folder:" If xFd.Show = -1 Then xDPath = xFd.SelectedItems(1) Else Exit Sub End If If Right(xDPath, 1) <> "\" Then xDPath = xDPath + "\" '이동할수있는 파일 확장자 xExtArr = Array("*.xlsx*", "*.jpg") For Each xExt In xExtArr xTFile = Dir(xSPath & xExt) Do While xTFile <> "" xSFile = xSPath & xTFile FileCopy xSFile, xDPath & xTFile Kill xSFile xTFile = Dir xCount = xCount + 1 Loop Next End Sub
어떻게 수정해야할까요?
전체 2,802
번호 | 카테고리 | 제목 | 작성자 | 작성일 | 추천 | 조회 |
2791 | 함수/공식 |
New 다중유효성으로 조건 별 선택 시, 동적범위가 설정되어 합계를 구하고 싶습니다.
![]() ![]() |
![]() |
17:16 | 1 | 6 |
2790 | 대시보드 |
New 월별 매출 실적 대시보드 해결방법
![]() ![]() |
![]() |
17:06 | 0 | 10 |
2789 | 함수/공식 |
New 다수의 함수 사용으로 인한 속도저하 문제시 단계검토 문의
![]() |
![]() |
15:31 | 0 | 11 |
2788 | 함수/공식 |
New 다른 시트 정보 불러오고, 표는 늘리고 줄이고 하는 방법 있을까요?
![]() ![]() |
![]() |
10:39 | 0 | 28 |
2787 | 기능/도구 |
New 필터 조건값 표시 관련
(1)
![]() |
![]() |
2021.04.18 | 0 | 36 |
2786 | VBA |
New 1000개의 입력값이 셀당 일치값이 있는지 확인 검색시 FOR문은 느려서 빠른방법이 있을까요?
(1)
![]() |
![]() |
2021.04.18 | 0 | 29 |
2785 | VBA |
New VBA로 SQL 형식의 관계형 데이터베이스 구축
(2)
![]() |
![]() |
2021.04.17 | 0 | 45 |
2784 | 함수/공식 |
New 엑셀 버튼(?)만들기 관련 질문드려요!
(2)
답변완료
![]() |
![]() |
2021.04.17 | 1 | 62 |
2783 | 기능/도구 |
New 이중유효성목록상자의 콤보박스 활용 관련 질문입니다.
(1)
![]() |
![]() |
2021.04.17 | 1 | 27 |
2782 | 함수/공식 |
New 텍스트 나누기
(3)
![]() |
![]() |
2021.04.17 | 1 | 50 |
2781 | VBA |
New [VBA] 단어진도표를 활용한 각 개인별 단어엑셀파일 만들기
![]() ![]() |
![]() |
2021.04.17 | 0 | 23 |
2780 | VBA |
vba버튼 표 만들기 요청의건
![]() ![]() |
![]() |
2021.04.16 | 0 | 45 |
2779 | VBA |
[vba] 엑셀 표에 있는 지정된 행에 있는 이름의 파일을 순서대로 열고 닫는 코드만들기
(2)
답변완료
![]() |
![]() |
2021.04.16 | 1 | 35 |
2778 | 함수/공식 |
xFilter 유사일치 적용 가능한 함수
(1)
![]() |
![]() |
2021.04.16 | -1 | 29 |
2777 | 문서서식 |
원가계산이 너무 어렵습니다..
(1)
![]() |
![]() |
2021.04.16 | -1 | 68 |
2776 | 함수/공식 |
값 중복 제외 함수를 알고싶습니다.
(1)
![]() |
![]() |
2021.04.16 | 0 | 52 |
2775 | VBA |
'naverfinancehistory' VBA 관련 질문 남겨보아요
(1)
![]() |
![]() |
2021.04.16 | 0 | 19 |
2774 | 기능/도구 |
' 표시
(1)
![]() |
![]() |
2021.04.16 | 0 | 35 |
2773 | 함수/공식 |
중복된 데이터 제거 후 불러오기
![]() ![]() |
![]() |
2021.04.15 | 0 | 90 |
2772 | 차트/그래프 |
가로형 차트에서 세로축의 항목이 2개 이상일 때 텍스트 방향 변경 어떻게 하나요?
(1)
![]() |
![]() |
2021.04.15 | 0 | 24 |
2771 | 함수/공식 |
중복값 제거 및 축출 함수
![]() ![]() |
![]() |
2021.04.15 | 0 | 57 |
2770 | 기능/도구 |
엑셀 셀안에 내용을 메모삽입후 셀복사+삽입된 메모에 붙여넣기 가능할까요?
(3)
![]() |
![]() |
2021.04.15 | 1 | 46 |
2769 | 함수/공식 |
엑셀 왕초보 질문 2개 영역의 데이터 목록을 순차적으로 자동배치 문의 드립니다
![]() ![]() |
![]() |
2021.04.15 | -3 | 40 |
2768 | 함수/공식 |
추천인 등수와 신규회원 데이터 정리 방법을 어떻게 시작해야할지 모르겠어요ㅠ
(2)
답변완료
![]() |
![]() |
2021.04.14 | 0 | 40 |
2767 | 함수/공식 |
다른 시트의 항목값중 한개 입력하면 여러항목 같이 불러오기
![]() ![]() |
![]() |
2021.04.14 | 0 | 29 |
2766 | 함수/공식 |
지정한 기간+지정한 조건 사이를 만족하는 값의 갯수를 구할떄 함수질문드려요
(2)
![]() |
![]() |
2021.04.14 | 1 | 34 |
2765 | 함수/공식 |
다중 조건과 텍스트 추출
![]() ![]() |
![]() |
2021.04.14 | 0 | 109 |
2764 | VBA |
vba 질문 (뒤로가기 버튼 구현)
(2)
![]() |
![]() |
2021.04.13 | 0 | 52 |
2763 | VBA |
여러 항목별 중 반복되는 특정시각에 맞는 항목 찾기. 논리적 규칙? 방향을 못잡겠습니다.
(4)
![]() |
![]() |
2021.04.13 | 0 | 52 |
2762 | 함수/공식 |
XLOOKUP 함수 활용한 세트구성 원가 합 구하기
![]() ![]() |
![]() |
2021.04.13 | 0 | 52 |
안녕하세요.
기존 명령문에서
이 부분을 지우고,
로 수정해보세요.
제시해드린 답변이 문제 해결에 도움이 되셨길 바랍니다. 감사합니다. 🙂
정말 감사합니다.!