Excel VBA質問箱 IV

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

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


46672 / 76732 ←次へ | 前へ→

【35028】Webの検索窓などのデータを含めてテキス...
質問  Dai  - 06/2/19(日) 16:05 -

引用なし
パスワード
   はじめまして。Daiです。
よろしくお願いします。

WebのページをExcelのWorksheetsにテキスト形式で貼り付けて
データを利用しているのですが、
不具合がありまして、みなさんのお知恵を拝借したいです。

下のマクロを貼り付け用のsheetに作成し、
1.Web画面を全て選択してクリップボードにコピー
2.貼り付けsheetのA列をダブルクリック
3.テキスト形式でデータが貼り付く
この仕様で利用していてソコソコ上手くいっていたのですが、
文の途中に入力欄がある場合、
その中身のデータがテキストで貼り付いてないことがわかりました。
Formatを"html"にすると入力枠と共に貼り付きますので
クリップボードのデータとしてはあるようです。

例としては、
こちらのサイトの"Microsoft Office の使い方に困ったら・・・"の後にある
入力欄のデータも一緒にテキスト形式で貼り付くようにするには、
どう改版したら良いのでしょうか?


以下現在のマクロ

'Sheetに対するダブルクリックの設定
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,Cancel As Boolean)
  
  'ダブルクリックした場所が1列目(A列)ならば実行
  If Target.Column = 1 Then
    'データが残ってないかチェック
    If WorksheetFunction.CountA(ActiveSheet.Range("A:A")) > 0 Then
    MsgBox "データが既にあります。確認してください。"
    
    Else
    
    'テキスト形式でクリップボードのデータを貼り付け
     ActiveSheet.PasteSpecial Format:="テキスト",Link:=False,DisplayAsIcon:=False
  
    End If
  End If
  
End Sub
9 hits

【35028】Webの検索窓などのデータを含めてテキス... Dai 06/2/19(日) 16:05 質問
【35029】Re:Webの検索窓などのデータを含めてテキス... かみちゃん 06/2/19(日) 16:17 発言
【35034】Re:Webの検索窓などのデータを含めてテキ... Dai 06/2/19(日) 17:48 発言
【35036】Re:Webの検索窓などのデータを含めてテキ... Kein 06/2/19(日) 18:46 発言
【35051】Re:Webの検索窓などのデータを含めてテキ... Dai 06/2/20(月) 13:10 発言
【35060】Re:Webの検索窓などのデータを含めてテキ... Kein 06/2/20(月) 15:19 回答
【35077】Re:Webの検索窓などのデータを含めてテキ... Dai 06/2/21(火) 8:23 お礼
【35178】Re:Webの検索窓などのデータを含めてテキ... Dai 06/2/23(木) 10:06 お礼
【35188】Re:Webの検索窓などのデータを含めてテキ... Kein 06/2/23(木) 14:11 発言
【35192】Re:Webの検索窓などのデータを含めてテキ... Dai 06/2/23(木) 14:50 発言
【35194】Re:Webの検索窓などのデータを含めてテキ... Kein 06/2/23(木) 16:01 発言

46672 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free