Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


8615 / 13644 ツリー ←次へ | 前へ→

【32267】Openステートメントについて NK 05/12/11(日) 23:53 質問[未読]
【32268】補足 NK 05/12/11(日) 23:59 発言[未読]
【32272】Re:補足 Kein 05/12/12(月) 1:28 発言[未読]
【32269】Re:Openステートメントについて やっちん 05/12/12(月) 0:08 発言[未読]

【32267】Openステートメントについて
質問  NK  - 05/12/11(日) 23:53 -

引用なし
パスワード
   いつもお世話になっております。

テキストファイルを開き、テキストに内容を追加した上で
名前を変えて保存する、というコードを組みたいと考えています。
そこで以下のようなコードを考えています。
  Dim n As Long
  n = FreeFile
  Open "D:\Test.txt" For Append As #n
    Print #n, "追加内容"
  Close #n
ただ、これだと元々の内容の後ろに追加されるのですよね?
元々のテキストファイルの内容の前に追加したいのですが可能でしょうか?

【32268】補足
発言  NK  - 05/12/11(日) 23:59 -

引用なし
パスワード
   元のテキストファイルには1文字だけ入っております。
その文字は当方が使用しているコンピュータシステムから抽出した
EOFを意味する文字列であり、試しにコピーして貼り付けたところ
Excel上では認識されません。

シートに取り込んで追加内容と纏めて貼り付ける、
という仕様を考えていたのですが、それが出来なかった為に困っています。

それと、先ほど記載したコードは「名前をつけて保存」の部分を
まだ作っていないものです。(まだそこまでに至っていないので)

【32269】Re:Openステートメントについて
発言  やっちん  - 05/12/12(月) 0:08 -

引用なし
パスワード
   ▼NK さん:
こんばんは。
>元々のテキストファイルの内容の前に追加したいのですが可能でしょうか?
先に追加分を書き込んではどうですか。

【32272】Re:補足
発言  Kein  - 05/12/12(月) 1:28 -

引用なし
パスワード
   処理対象が
>元のテキストファイルには1文字だけ入っております。
>その文字は当方が使用しているコンピュータシステムから抽出した
>EOFを意味する文字列であり、試しにコピーして貼り付けたところ
>Excel上では認識されません。
という内容であり、しかも別名で保存したいとなると、最初から新規に
作った方がよっぽど簡単なのでは・・?

8615 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free