VBA【クリップボード内のデータをペーストする方法】

初歩的な質問で恐縮ですが、クリップボード内に既にコピーされているデータを
Excelのシート状にペーストする場合のコードがうまく実行できません。

Sub Sample2()
Range("A1").Copy
Range("E1").PasteSpecial paste:=xlPasteValues
End Sub

この状態だと問題なくコピペができるのですが、

Excelブック外（例えばWeb上のテキストなど）でコピーしたデータを
シート状にペーストしたいと思い以下のようにしたのですが

※Excelブック外でコピーをし、Excelシート上で以下を実行

Sub Sample2()
Range("E1").PasteSpecial paste:=xlPasteValues
End Sub

これがうまく実行できませんでした。

上記のコードはExcelシート状でコピー＆ペーストを完結する場合でしか実行できないようでしょうか？

ご回答いただけますと幸いです。

sazi

2017/09/13 03:27 編集

誤っていたので、コメント削除しました。

行動規範の内容に同意します

回答2件

ベストアンサー

web上の表を選択・コピーしたり、
以下のような(→はタブを表しています)タブ区切りのテキストファイルを選択・コピーしてから、

1→2→3

4→5→6

以下のマクロを実行すると、E1を左上隅とした範囲にペーストされますよ(WindowsのExcel 2016で確認しました）。

Sub Sample()
Range("E1").PasteSpecial
End Sub

コピーする元のデータが、シート状（方形の複数のセル）に対応するようなもの（タブ区切りテキスト、Web上の表など）であることが重要なように思われます。

投稿2017/09/13 03:09

coco_bauer

総合スコア6915

Snpy

2017/09/13 06:34

ご回答ありがとうございます。おっしゃる通り、上記のコードは実行できました。ただ、「値のみの書き出し」が必要でして、「paste:=xlPasteValues」を入れると実行ができなくなってしまう理由が良く理解できていません。他に何か方法はありますでしょうか？

coco_bauer

2017/09/13 06:57

クリップボード上のデータが、ExcelのRangeとは異なる構造をしているためだと思われます。値のみの書き出しであれば、" ActiveSheet.PasteSpecial Format:="テキスト", Link:=False, DisplayAsIcon:= False" もしくは "ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= False, NoHTMLFormatting:=True” が使えませんか？

Snpy

2017/09/13 07:57

出来ました！すごい！本当にありがとうございます！とても参考になしました！

行動規範の内容に同意します