[ホーム] ＞ [VBScript FAQ 一覧] ＞ [Excelのセルに記載されたファイル名を読み取り、そのファイルの中身をセルに代入するサンプルコード]

Excelのセルに記載されたファイル名を読み取り、そのファイルの中身をセルに代入するサンプルコード | VBScript / VBA FAQ

Excelのセルにファイル名が記載されており、そのファイル名を読み込み隣のセルに値を代入するサンプルコードです。

(1)
次のコードはセル(1,1)に書かれているファイル名を読み取り、その内容をセル(1,2)へ代入しています。

Sub kihonkei_1()

Set fso = CreateObject("Scripting.FileSystemObject")
Filename = Sheets("Sheet1").Cells(1, 1).Value
Set f = fso.OpenTextFile(Filename)
Sheets("Sheet1").Cells(1, 2).Value = f.ReadAll

End Sub

(2)
次のサンプルコードは応用したものです。
Excelの1列目を先頭(1行目)から下に読み込み、セル内に記載されたファイル名のファイルを順次読み込みます。
そしてタイトル<title>〜</title>で囲まれた部分を取り出して隣のセルに代入します。

Sub read_title()


Set fso = CreateObject("Scripting.FileSystemObject")
i = 1
mysheetname = "Sheet1"

Do While Sheets(mysheetname).Cells(i, 1).Value <> ""

Filename = Sheets(mysheetname).Cells(i, 1).Value
Set f = fso.OpenTextFile(Filename)

readbuf = f.ReadAll

title_from = InStr(readbuf, "<title>")
title_end = InStr(readbuf, "</title>")

Sheets(mysheetname).Cells(i, 2).Value = Mid(readbuf, title_from + Len("<title>"), title_end - title_from - Len("<title>"))
i = i + 1
Loop

End Sub

[ホーム] ＞ [VBScript FAQ 一覧]