끈?

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