Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

71938 / 76738

←次へ　｜　前へ→


	【9291】Re:テキストに出力させたい

Kein - 03/11/27(木) 1:19 -


	引用なし

	パスワード

VBEの「ツール」「参照設定」で Microsoft Forms ?? Object Library に
チェックを付けて、↓を実行して下さい。もちろんシートは開いておくこと。

Sub Make_MyTxt()
　 Dim DObj As New DataObject
　 Dim MySt As String
　 Const MyF As String = "C:\My Documents\test1.txt"
　　'↑保存するフルパスを任意に書いて下さい　
　
　 Range("B2:D7").Copy
　 DObj.GetFromClipboard
　 MySt = DObj.GetText(1)
　 Open MyF For Output Access Write As #1
　 Print #1, MySt
　 Close #1
　 Application.CutCopyMode = False
End Sub

0 hits

▼

【9287】テキストに出力させたい kyuu 03/11/26(水) 21:32