VBAについて質問です。


現在 getElementsByName を使用して IEでデータの出力をしているのですが、

<textarea name="caption" cols="50" rows="7"></textarea>

上記タイプの出力に
外部データを一度読み込んで、そのデータを出力したいと考えています。

外部データはD\ドライブにあり

D:\test.txt

です。

読み込んだ後

objIE.Document.getElementsByName("caption")(0).Value = "D:\test.txtのデータ"

で出力したいと考えております。

読み込みの仕方がわかるかたおりましたらご回答いただければと思います。
お手数をおかけしますがよろしくお願いいたします。

回答の条件
  • 1人2回まで
  • 登録:2009/12/16 12:24:19
  • 終了:2009/12/16 13:26:29

ベストアンサー

id:HALSPECIAL No.1

HALSPECIAL回答回数407ベストアンサー獲得回数862009/12/16 13:19:31

ポイント100pt

'参考:参照設定の方法はこちら、

' 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

id:aiomock

ご回答ありがとうございます。

実行できました。

ありがとうございます^^。

2009/12/16 13:26:17
  • id:aiomock
    test.txtファイルの中身は以下のようになっております。


    <font size="+2">

    商品のデータ

    データ1

    データ2

    </font>


    です。

    改行がされていますが、その改行がそのまま反映されて出力したいと思っています。
    htmlタグも入っていますのでそちらもそのままの状態で、、。
    お手数をおかけしますがわかるかたおりましたらよろしくお願いいたします。

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません