[[20130523224831]]　『テキストへの貼り付け』（SIn）　ページの最後に飛ぶ

『テキストへの貼り付け』（SIn）
WIN7 Excel 2010

エクセルで指定した範囲をテキストに張り付ける(出力する)

初めまして。Sinです。よろしくお願いします。早速なんですが、、質問の詳細です。

エクセルシートのある範囲をテキストに出力したいです。

シート名・・・130524　等日付(基本当日の日付で毎日変わります)
貼り付け範囲↓横A～D位
A1 年/月/日

A3　時間～時間

A5　　時間

ーーーーーーーーーーーーーーーこれより下の空白の行をなくして張り付けたい
A6■・・・・・
A7
A8
A9

A10終わり
貼り付け範囲↑

張り付けた時

 年/月/日

　時間～時間

　　時間
■・・・・・・
終わり

となるようにしたいです。
テキストはCデストトップにあるXXX.tet　と言う名前のテキストに張り付けて
開いた状態にしたいです。
保存機能はいりません。

＞テキストはCデストトップにあるXXX.tet　と言う名前のテキストに張り付けて

これはファイル保存しないと実現できないわけで、

＞保存機能はいりません。

この要求と矛盾。何がしたいのか、もう一度整理しましょう。
B～D列の文字列がどうなって欲しいのかも、不明。
(???)

＞テキストはCデストトップにあるXXX.tet　と言う名前のテキストに張り付けて

貼り付けた内容を保存したくはないという事です。
空テキストを常おいておきたいです。

bからdも同様に貼り付けて
したいです。

初心者ですみません。

(sin)

 Sub test()
    Dim WSH As Object
    Dim F1 As Integer
    Dim cFile As String

    ActiveSheet.Range("A1:D5").Copy

    Set WSH = CreateObject("Wscript.Shell")
    cFile = WSH.SpecialFolders("Desktop") & "\XXX.tet"

    If Dir(cFile) = "" Then
        F1 = FreeFile
        Open cFile For Output As #F1
        Close #F1
    End If

    Shell "notepad.exe """ & cFile & """", vbNormalFocus
    AppActivate "XXX.tet - メモ帳"
    WSH.SendKeys "^V"
    Set WSH = Nothing
End Sub
(???)

コメント返信：