찾다

끈?

Jan 22, 2024 pm 03:00 PM

끈?

고득점 코드! 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 중국어 웹사이트의 기타 관련 기사를 참조하세요!

성명
이 기사는 Excel办公网에서 복제됩니다. 침해가 있는 경우 admin@php.cn으로 문의하시기 바랍니다. 삭제
수정 : Windows Update가 자동으로 AMD를 교체했을 수 있습니다 - Minitool수정 : Windows Update가 자동으로 AMD를 교체했을 수 있습니다 - MinitoolApr 18, 2025 am 12:51 AM

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

Microsoft Sway vs PowerPoint- 어떤 것을 선택해야합니까?Microsoft Sway vs PowerPoint- 어떤 것을 선택해야합니까?Apr 18, 2025 am 12:50 AM

Microsoft Sway는 무엇이며 PowerPoint 란 무엇입니까? 이 두 가지는 사람들의 일과 공부를 촉진하기위한 다른 프레젠테이션 도구입니다. 따라서 그들과 그들 사이의 선택의 차이점은 무엇입니까? Php.cn 웹 사이트 의이 게시물은 일부를 제공합니다

[Must-Know] 승리 10 오프라인 설치 프로그램 : 설치 WIN 10 22H2 오프라인[Must-Know] 승리 10 오프라인 설치 프로그램 : 설치 WIN 10 22H2 오프라인Apr 18, 2025 am 12:49 AM

최신 Windows 10 오프라인 또는 인터넷없이 설치할 Windows 10 오프라인 설치 프로그램이 있습니까? 물론 그렇습니다. PHP.CN 소프트웨어는이 게시물에서 Windows 10 오프라인 설치 프로그램을 얻는 방법을 보여줍니다.

가이드 - 만료 된 Windows Server Auto -Shutdown을 중지하는 방법?가이드 - 만료 된 Windows Server Auto -Shutdown을 중지하는 방법?Apr 18, 2025 am 12:48 AM

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

파일은 OneDrive에 표시 할 수 없습니다 - 해결 방법은 무엇입니까?파일은 OneDrive에 표시 할 수 없습니다 - 해결 방법은 무엇입니까?Apr 18, 2025 am 12:47 AM

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

스트리트 파이터 6 시스템 요구 사항 - 준비가 되셨습니까? - 미니 툴스트리트 파이터 6 시스템 요구 사항 - 준비가 되셨습니까? - 미니 툴Apr 18, 2025 am 12:46 AM

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

드라이브 이름 앞에서 드라이브 문자를 표시하는 방법 Windows 10/11 -Minitool드라이브 이름 앞에서 드라이브 문자를 표시하는 방법 Windows 10/11 -MinitoolApr 18, 2025 am 12:45 AM

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

Windows 10/11에서 언어 표시 줄을 끄는 정확한 단계Windows 10/11에서 언어 표시 줄을 끄는 정확한 단계Apr 18, 2025 am 12:44 AM

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

See all articles

핫 AI 도구

Undresser.AI Undress

Undresser.AI Undress

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

AI Clothes Remover

AI Clothes Remover

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

Undress AI Tool

Undress AI Tool

무료로 이미지를 벗다

Clothoff.io

Clothoff.io

AI 옷 제거제

AI Hentai Generator

AI Hentai Generator

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

뜨거운 도구

MinGW - Windows용 미니멀리스트 GNU

MinGW - Windows용 미니멀리스트 GNU

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

드림위버 CS6

드림위버 CS6

시각적 웹 개발 도구

WebStorm Mac 버전

WebStorm Mac 버전

유용한 JavaScript 개발 도구

ZendStudio 13.5.1 맥

ZendStudio 13.5.1 맥

강력한 PHP 통합 개발 환경

메모장++7.3.1

메모장++7.3.1

사용하기 쉬운 무료 코드 편집기