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

名前

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

本文 匿名さん、お返事ありがとうございます。 僕が作ったものでは、一つならできるのですが二つ以上だとエラーステーメントの方に処理が移ってしまいます。作ったものは、下記のとおりです。 どのように変えれば良いのでしょうか？ Dim sabunFilesystem As Object Dim objFolder As Object Dim objFiles As Object Dim tblFile As String Dim tblFiles As String Set sabunFilesystem = CreateObject("Scripting.FileSystemObject") Set objFolder = sabunFilesystem.getfolder(パス名) Set tblFiles = objFolder.Files For Each objFile In tblFiles tblFile = objFile.Name 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