複数のテキストを開くには？ (ID:105064)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 すいません、注釈を忘れました Dim sabunFilesystem As Object Dim objFolder As Object Dim objFiles As Object Dim tblFile As String Dim tblFiles As Object ' Dim mypath as String 'ファイルのパス名 'ファイルシステムオブジェクトへの参照 Set sabunFilesystem = CreateObject("Scripting.FileSystemObject") Set objFolder = sabunFilesystem.getfolder(mypath) Set tblFiles = objFolder.Files For Each objFile In tblFiles 'ファイル名の取得 tblFile = objFile.Name '識別子がtblなら下記へ If StrConv(objFile.Name, vbUpperCase) Like "*.TBL" Then 'ファイルを開く Set objFiles = sabunFilesystem.OpenTextFile(tblFile) '一行ずつ読み込む Do Until objFiles.AtEndOfstream gyou(retu) = objFiles.ReadLine retu = retu + 1 Loop 'ファイルを閉じる objFiles.Close