マクロで文字だけ貼り付けるには？

質問

コピーしてあるＨＰ上の文字列をA6セルに貼り付けたいんですが、クリップボードには書式情報も入っている様で、下記のマクロだと後ろのセルが結合されたり色がついたりします。
テキストだけ張り付けるにはどうすれば良いのでしょうか？

Sub ネットから貼付()
Range("A6").PasteSpecial
End Sub

回答No.4

shishishishi · ベストアンサー

No3です。
へんですね。今も

Sub test()
Range("A6").Select
ActiveSheet.PasteSpecial Format:="テキスト"
End Sub

でやってみましたがちゃんとできました。
HPをコピーしないうちに実行すると「WorksheetクラスのPasteSpecialメソッドが失敗しました」と出ますけど。

わたしのはWin98SE　エクセル2000です。

お礼

書き込んでいるうちに再度アドバイスがあったようで、何度もすみません。
いまNo３のお礼に入れましたが半角で上手くいきました。
お手数をお掛けしました。
有難うございました。

回答No.3

shishishishi

> ActiveSheet.PasteSpecial Format:=Text
> でやってみましたが、やはりセルが結合されてHPの色が張り付きます。

Format:=Text ではなくFormat:="テキスト"でやってみてください。

お礼

時間がたってから済みません。
再度やってみましたら、"テキスト"を半角カナにすると成功しました。
有難うございました。m(_ _)m

補足

Sub test()
Range("A6").Select
ActiveSheet.PasteSpecial Format:="テキスト"
End Sub

だと「WorksheetクラスのPasteSpecialメソッドが失敗しました」と出ます。

回答No.2

0shiete

Range("A6").PasteSpecial Paste:=xlPasteValues

でしょうか？試していません<(__)>

補足

エラー1004と出ました。
クリップボードに入ってるのはHPからの文字列なのでxlPasteValuesではダメなのでしょうか？

回答No.1

HageoyaZ

真ん中の一行を
ActiveSheet.PasteSpecial Format:="テキスト"
としたらいかがでしょうか？

お礼

連絡が遅くなりました。
Format:="テキスト" だとエラーだったので、textにしたらHPの色が付いたりしたんですが、意外と半角カナの"テキスト"を使うと旨くいきました。
有難うございました。　m(_ _)m

補足

Range("A6").Select
ActiveSheet.PasteSpecial Format:=Text
でやってみましたが、やはりセルが結合されてHPの色が張り付きます。