전체 글1605 보완 Sub ExtractDataFromFiles() Dim FolderPath As String Dim FileName As String Dim SpecificText As String Dim cn As Object Dim rs As Object Dim ws As Worksheet Dim NewBook As Workbook Dim NewSheet As Worksheet Dim Row As Long Dim Col As Long FolderPath = "C:\Your\Folder\Path\" ' 폴더 경로를 지정하세요. SpecificText = "특정글자" ' 특정 글자를 지정하세요. Set NewBook = Workbooks.Add Set NewSheet = NewBook.Sheets(1) Row = 1 C.. 2024. 7. 5. 추출 Sub ExtractDataFromFiles() Dim FolderPath As String Dim FileName As String Dim SpecificText As String Dim cn As Object Dim rs As Object Dim ws As Worksheet Dim NewBook As Workbook Dim NewSheet As Worksheet Dim Row As Long Dim Col As Long FolderPath = "C:\Your\Folder\Path\" ' 폴더 경로를 지정하세요. SpecificText = "특정글자" ' 특정 글자를 지정하세요. Set NewBook = Workbooks.Add Set NewSheet = NewBook.Sheets(1) Row = 1 C.. 2024. 7. 5. depth고려 Sub CopyFilesContainingString(sourceFolder As String, targetFolder As String, searchString As String) Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") ' 대상 폴더가 존재하지 않으면 생성 If Not fso.FolderExists(targetFolder) Then fso.CreateFolder(targetFolder) ' 폴더 탐색 및 파일 복사 SearchAndCopyFiles fso.GetFolder(sourceFolder), searchString, targetFolder, fso, 0 MsgBox "파일 복사가 완료되었습니다!" End Su.. 2024. 7. 5. 튜닝코드 하위 폴더명에도 "특정 문자열"이 포함된 것만 탐색하도록 수정하여 탐색 시간을 단축할 수 있습니다. 이를 위해 하위 폴더를 탐색하기 전에 폴더명에 검색 문자열이 포함되어 있는지 확인하는 조건을 추가하면 됩니다. 아래는 해당 기능을 반영한 코드입니다: ```vba Sub CopyFilesContainingString(sourceFolder As String, targetFolder As String, searchString As String) Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") ' 대상 폴더가 존재하지 않으면 생성 If Not fso.FolderExists(targetFolder) Then fso.CreateFold.. 2024. 7. 5. vba 특정경로파일 탐색 후 복사 Sub CopyFilesContainingString(sourceFolder As String, targetFolder As String, searchString As String) Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") ' 대상 폴더가 존재하지 않으면 생성 If Not fso.FolderExists(targetFolder) Then fso.CreateFolder(targetFolder) ' 폴더 탐색 및 파일 복사 SearchAndCopyFiles fso.GetFolder(sourceFolder), searchString, targetFolder, fso MsgBox "파일 복사가 완료되었습니다!" End Sub S.. 2024. 7. 5. vb 폴더 파일복사 Sub CopyFolderAndFiles() Dim srcFolder As String Dim destFolder As String Dim fso As Object Dim folder As Object Dim file As Object ' 소스 폴더와 대상 폴더 설정 srcFolder = "C:\abc\" destFolder = "C:\abb\" ' FileSystemObject 생성 Set fso = CreateObject("Scripting.FileSystemObject") ' 대상 폴더 생성 If Not fso.FolderExists(destFolder) Then fso.CreateFolder (destFolder) End If ' 소스 폴더 내 모든 폴더와 파일 복사 Set folder = fso.. 2024. 7. 5. 중복파일 삭제 vb Sub DeleteFiles(condition As String) Dim fso As Object Dim folder As Object Dim file As Object Dim lastModifiedFile As Object Dim folderPath As String ' 파일 시스템 객체 생성 Set fso = CreateObject("Scripting.FileSystemObject") ' 현재 폴더 경로 설정 folderPath = "C:\Your\Folder\Path" ' 실제 경로로 변경 필요 ' 폴더 객체 설정 Set folder = fso.GetFolder(folderPath) ' 가장 마지막 수정된 파일을 찾기 위한 변수 초기화 Set lastModifiedFile = Nothing ' 파일.. 2024. 7. 5. vb2 엑셀 VBA로 파일을 열지 않고 데이터를 처리 Sub CombineExcelFiles() Dim folderPath As String Dim fileName As String Dim newWorkbook As Workbook Dim newWorksheet As Worksheet Dim lastRow As Long Dim dataRange As Range Dim dataArray() As Variant Dim conn As Object Dim rs As Object Dim sql As String ' 폴더 경로 설정 folderPath = "c:/abc/" ' 새 워크북 생성 Set newWorkbook = Workbooks.Add Set newWorksheet = newWorkbook.Sheets(1) .. 2024. 7. 5. vb Sub DeleteFiles() Dim folderPath As String Dim FSO As Object Dim folder As Object Dim file As Object Dim aFiles As Collection Dim bFiles As Collection Dim latestAFile As Object Dim latestBFile As Object Dim latestADate As Date Dim latestBDate As Date ' 폴더 경로 설정 folderPath = "C:\abc\" ' FileSystemObject 생성 Set FSO = CreateObject("Scripting.FileSystemObject") Set folder = FSO.GetFolder(folderPath).. 2024. 7. 5. 컨퍼런스 이벤트 증정공지 RPA마스터 커뮤니티 컨퍼런스 이벤트 증정공지 아래의 설명문서 다운로드하여 등록해주시기 바랍니다.^^ 코드는 메일 본문에 보내드리겠습니다. 2024. 4. 2. [Siemens Mendix] 로코드 플랫폼 관련 자료 공유 안녕하세요. Digital Transformation, RPA마스터 커뮤니티입니다. 지멘스의 로코드 플랫폼, 멘딕스의 자료를 전해드립니다. 1. 2023 Gartner Report - https://www.mendix.com/resources/gartner-magic-quadrant-for-low-code-application-platforms/ 2. Mendix Academy - https://academy.mendix.com/ Mendix 개발자들을 위한 교육, 공인자격증, 웨비나 등을 제공하여 Mendix를 더욱 잘 활용할 수 있도록 도와줍니다. 3. Mendix Developer Portal - https://www.mendix.com/developer-center/ Mendix 플랫.. 2023. 11. 20. [MS] Power Automate와 PAD 머신 연결 오류 해결방법 안녕하세요. Digital Transformation, RPA마스터 커뮤니티입니다. [MS] Power Automate와 PAD 머신 연결오류 해결 사례입니다. [증상] 머신연결을 마쳤음에도 불구하고 아래 두 화면과 같이 연결 실패 메시지가 나옵니다. [해결방법] 대상 PC가 Windows 암호가 걸려있지 않았습니다. 암호를 설정 후 정상적으로 암호를 입력 하였을 때 정상 실행되었습니다. [정리 및 추가사항] - Password는 Windows OS의 암호를 입력한다. - Domain and username의 값은 CMD에서 whoami쳐서 나온 PC의 도메인 값을 그대로 입력한다. 감사합니다. RPA마스터 https://cafe.naver.com/rpamaster RPA 마스터 - 로봇 프로세스 자동... 2023. 2. 12. 이전 1 2 3 4 5 ··· 134 다음
