
No.2ベストアンサー
- 回答日時:
クリップボードデータの貼付けと言う事でしょうか?
それでしたら以下のような感じではいかがでしょうか?
--------------------------------------------------------------------------------
Sub クリップボードデータ貼付け()
Dim クリップボード As New DataObject
クリップボード.GetFromClipboard
Range("E8").Value = クリップボード.GetText
End Sub
--------------------------------------------------------------------------------
※ 事前に「Microsoft Forms 2.0 Object Library」を参照設定しておいてください。(参照設定の方法が判らなければ、ブックに「UserForm」を挿入して下さい。自動で参照設定されます。もちろんすぐ「UserForm」を削除してもかまいません)
GooUserラック様
夜間にも関わらず、早急に回答いただきありがとうございます。
こちらの内容で実現可能となようです。
後ほど組み込んで確認いたします。
丁寧にご説明いただきありがとうございます。
No.3
- 回答日時:
こんにちは。
>VBAでWebスクレイピングした結果を、Excelに貼り付けようとしています。
一例を書いて差し上げてもよいのですが、Webスクレイピングでは、そのような操作はないはずですが……。どちらかというと、IE の ExecWb コマンドのようです。
[Ctl+A]-[Ctl+C]
ご質問の内容は、私にはかなり難しいものだと思いました。
ああしたらよい、こうしたらよいとは思うものの、かなりの難問です。
全画面をシートに貼り付ける前に、クリップボードの情報を結合するとなると、一旦、テキスト化して、そのテキストを正規表現検索で改行コードを書き換えて、再び、テキストバッファからクリップボードに戻すか、そのまま貼り付けなくてはなりません。そういうコードを書くことは可能ですが、全体のコードが見えていないままでは、それは提示しにくいのです。
貼り付けられたものを、加工するスタイルではいけないのでしょうか。
これは、一旦貼り付けた後に、マージ(結合)するということです。
'//
Sub TestHeightMerging()
Dim c As Range
Dim Rng As Range
If TypeName(Selection) = "Range" Then
Set Rng = Selection.Cells
If Rng.Count > 1 Then
For Each c In Rng
If c.Value <> "" Then
buf = buf & vbLf & c.Value
End If
Next
End If
End If
Rng.ClearContents
Rng.Cells(1).VerticalAlignment = xlTop
Rng.Cells(1).Value = Mid(buf, 2)
End Sub
これを、ショートカットにすれば、良いと思います。
そうでなければ、最初のWebスクレイピング(クローリング)を、書き換えたほうが速いと思います。なぜなら、Webデータの innerHTML/outerHTMLには、もともと区分けのコードが書いてあるのですから。
WindFaller様
VBAもHTMLもあまり知識が無いもので、要領を得ず申し訳ないです。
Webで検索した結果から条件に一致したものを書き出したいのですが、
50件くらいを目視で実施すると時間がかかってしまい、自動化できないかと検討しています。
私の考えは、1個検索した結果を1セルに貼り付けて、
それを50回繰り返そうというものでした。(取り合えず全部コピーして、情報収集は後から考える。)
GetFromClipboardで1セルに入力する事は出来ました。
ですが、コピー元が何文字かもわからないので、
直接1セルに貼り付けるのは問題があるかと後から気付きました。
普通にExcelに貼り付けて、必要な情報だけコピーする事を繰り返す方が効率的だと気付けました。
マージ(結合)について参考にさせていただきます。
丁寧にご説明いただきありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
Excel VBAで改行を含めたセルのコピー
Excel(エクセル)
-
貼り付けで複数セルに貼り付けたい
Excel(エクセル)
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
-
4
エクセルVBAで、複数セルのデータをひとつのセルに改行してまとめたいのですか・・・
Excel(エクセル)
-
5
【VBA】エクセルで最後の不要な改行コードを削除するコードについて
Visual Basic(VBA)
-
6
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
7
ユーザーフォームをホイールでスクロールする方法(Excel2000VBA)
Excel(エクセル)
-
8
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
9
VBAでの SendKeysの変数指定方法
Excel(エクセル)
-
10
VBAで重複するデータがあれば1個だけ残して他の重複セルを"(空白)にしたいのですが
Excel(エクセル)
-
11
【VBA】エクセルで値のみクリップボードにコピーするコードについて(貼り付け時の空白削除)
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの文字数列関数と競馬...
-
エクセルでフィルターした値を...
-
表計算ソフトでの様式の呼称
-
エクセルシートの見出しの文字...
-
エクセルに写真が貼れない(フ...
-
【マクロ】実行時エラー '424':...
-
【画像あり】【関数】指定した...
-
Office2021のエクセルで米国株...
-
【関数】3つのセルの中で最新...
-
LibreOffice Clalc(またはエク...
-
Excelで4択問題を作成したい
-
【画像あり】オートフィルター...
-
空白のはずがSUBTOTAL関数でカ...
-
エクセルのVBAで集計をしたい
-
Excelに貼ったXのURLのリンク...
-
エクセルのライセンスが分かり...
-
【マクロ】excelファイルを開く...
-
エクセルの複雑なシフト表から...
-
エクセルのリストについて
-
【関数】=EXACT(a1,b1) a1とb1...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【マクロ】実行時エラー '424':...
-
エクセルのVBAで集計をしたい
-
Office2021のエクセルで米国株...
-
【画像あり】オートフィルター...
-
vba テキストボックスとリフト...
-
他のシートの検索
-
【マクロ】【相談】Excelブック...
-
【マクロ】【配列】3つのシー...
-
【マクロ】元データと同じお客...
-
【マクロ】数式を入力したい。...
-
【マクロ】左のブックと右のブ...
-
エクセルの関数について
-
エクセルのリストについて
-
【マクロ】変数に入れるコード...
-
エクセルシートの見出しの文字...
-
【マクロ】excelファイルを開く...
-
【関数】3つのセルの中で最新...
-
エクセルの複雑なシフト表から...
-
【マクロ】【画像あり】❶ブック...
-
LibreOffice Clalc(またはエク...
おすすめ情報
コピー元のデータは、Excel以外からコピーします。
VBAでWebスクレイピングした結果を、Excelに貼り付けようとしています。
その為、コピー内容はブラウザ画面で、[Ctl+A]-[Ctl+C]した状態とお考え下さい。