現状
(ケース1)
ネット上にてホームページの文字列をコピー(ハンド作業)
⇒①マクロ実行(ブックAに文字列が貼付)
⇒②マクロ実行データの一部をブック2へ転記
⇒クリップボードから、ネット上にてコピーしたホームページの文字列が消えている
(ケース2)
ネット上にてホームページの文字列をコピー(ハンド作業)
⇒①マクロ実行(ブックAに文字列が貼付)
⇒ブック1に貼付された、データをハンドでデリートする
⇒クリップボードから、コピーした文字列は消えない
【改善したい事】
ケース2のように、クリップボードからコピーした文字列が
消えないようにしたい。そのまま残しておきたいです。
ご存じの方、宜しくお願いします
【①ブックAへデータを貼付するコード】
Sub 他のExcelへユニコード書式にて貼付_MSGBOXあり()
Dim CB As Variant
CB = Application.ClipboardFormats
If CB(1) = True Then
MsgBox "クリップボードにコピーされていません", vbOKOnly + vbCritical, "A部門"
Exit Sub
End If
Worksheets("転記元").Range("A10").Select
Worksheets("転記元").PasteSpecial Format:="Unicode テキスト"
End Sub
【②ブック2へデータを貼付】
Sub 別ブックへ転記()
Dim ws1 As Worksheet
Dim wb2 As Workbook
Dim ws2 As Worksheet
Dim maxrow2 As Long
Dim row2 As Long
Dim i As Integer
Set ws1 = Worksheets("転記元")
For i = 1 To Workbooks.Count
If Workbooks(i).Name = "book2.xlsx" Then '転記先のブック。
Set wb2 = Workbooks(i)
End If
Next
Set ws2 = wb2.Worksheets("sheet1") '転記先シート
maxrow2 = ws2.Cells(Rows.Count, "B").End(xlUp).Row '転記先のブックB列
row2 = maxrow2 + 1
ws2.Cells(row2, 2).Resize(1, 8).Value = ws1.Range("A1").Resize(1, 8).Value '転記元から転記先へ7セル分を転記.a1から7セル分。天気先。1列目から。
ws1.Range("I1").Copy ws2.Cells(row2, 10).Resize(1, 1)
wb2.Save '転記先のブックを上書き
End Sub
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
こんにちは
本質的に何をなさりたいのかよくわかりませんけれど・・
クリップボードを触りたくないのなら、コピーやペーストを行わないようにすれば良いでしょう。
先日ご紹介しておいたサイトにもあるように、DataObject を経由すればクリップボードには直接の影響を与えなくなると思います。
https://oshiete.goo.ne.jp/qa/13624744.html
もしも必要なら、再セットすることも可能でしょう。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 3つのマクロを連続実行の中で、1つ目のマクロ要件を満たさなかったら、マクロ2・3を実行しない為には 1 2023/10/15 13:42
- Excel(エクセル) VBA Scripting.Dictionary 連想配列 複数参照する方法 2 2021/12/17 01:52
- Excel(エクセル) 【マクロ】セルの塗りつぶし色をbook1からbook2へ転記したい 4 2023/09/27 10:50
- Visual Basic(VBA) 転記先VBA 一致しているセルがコピーされない 5 2021/11/15 17:23
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Excel(エクセル) 【マクロ】違うフォルダにあるファイルから、転記するには? 4 2023/09/26 19:49
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Excel(エクセル) 【マクロ】【VBA】同じフォルダ内にあるエクセルのデータを転記したい【ブック1からブック2へ】 9 2023/08/10 07:51
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
環境依存文字?をEnumで定義したい
Visual Basic(VBA)
-
VBA 何かしら文字が入っていたら
Visual Basic(VBA)
-
(マクロ)コピー貼付のマクロで、クリップボードに何も貼付ていな時の実行をエラーにしない為には
Visual Basic(VBA)
-
-
4
VBA とびとびの列を結合させる
Visual Basic(VBA)
-
5
VBEを開くのにコマンド名が「Visual Basic」な理由はなぜ?
Visual Basic(VBA)
-
6
郵便番号検索APIにてget ElementByTagNameでうまくを取得できない
Visual Basic(VBA)
-
7
vba userFormのSubを標準モジュールから呼び出す方法を教えてください
Visual Basic(VBA)
-
8
リストボックス複数選択抽出方法
Visual Basic(VBA)
-
9
エクセル VBAでの転記の方法について
Visual Basic(VBA)
-
10
マクロの修正方法の質問です。
Visual Basic(VBA)
-
11
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
12
VB.NETでフォームアクティブのイベントハンドラが起動されない
Visual Basic(VBA)
-
13
Excel VBAマクロをマスターするのに、どれ位時間掛かりますか?
Visual Basic(VBA)
-
14
VBA コード
Visual Basic(VBA)
-
15
VBscriptについて
その他(プログラミング・Web制作)
-
16
コードを直していただきたいです。 以下のコードはネットで拾ったものをほんの少しいじった物なのですが、
Visual Basic(VBA)
-
17
ExcelのVBAのことで質問です。 以下のコードを入れ、ボタンを押せば作動させると写真のように画面
Visual Basic(VBA)
-
18
引数に数値、文字列の混在
Visual Basic(VBA)
-
19
Excelのマクロ(VBA)は、同じソースで、WindowsとMacで動きますか?
Visual Basic(VBA)
-
20
excelのVBAについて、以下のコードに追加をお願いいたします。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
Excelのマクロについて教えてく...
-
エクセルVBAで書式と値の貼付け...
-
ワイルドカード「*」を使うとう...
-
エクセルVBAが途中で止まります
-
【VBA】全シートの計算式を全て...
-
ACCESSVBA からExcelの他ブック...
-
シートをコピーする下記記述で...
-
別ブックをダイアログボックス...
-
VBA 別ブックからコピペしたい...
-
VBSでExcelのオープン確認
-
Excel にて、 リストボックスの...
-
VBAの参照先のファイル名をセル...
-
【Excel VBA】書き込み先ブック...
-
エクセルのマクロを使ってメー...
-
【ExcelVBA】インデックスが有...
-
Excelファイルを開くとき、読み...
-
拡張メタファイルにて貼り付け
-
ユーザーフォームの切り替えに...
-
VBAで別ブックのシートを指定し...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
エクセルVBAが途中で止まります
-
ワイルドカード「*」を使うとう...
-
別ブックをダイアログボックス...
-
(マクロ)データをAブックからB...
-
VBS Bookを閉じるコード
-
VBA 別ブックからコピペしたい...
-
VBA 複数のエクセルから一つの...
-
VBA シート名が一致した場合の...
-
【ExcelVBA】インデックスが有...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
vbaでvbaProjectのパスワード解...
-
VBAで別ブックのシートを指定し...
-
【ExcelVBA】zip圧縮されたCSV...
-
VBA コードを実行すると画面が...
-
【VBA】全シートの計算式を全て...
-
複数のエクセルブックをひとつ...
-
VBA 実行時エラー 2147024893
-
ExcelのVBAです。フォルダ内の...
おすすめ情報