現状
(ケース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組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
(マクロ)コピー貼付のマクロで、クリップボードに何も貼付ていな時の実行をエラーにしない為には
Visual Basic(VBA)
-
Windows 11 Pro での、VBAのCode書き換えで、1点お教え願います。
Visual Basic(VBA)
-
select case について
Visual Basic(VBA)
-
-
4
自動VBAマクロって会社の中で禁止なんですか?
Visual Basic(VBA)
-
5
環境依存文字?をEnumで定義したい
Visual Basic(VBA)
-
6
VBA 同じ名前のオブジェクトを選択したいのですが
Visual Basic(VBA)
-
7
スコープ解決演算子を解読できるサイトを教えて!
その他(プログラミング・Web制作)
-
8
VisualStudio2022をマクロみたいに自動プログラムを作成する方法を教えてください。
Visual Basic(VBA)
-
9
一つのフォルダーに50個のエクセルファイルがあります。 各ファイルにはAとBのシートがあります。 5
Visual Basic(VBA)
-
10
VBA 何かしら文字が入っていたら
Visual Basic(VBA)
-
11
マクロの修正方法の質問です。
Visual Basic(VBA)
-
12
エクセル 数値の10を10月と認識するにはどうすればいいですが?
Excel(エクセル)
-
13
VBA とびとびの列を結合させる
Visual Basic(VBA)
-
14
VBEを開くのにコマンド名が「Visual Basic」な理由はなぜ?
Visual Basic(VBA)
-
15
Excel VBAマクロをマスターするのに、どれ位時間掛かりますか?
Visual Basic(VBA)
-
16
ExcelのVBAのことで質問です。 以下のコードを入れ、ボタンを押せば作動させると写真のように画面
Visual Basic(VBA)
-
17
excelのVBAについて、以下のコードに追加をお願いいたします。
Visual Basic(VBA)
-
18
Cellsのコードが打てません
Visual Basic(VBA)
-
19
郵便番号検索APIにてget ElementByTagNameでうまくを取得できない
Visual Basic(VBA)
-
20
Outlookの「受信日時」「件名」「本文」などをVBAを使ってExcelに転記したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
エクセルVBAが途中で止まります
-
(マクロ)データをAブックからB...
-
別ブックをダイアログボックス...
-
vbaでvbaProjectのパスワード解...
-
ワイルドカード「*」を使うとう...
-
【Excel VBA】書き込み先ブック...
-
VBA 複数のエクセルから一つの...
-
VBA シート名が一致した場合の...
-
VBA 実行時エラー 2147024893
-
vbaで他のブックに転記したい。...
-
VBA 別ブックからコピペしたい...
-
教えて下さい!VBAで複数Excel...
-
フォルダ内の全てのファイルに...
-
【ExcelVBA】インデックスが有...
-
VBAで別のブックにシートをコピ...
-
VBAで複数のブックを開かずに処...
-
【VBA】全シートの計算式を全て...
-
VBA コードを実行すると画面が...
-
VBAで別ブックのシートを指定し...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
エクセルVBAが途中で止まります
-
別ブックをダイアログボックス...
-
ワイルドカード「*」を使うとう...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
VBS Bookを閉じるコード
-
【ExcelVBA】インデックスが有...
-
VBA コードを実行すると画面が...
-
【ExcelVBA】zip圧縮されたCSV...
-
vbaでvbaProjectのパスワード解...
-
VBAで別ブックのシートを指定し...
-
ExcelのVBAです。フォルダ内の...
-
vbaで他のブックに転記したい。...
-
フォルダ内の全てのファイルに...
-
VBAで複数のブックを開かずに処...
-
VBSでExcelのオープン確認
-
VBA 実行時エラー 2147024893
-
【Excel VBA】書き込み先ブック...
-
VBA シート名が一致した場合の...
おすすめ情報