[ホーム] > [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 一覧]





(ご注意) 本サイト内の内容を使用して発生したいかなる時間的損害、金銭的損害あるいはいかなる損害に対して、いかなる人物も一切の責任を負いません。あくまでも個人の判断で使用してください。
本サイト内掲載されている情報は、著作権法により保護されています。いかなる場合でも権利者の許可なくコピー、配布することはできません。
このページはリンクフリーです。(このページへの直接リンクも可能です。)
雑誌等での紹介は特に連絡は不要です。
Copyright(c) tooljp.com 2007-2019