現在 getElementsByName を使用して IEでデータの出力をしているのですが、
<textarea name="caption" cols="50" rows="7"></textarea>
上記タイプの出力に
外部データを一度読み込んで、そのデータを出力したいと考えています。
外部データはD\ドライブにあり
D:\test.txt
です。
読み込んだ後
objIE.Document.getElementsByName("caption")(0).Value = "D:\test.txtのデータ"
で出力したいと考えております。
読み込みの仕方がわかるかたおりましたらご回答いただければと思います。
お手数をおかけしますがよろしくお願いいたします。
'参考:参照設定の方法はこちら、
' http://sei.qee.jp/docs/program/vba/all/FileSystem/index.html
'参考:ファイルの読み込みはこちら、
' http://www.happy2-island.com/vbs/cafe02/capter00206.shtml
こちらでいかがですか
Sub Test() Dim fso As Scripting.FileSystemObject 'あえて型を指定しました。参照設定で、Microsoft Scripting Runtime をチェックする。 Dim testFile As Scripting.TextStream 'あえて型を指定しました。参照設定で、Microsoft Scripting Runtime をチェックする。 Dim strData As String 'ファイルシステムオブジェクトの作成 Set fso = New Scripting.FileSystemObject 'ファイルのオープン Set testFile = fso.OpenTextFile("D:\test.txt", ForReading) 'ファイルの全ての内容をガバっと取り出し strData = testFile.ReadAll 'ファイルのクローズ testFile.Close Set testFile = Nothing objIE.Document.getElementsByName("caption")(0).Value = strData End Sub
ご回答ありがとうございます。
実行できました。
ありがとうございます^^。