| |
▼とおりすがり さん：
すみません。基本方針をよく読んでいませんでした。
こちらで試したことを書きます。
▼neptune さん：
ご回答ありがとうございます。
ですが、私の説明が言葉足らずであった為、今一度
試したこととやりたいことを整理して書きます。
（お手数おかけしてすみませんでした。）
■試したこと
1.［挿入］→［オブジェクト］→［ファイルから］→ テキストファイルを挿入
2.マクロの記録開始
3.挿入したオブジェクトをダブルクリック
（→メモ帳でファイルがオープンされた）
4.メモ帳にてファイルの１行目をコピー
5.マクロの記録終了
マクロの記録には下記のコードしかありませんでした。
ActiveSheet.Shapes("Object 1").Select
Selection.Verb Verb:=xlPrimary
■やりたいこと
上記の4.でファイルの１行目を文字列（String型）のデータ
として取得したいのです。
Excelに挿入したオブジェクトに対して、TextStream型の
ReadLineようなイメージでファイルの内容を取得したい
のですが、いい方法はないでしょうか？
↓
（イメージ）
Dim fso As New FileSystemObject
Dim f As File
Dim st As TextStream
Dim buf As String
Set f = fso.GetFile("新規ファイル.txt")
Set st = f.OpenAsTextStream(ForReading)
buf = st.ReadLine()
|
|
kim
- 07/11/11(日) 22:08 -
