rentetan?

Kod skor tinggi! Cara menggunakan vba untuk mendapatkan semula semua fail txt dalam folder yang mengandungi

Sub t()

Malapkan fso, f, f1, fc, s, r

Const ForReading = 1, ForWriting = 2

Tetapkan fso = CreateObject(＂Scripting.FileSystemObject＂)

'Tetapkan fc = fso.GetFile(WScript.ScriptFullName).ParentFolder.Files

Tetapkan fc = fso.GetFolder("c:windows").Fail 'Tukar c:windows ke folder sebenar apabila menggunakannya

L = 1

Untuk Setiap f1 Dalam fc

EXTName = UCase(fso.GetExtensionName(f1.Name))

Jika EXTName = "TXT" Kemudian

Tetapkan fs = fso.OpenTextFile(f1, ForReading)

fb = fs.ReadAll

Jika InStr(1, fb, "apple") > 0 Kemudian

Sel(L, 1) = f1.Nama

Sel(L, 2) = f1.Path

L = L + 1

Tamat Jika

Tamat Jika

Seterusnya

Tamat Sub

Excel VBA membaca fail txt dan menggantikan 13 10 dalam txt dengan baris baharu

Langkah 1: Untuk menetapkan makro, mula-mula tetapkan keselamatan tambahan kepada sederhana atau rendah

Langkah 2 Masukkan modul alt+f11 untuk membuka editor VBA

Buka modul bar menu "Sisipkan" dan tambah kod berikut

Sub DaoChu()

Malapkan Saya Sebagai Integer, J Sepanjang, RW Sepanjang

Untuk I = 1 Kepada ActiveSheet.UsedRange.Columns.Count

Buka Buku Kerja Ini.Path & ＂＂ & Cells(1, I) & ＂.txt＂ Untuk Output As 1

Untuk J = 2 Ke Sel(65536, I).Tamat(3).Baris

Cetak #1, Sel(J, I).Nilai

Seterusnya J

Tutup 1

Seterusnya saya

MsgBox "Eksport data selesai!", vbOKOnly, "Eksport berjaya"

Tamat Sub

Langkah 3. Selepas menyimpan, tutup EXCEL Langkah 4. Uji dan buka semula Excel. Tekan ctrl+shift+P untuk melengkapkan eksport

Jika anda ingin meletakkannya dalam direktori lain, anda boleh menukar D: dalam Buka "D:" & ke direktori yang dikehendaki, tetapi direktori itu tidak boleh mengandungi aksara Cina.

VBA membolehkan data TXT diimport dan diisih mengikut aksara yang ditentukan

Pilihan Eksplisit 'Perisytiharan pembolehubah mandatori

Pilihan Base 1 'Array bermula dengan 1

Sub Borang Persendirian_Muat()

Malapkan a(3, 5) Sebagai String, tmp As String 'Tentukan tatasusunan 3x5 dan pembolehubah sementara

Malapkan i Sebagai Integer, j Sebagai Integer 'Tentukan pembolehubah sementara

Buka＂C:Documents and SettingsAdministratorDesktopTest.txt＂Untuk Input Sebagai #1 'Buka fail txt

Lakukan Walaupun Tidak EOF(1) 'Baca baris demi baris

Input Talian #1, tmp 'Simpan talian semasa ke dalam tmp

i = i + 1 'i mewakili baris tatasusunan

Untuk j = 1 Hingga 5 'j mewakili lajur tatasusunan

a(i, j) = Split(tmp, "|")(j - 1) 'Potong tmp kepada 5 segmen menggunakan simbol "|" dan simpannya pada 5 lajur baris ke-i tatasusunan pula

Seterusnya

Gelung

Tutup #1

MsgBox a(3, 5) 'Keluarkan aksara dalam baris 3 dan lajur 5

Tamat Sub

Bagaimana untuk membuka fail txt dalam vba excel dan memaparkannya dalam kotak teks atau kandungan dalam kotak teks

Buat buku kerja excel baharu, buka editor VBA, masukkan borang pengguna, letakkan kotak teks dan dua butang arahan dalam borang, kemudian buka tetingkap kod borang dan tampal kod berikut

Button Sub Perintah Peribadi1_Klik()

'Baca fail teks berkod ANSI dan paparkannya dalam kotak teks

Dengan Application.FileDialog(msoFileDialogOpen)

Jika .Show Then ipath = .SelectedItems(1)

Tamat Dengan

Jika ipath

＂＂ Kemudian

Buka ipat Untuk Input Sebagai #1

TextBox1.MultiLine = Benar

TextBox1.Value = StrConv(InputB(LOF(1), 1), vbUnicode)

Tutup #1

Tamat Jika

Tamat Sub

Sub Perintah Butang2_Klik()

'Tulis kandungan kotak teks ke fail teks dan simpan direktori di mana buku kerja semasa berada

arr = Split(TextBox1.Value, vbCrLf)

ipath = ThisWorkbook.Path & "＂" & Left(arr(0), 8) & ".txt＂

Buka ipath Untuk Output Sebagai #1

Untuk i = 0 Kepada UBound(arr)

Cetak #1, arr(i)

Seterusnya

Tutup #1

MsgBox "Kandungan kotak teks telah disimpan!, Simpan laluan:" & ipath

Tamat Sub

Atas ialah kandungan terperinci rentetan?. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!