現状
(ケース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も見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
(マクロ)コピー貼付のマクロで、クリップボードに何も貼付ていな時の実行をエラーにしない為には
Visual Basic(VBA)
-
Windows 11 Pro での、VBAのCode書き換えで、1点お教え願います。
Visual Basic(VBA)
-
Vba ユーザ定義関数について教えてください
Visual Basic(VBA)
-
-
4
xmlドキュメントから別拡張子で保存したい
Visual Basic(VBA)
-
5
select case について
Visual Basic(VBA)
-
6
VB.NETでVBスクリプトを作るにはどうしたらいいですか?
Visual Basic(VBA)
-
7
VB.Netでファイル圧縮する方法は何ですか?
Visual Basic(VBA)
-
8
自動VBAマクロって会社の中で禁止なんですか?
Visual Basic(VBA)
-
9
環境依存文字?をEnumで定義したい
Visual Basic(VBA)
-
10
wordのマクロで思うように行きません(ファイル削除ができない)
Visual Basic(VBA)
-
11
ノートPCでExcelを一部見せない状態で外部モニターに出力したい
Excel(エクセル)
-
12
Vba Cells.Findについて教えてください
Visual Basic(VBA)
-
13
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
14
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
15
スコープ解決演算子を解読できるサイトを教えて!
その他(プログラミング・Web制作)
-
16
VBA 同じ名前のオブジェクトを選択したいのですが
Visual Basic(VBA)
-
17
VisualStudio2022をマクロみたいに自動プログラムを作成する方法を教えてください。
Visual Basic(VBA)
-
18
一つのフォルダーに50個のエクセルファイルがあります。 各ファイルにはAとBのシートがあります。 5
Visual Basic(VBA)
-
19
VBA 何かしら文字が入っていたら
Visual Basic(VBA)
-
20
マクロの修正方法の質問です。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
【ExcelVBA】zip圧縮されたCSV...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
ワイルドカード「*」を使うとう...
-
【困っています2】VBA 追加処...
-
VBA シート名が一致した場合の...
-
EXCEL VBA 単語置き換え につい...
-
ExcelのVBAです。フォルダ内の...
-
エクセル VBA 他シートの行を選...
-
エクセルVBAで書式と値の貼付け...
-
VBA 別ブックからコピペしたい...
-
VBS Bookを閉じるコード
-
マクロで最終行を取得したい
-
【前回の続き続きです、ご教示...
-
クリップボードに貼付している...
-
Excel-VBAでのファイルの開き方
-
VBAで別ブックのシートを指定し...
-
【マクロ】違うフォルダにある...
-
VBSでExcelのオープン確認
マンスリーランキングこのカテゴリの人気マンスリー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 シート名が一致した場合の...
おすすめ情報