人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

VBAについて質問です。

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

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

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

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

D:\test.txt

です。

読み込んだ後

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

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

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

●質問者: aiomock
●カテゴリ:コンピュータ インターネット
✍キーワード:IE test txt VBA タイプ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● HALSPECIAL
●100ポイント ベストアンサー

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

' 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

◎質問者からの返答

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

実行できました。

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

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ