ここから本文です

初歩的なVBA サイトからA1への貼り付け サイトでコピー済みの内容をA1へ貼り付...

koronasyaxさん

2017/10/414:03:15

初歩的なVBA サイトからA1への貼り付け

サイトでコピー済みの内容をA1へ貼り付けるコードを教えてもらえないでしょうか?
マクロ記録しかできないのですが記録では内容が固定されてしまって

^^;

補足A1に貼り付ける際に長文がA1のみに収まる形にしてほしいです。(計算式欄をアクティブにしての貼り付け等)
コピー内容が改行複数&長文になりますので単純に貼り付けるとHTMLを含み複数セルにまたがった形でコピーされてしまうと思います。
HTMLなしでA1のみになるようどうかお願いします。

閲覧数:
22
回答数:
1
お礼:
25枚

違反報告

ベストアンサーに選ばれた回答

webnavinaviさん

2017/10/414:46:02

HTMLコード無しで貼り付けるには

ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True

とか

ActiveSheet.PasteSpecial Format:="テキスト", Link:=False, DisplayAsIcon:=False

が通常の貼り付け

ただし↑の場合は、改行コードなどは自動判定され複数行列に貼り付けされてしまいます

一つのセルに収めるためにはクリップボードから直接データ出し入れする方法
https://www.moug.net/tech/exvba/0150091.html


コレを利用して

With New MSForms.DataObject
.GetFromClipboard
Range("A1") = .GetText
End Wit

こんな方法が簡単だと思う

この質問は投票によってベストアンサーに選ばれました!

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

5文字以上入力してください

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。