String?

High score code! How to use vba to retrieve all txt files in a folder containing

Sub t()

Dim 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 'Change c:\windows to the actual folder when using it

L = 1

For Each f1 In fc

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

If EXTName = "TXT" Then

Set fs = fso.OpenTextFile(f1, ForReading)

fb = fs.ReadAll

If InStr(1, fb，"Apple") > 0 Then

Cells(L, 1) = f1.Name

Cells(L, 2) = f1.Path

L = L 1

End If

End If

Next

End Sub

Excel VBA reads the txt file and replaces 13 10 in the txt with newlines

Step 1 To set macros, first set the add-in security to medium or low

Step 2 Insert the module alt f11 to open the VBA editor

Open the menu bar "Insert" module and add the following code

Sub DaoChu()

Dim I As Integer, J As Long, RW As Long

For I = 1 To ActiveSheet.UsedRange.Columns.Count

Open ThisWorkbook.Path & ＂\＂& Cells(1, I) & ＂.txt＂ For Output As 1

For J = 2 To Cells(65536, I).End(3).Row

Print #1, Cells(J, I).Value

Next J

Close 1

Next I

MsgBox "Data export completed!", vbOKOnly, "Export successful"

End Sub

Step 3. After saving, close EXCEL. Step 4. Test and then reopen excel. Press ctrl shift P to complete the export. The file is in the root directory of drive D

If you want to place it in another directory, you can change the D:\ in Open "D:\" & to the desired directory, but the directory cannot contain Chinese characters.

VBA implements sorting the TXT data into columns according to the specified characters after importing it

Option Explicit 'Mandatory variable declaration

Option Base 1 'Array starts with 1

Private Sub Form_Load()

Dim a(3, 5) As String, tmp As String 'Define 3x5 array and temporary variables

Dim i As Integer, j As Integer 'Define temporary variables

Open "C:\Documents and Settings\Administrator\Desktop\Test.txt" For Input As #1 'Open txt file

Do While Not EOF(1) 'Read line by line

Line Input #1, tmp 'Save the current line into tmp

i = i 1 'i represents the row of the array

For j = 1 To 5 'j indicates which column of the array

a(i, j) = Split(tmp, "|")(j - 1) 'Cut tmp into 5 segments using the "|" symbol and save them in the 5 columns of the i-th row of the array.

Next

Loop

Close #1

MsgBox a(3, 5) 'Output the characters in row 3 and column 5

End Sub

How to open a txt file in vba excel and display it in a textbox or the content in the textbox

Create a new excel workbook, open the VBA editor, insert a user form, put a textbox and two commandbuttons in the form, then open the form code window and paste the following code

Private Sub CommandButton1_Click()

'Read an ANSI encoded text file and display it in the textbox

With Application.FileDialog(msoFileDialogOpen)

If .Show Then ipath = .SelectedItems(1)

End With

If ipath ＂＂ Then

Open ipath For Input As #1

TextBox1.MultiLine = True

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

Close #1

End If

End Sub

Private Sub CommandButton2_Click()

'Write the contents of the textbox to a text file and save the directory where the current workbook is located

arr = Split(TextBox1.Value, vbCrLf)

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

Open ipath For Output As #1

For i = 0 To UBound(arr)

Print #1, arr(i)

Next

Close #1

MsgBox "The content of the text box has been saved!, Save path:" & ipath

End Sub

The above is the detailed content of String?. For more information, please follow other related articles on the PHP Chinese website!