|
はじめまして。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
|
|