弦？

ハイスコアコード! VBA を使用して、 を含むフォルダー内のすべての txt ファイルを取得する方法

サブ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 'c:\windows を使用する場合は実際のフォルダーに変更してください

L = 1

fc の各 f1 について

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

EXTName = "TXT" の場合、

Set fs = fso.OpenTextFile(f1, ForReading)

fb = fs.ReadAll

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

セル(L, 1) = f1.名前

セル(L, 2) = f1.Path

L = 長さ 1

終了の場合

終了の場合

＃＃＃次＃＃＃

エンドサブ

Excel VBA は txt ファイルを読み取り、txt 内の 13 10 を改行に置き換えます

ステップ 1 マクロを設定するには、まずアドインのセキュリティを中または低に設定します

ステップ 2 モジュール alt f11 を挿入して VBA エディタを開きます

メニューバーの「挿入」モジュールを開き、次のコードを追加します

サブダオチュー()

Dim I は整数、J は Long、RW は Long

For I = 1 to ActiveSheet.usedRange.Columns.Count

ThisWorkbook.Path & ＂\＂& Cells(1, I) & ＂.txt＂ を 1 として出力します

J = 2 の場合、Cells(65536, I).End(3).Row

#1、Cells(J, I).Valueを印刷します

次の J

1を閉じる

次のI

MsgBox "データのエクスポートが完了しました!"、vbOKOnly、"エクスポートに成功しました"

エンドサブ

ステップ 3. 保存後、EXCEL を閉じます。ステップ 4. テストして Excel を再度開きます。Ctrl + SHIFT P を押してエクスポートを完了します。ファイルはドライブ D

のルート ディレクトリにあります。

別のディレクトリに置きたい場合は、「D:\」を開く & の D:\ を任意のディレクトリに変更できますが、そのディレクトリに中国語を含めることはできません。

VBA は、インポート後に TXT データを指定された文字に従って列に並べ替えます。

オプションの明示的な「必須変数宣言」

オプション ベース 1 '配列は 1 で始まります

プライベートサブフォーム_Load()

Dim a(3, 5) As String, tmp As String '3x5 配列と一時変数を定義します

Dim i As Integer, j As Integer '一時変数を定義する

「C:\Documents and Settings\Administrator\Desktop\Test.txt」を入力として #1 として開きます 'txt ファイルを開きます

Do While Not EOF(1) '行ごとに読み取ります

Line Input #1, tmp '現在の行を tmp に保存します

i = i 1 'i は配列の行を表します

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 エディターを開き、ユーザー フォームを挿入し、フォームにテキスト ボックスと 2 つのコマンド ボタンを配置して、フォーム コード ウィンドウを開いて次のコードを貼り付けます。

プライベートサブコマンドボタン1_Click()

'ANSI エンコードされたテキスト ファイルを読み取り、テキスト ボックスに表示します

Application.FileDialog(msoFileDialogOpen)を使用する場合

If .Show then ipath = .SelectedItems(1)

で終わる

If ipath

＂＂ then

入力用の ipath を #1 として開きます

TextBox1.MultiLine = True

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

閉じる #1

終了の場合

エンドサブ

プライベートサブコマンドボタン2_Click()

'テキストボックスの内容をテキストファイルに書き込み、現在のワークブックが存在するディレクトリに保存します

arr = Split(TextBox1.Value, vbCrLf)

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

出力用の ipath を #1 として開きます

For i = 0 to UBound(arr)

印刷#1、arr(i)

＃＃＃次＃＃＃

閉じる #1

MsgBox "テキスト ボックスの内容が保存されました!、保存パス:" & ipath

エンドサブ

以上が弦？の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。