고득점 코드! vba를 사용하여 가 포함된 폴더의 모든 txt 파일을 검색하는 방법
Sub t()
딤 fso, f, f1, fc, s, r
Const ForReading = 1, ForWriting = 2
Set fso = CreateObject("Scripting.FileSystemObject")
'Set fc = fso.GetFile(WScript.ScriptFullName).ParentFolder.Files
Set fc = fso.GetFolder("c:windows").Files '사용 시 c:windows를 실제 폴더로 변경합니다
엘 = 1
fc의 각 f1에 대해
EXTName = UCase(fso.GetExtensionName(f1.Name))
EXTName = "TXT"인 경우
Set fs = fso.OpenTextFile(f1, ForReading)
fb = fs.ReadAll
InStr(1, fb, "apple") > 0이면
셀(L, 1) = f1.이름
셀(L, 2) = f1.Path
엘 = 엘 + 1
끝나면
끝나면
다음
끝 서브
Excel VBA는 txt 파일을 읽고 txt의 13 10을 줄 바꿈으로 바꿉니다
1단계: 매크로를 설정하려면 먼저 추가 기능 보안을 중간 또는 낮음으로 설정하세요
2단계 alt+f11 모듈을 삽입하여 VBA 편집기를 엽니다
메뉴바 "삽입" 모듈을 열고 다음 코드를 추가하세요
섭다오츄()
I를 정수로, J를 길게, RW를 길게
For I = 1 To ActiveSheet.UsedRange.Columns.Count
Open ThisWorkbook.Path & "" & Cells(1, I) & ".txt" 1로 출력용
J = 2 셀(65536, I).End(3).Row
인쇄 #1, 셀(J, I).값
넥스트제이
1 닫기
다음엔 나
MsgBox "데이터 내보내기가 완료되었습니다!", vbOKOnly, "내보내기 성공"
끝 서브
3단계. 저장 후 EXCEL을 닫습니다. 4단계. Excel을 다시 열어서 Ctrl+Shift+P를 눌러 내보내기를 완료합니다. 파일은 D드라이브의 루트 디렉터리에 있습니다.
다른 디렉터리에 배치하려면 Open "D:" &에서 D:를 원하는 디렉터리로 변경할 수 있지만 해당 디렉터리에는 중국어 문자가 포함될 수 없습니다.VBA를 사용하면 TXT 데이터를 가져오고 지정된 문자에 따라 정렬할 수 있습니다
Option Explicit '필수 변수 선언
Option Base 1 '배열은 1로 시작합니다
비공개 하위 양식_Load()
Dim a(3, 5) As String, tmp As String '3x5 배열 및 임시 변수 정의
Dim i As Integer, j As Integer '임시 변수 정의
열기"C:Documents and SettingsAdministratorDesktopTest.txt"입력용 #1 'txt 파일 열기
Do While Not EOF(1) '한 줄씩 읽기
라인 입력 #1, tmp '현재 라인을 tmp에 저장
i = i + 1 'i는 배열의 행을 나타냅니다
For j = 1 To 5 'j는 배열의 열을 나타냅니다
a(i, j) = Split(tmp, "|")(j - 1) ' "|" 기호를 사용하여 tmp를 5개 세그먼트로 자르고 배열의 i 번째 행의 5개 열에 저장합니다. 차례로
다음
루프
1번 닫기
MsgBox a(3, 5) '3행과 5열의 문자를 출력하세요
끝 서브
VBA Excel에서 txt 파일을 열고 텍스트 상자에 표시하거나 텍스트 상자의 내용을 변환하는 방법
새 Excel 통합 문서를 만들고, VBA 편집기를 열고, 사용자 양식을 삽입하고, 양식에 텍스트 상자와 두 개의 명령 버튼을 넣은 다음, 양식 코드 창을 열고 다음 코드를 붙여넣습니다
비공개 하위 CommandButton1_Click()
'ANSI로 인코딩된 텍스트 파일을 읽고 텍스트 상자에 표시합니다
Application.FileDialog(msoFileDialogOpen) 사용
If .Show Then ipath = .SelectedItems(1)
끝
ipath라면
"" 그렇다면
#1로 입력하려면 ipath 열기TextBox1.MultiLine = True
TextBox1.Value = StrConv(InputB(LOF(1), 1), vbUnicode)
1번 닫기
끝나면
끝 서브
비공개 하위 CommandButton2_Click()
'텍스트 상자의 내용을 텍스트 파일에 쓰고 현재 통합 문서가 있는 디렉터리에 저장하세요
arr = 분할(TextBox1.Value, vbCrLf)
ipath = ThisWorkbook.Path & """ & Left(arr(0), 8) & ".txt"
#1로 출력하려면 ipath 열기
For i = 0 To UBound(arr)
인쇄 #1, arr(i)
다음
1번 닫기
MsgBox "텍스트 상자의 내용이 저장되었습니다!, 저장 경로:" & ipath
끝 서브
위 내용은 끈?의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!

PC가 AMD 칩셋에서 실행되면 사용할 때 "Windows 업데이트가 AMD를 자동으로 교체했을 수 있습니다"오류 메시지를받을 수 있습니다. 괜찮아요! Php.cn 의이 게시물은 귀하를위한 몇 가지 솔루션을 제공합니다.

Microsoft Sway는 무엇이며 PowerPoint 란 무엇입니까? 이 두 가지는 사람들의 일과 공부를 촉진하기위한 다른 프레젠테이션 도구입니다. 따라서 그들과 그들 사이의 선택의 차이점은 무엇입니까? Php.cn 웹 사이트 의이 게시물은 일부를 제공합니다
![[Must-Know] 승리 10 오프라인 설치 프로그램 : 설치 WIN 10 22H2 오프라인](https://img.php.cn/upload/article/001/242/473/174490855357657.png?x-oss-process=image/resize,p_40)
최신 Windows 10 오프라인 또는 인터넷없이 설치할 Windows 10 오프라인 설치 프로그램이 있습니까? 물론 그렇습니다. PHP.CN 소프트웨어는이 게시물에서 Windows 10 오프라인 설치 프로그램을 얻는 방법을 보여줍니다.

일부 사용자는 라이센스가 만료 된 후 Windows Server 자동 분쇄 문제를 충족한다고보고합니다. Php.cn 의이 게시물은 만료 된 Windows Server 자동 분리를 중지하는 방법을 알려줍니다. 이제 계속 독서를하십시오.

특정 폴더에 액세스 할 때 "파일이 표시 될 수 없음"오류로 어려움을 겪고 있습니까? 일부 사용자는이 문제에 대해 불평하고 유용한 조치를 찾고 있습니다. 파일에 대한이 기사는 php.cn wil에서 Onedrive를 표시 할 수 없습니다.

Street Fighter 6은 Capcom이 출판 한 전투 게임이며 Street Fighter 프랜차이즈에 속한 많은 게임 팬을 끌어 들였습니다. 어떤 사람들은 PC 에서이 게임을하기를 희망합니다. 그렇게하려면 Street Fighter 6 시스템 요구 사항을 충족해야합니다.

드라이브 이름 (볼륨 레이블)은 Windows에서 기본적으로 드라이브 문자 앞에 표시됩니다. 드라이브 이름 전에 드라이브 문자를 보여주는 방법을 알고 있습니까? Php.cn 의이 게시물은 파일 탐색기에서 먼저 드라이브 문자를 보여주는 방법을 알려줍니다.

언어 막대는 다중 언어 Windows 사용자에게 유용합니다. 간단히 클릭하여 언어를 변경할 수 있습니다. 어떤 사람들은 작업 표시 줄의 언어 표시 줄을 끄고 싶어합니다. 당신은 그것을하는 방법을 알고 있습니까? 모르는 경우 P를 찾으려면이 php.cn 게시물을 읽으십시오.


핫 AI 도구

Undresser.AI Undress
사실적인 누드 사진을 만들기 위한 AI 기반 앱

AI Clothes Remover
사진에서 옷을 제거하는 온라인 AI 도구입니다.

Undress AI Tool
무료로 이미지를 벗다

Clothoff.io
AI 옷 제거제

AI Hentai Generator
AI Hentai를 무료로 생성하십시오.

인기 기사

뜨거운 도구

MinGW - Windows용 미니멀리스트 GNU
이 프로젝트는 osdn.net/projects/mingw로 마이그레이션되는 중입니다. 계속해서 그곳에서 우리를 팔로우할 수 있습니다. MinGW: GCC(GNU Compiler Collection)의 기본 Windows 포트로, 기본 Windows 애플리케이션을 구축하기 위한 무료 배포 가능 가져오기 라이브러리 및 헤더 파일로 C99 기능을 지원하는 MSVC 런타임에 대한 확장이 포함되어 있습니다. 모든 MinGW 소프트웨어는 64비트 Windows 플랫폼에서 실행될 수 있습니다.

드림위버 CS6
시각적 웹 개발 도구

WebStorm Mac 버전
유용한 JavaScript 개발 도구

ZendStudio 13.5.1 맥
강력한 PHP 통합 개발 환경

메모장++7.3.1
사용하기 쉬운 무료 코드 편집기
