A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
実際の業務での運用の場合ですが
準備
1、BookA の別シート(仮に 設定と云う名前)を準備
2、BookB へのパスとファイル名を入れておく
仮に
A B
ファイルへのパス Z:\
ファイル名 BookB.Xlsx
この方が、後々、変更があった場合に、マクロを修正する事がなく使えます。
BookAのマクロ
①Book BのSheet2を開く
③列 D、E、F、Gの最終空セルに、BookAの所定のセルの値を入れる。
④データをセーブし、Book Bを閉じる
この様にした方が良いと思います。
Workbooks.Open Sheets("設定").Range("B2").Value & "\" & Sheets("設定").Rnage("B3").Value
Sheets("Sheets2").Activate
Gyou=Range("D" & Rows.Count).End(Xlup).Row+1
Range("D" & Gyou).Value=Thisworkbook.Sheets("Sheets2").Range(所定のセル1).Value
Range("E" & Gyou).Value=Thisworkbook.Sheets("Sheets2").Range(所定のセル2).Value
Range("F" & Gyou).Value=Thisworkbook.Sheets("Sheets2").Range(所定のセル3).Value
Range("G" & Gyou).Value=Thisworkbook.Sheets("Sheets2").Range(所定のセル4).Value
ActiveBook.Save
ActiveBook.Close
の様な流れ
実際には、
マクロを重複して操作できない様に
コピー元のデータをクリアして、BookAも上書き保存してしまう。
再度、マクロを実行しても何も起こらない様にする
既に、BookBを誰かが開いていた場合
BookBが読み取り専用で開いてしまったら、メッセージを出して
何もせずに終了
ミスがあって、BookBを修正する時のルール
などと発展させていきます。
No.1
- 回答日時:
こんばんは!
>Book A のSheet 1上の4セルのコピー
が具体的にどのセルかが判らないので、仮にA2~D2セルとしています。
↓のコードをBookAの標準モジュールにしてみてください。
Sub Sample1()
Dim wB As Workbook, wS As Worksheet
Dim myPath As String, fN As String
myPath = "ファイル保存場所のパス" & "\"
fN = "B.xlsx"
Workbooks.Open myPath & fN
Set wB = Workbooks(fN)
Set wS = wB.Worksheets("Sheet2")
ThisWorkbook.Worksheets("Sheet1").Range("A2").Resize(, 4).Copy '←Sheet1のA2~D2セルをコピー&ペースト★//
With wS.Cells(Rows.Count, "D").End(xlUp).Offset(1)
.PasteSpecial Paste:=xlPasteValues
.Select
End With
wB.Save
wB.Close
End Sub
※ こんな流れになると思います。m(_ _)m
初めまして、
GWの貴重な時間に回答いただき、誠に有難うございました。
回答いただきました内容を検討し、実際のソフトに対応したコーヂングを行いたいと思います。
重ねてお礼申し上げます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(プログラミング・Web制作) pythonでクラスで複数のメソッドを利用する方法 2 2022/04/15 04:17
- その他(プログラミング・Web制作) python文字化けエラーが発生しているようです 3 2022/04/13 19:41
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) Excelにて、行の最後のセルの値をコピーして別sheetに張りつけるVBAコードをご教授願います 3 2022/11/20 14:35
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Excel(エクセル) 同じExcelのBOOK内で 1枚目のシートのA1のセルにデータを 入れると2枚目のシートのC1のセ 1 2022/10/25 09:40
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2023/03/12 12:16
- Excel(エクセル) エクセルで保存時に全部のシートの最終行をコピーして数値で貼り付けたい 3 2023/08/14 15:49
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
別シートの最終行に貼り付けするマクロを教えてください。 シートYのE3からE15までをコピー シート
Excel(エクセル)
-
VBA別シートの最終行の次行へ転記したい。
Visual Basic(VBA)
-
VBA別シートの最終行の下行へ貼り付けされるようにしたいです。
その他(Microsoft Office)
-
-
4
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
5
エクセル最終行の下に貼り付け
Excel(エクセル)
-
6
別のブック最終行最終列の次への転記
Excel(エクセル)
-
7
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
8
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
9
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
10
i=cells(Rows.Count, 1)とi=cells(Rows.Count, 2)の違い
Visual Basic(VBA)
-
11
ファイルを閉じたままの外部参照で最終行の行数取得
Visual Basic(VBA)
-
12
エクセルVBAで、値が入っている最終行の、右隣の値をコピーして、別のセルに貼り付けるコード
Excel(エクセル)
-
13
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
14
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
15
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
16
エクセルマクロで不特定なファイル名を使用するには
Excel(エクセル)
-
17
エクセル マクロ 貼り付け先が空白でない場合 1行下に貼りつける
Excel(エクセル)
-
18
WorkBooksをオープンさせずにシートにコピーしたい【EXCEL VBA】
Excel(エクセル)
-
19
マクロ最終行挿入
Excel(エクセル)
-
20
マクロ 新しいシートにデータをコピペしてシートの名前を変更したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
i=cells(Rows.Count, 1)とi=cel...
-
Excelのハイパーリンクにマクロ...
-
【Excel】指定したセルの名前で...
-
Excelで指定した日付から過去の...
-
DataGridViewのセル編集完了後...
-
【Excel VBA】指定行以降をクリ...
-
EXCELで変数をペーストしたい
-
Excel vbaで特定の文字以外が入...
-
【VBA】指定したセルと同じ値で...
-
特定行の色を変えたい(FlexGrid)
-
VBAでセルをクリックする回...
-
EXCELのVBA-フィルタ抽出後の...
-
スプレッドシートの数値列に対...
-
VBAの計算で@が出てしまう件
-
セル色なしの行一括削除
-
3桁または4桁の数値を時刻に...
-
”戻り値”が変化したときに、マ...
-
TODAY()で設定したセルの日付...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
【Excel VBA】指定行以降をクリ...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel】指定したセルの名前で...
-
Excelで指定した日付から過去の...
-
特定の文字を条件に行挿入とそ...
-
Excel VBA、 別ブックの最終行...
-
EXCELで変数をペーストしたい
-
Excelのプルダウンで2列分の情...
-
Excel vbaで特定の文字以外が入...
-
TODAY()で設定したセルの日付...
-
screenupdatingが機能しなくて...
-
DataGridViewの各セル幅を自由...
-
Sub 要具ライフ() ActiveSheet....
-
【EXCEL VBA】Range("A:A").Fi...
-
VBAを使用した時間管理
-
VBAでセルをクリックする回...
-
セル色なしの行一括削除
-
エクセルVBAでコピーして順...
おすすめ情報