【やりたい事】
以下のコードをご覧ください。
コード説明です
ファイル名やシート名の場所が一切、変わらない場合に転記元ファイルのA1~C1のセルの値が
別フォルダの、book2へ最終行に転記されます。本マクロは動きます。
同マクロは転記先の名前が固定のファイルの場所ですが
今回は
転記先のファイル名が、毎回変わる場合のマクロを知りたいです。シート名は変わりません。
転記元のファイル名は変わりません。転記先のみ変わります。
転記先の、ファイルとシート名は、常に、以下の場所★にて取得します
ご存じの方、教えて下さい
【転記元ファイル・シート】
・ファイル名
C:\Users\2020\OneDrive\Shinji\マクロ\テストフォルダ1\転記元.xlsx
・シート名
転記元
【今現在の、固定の転記先ファイル・シート】
・ファイル名
C:\Users\2020\OneDrive\マクロ\テストフォルダ1\Book2.xlsx
・シート名
Sheet1
★【常に変更となる転記先ファイル・シート】
【転記元ファイル・シート】のA1セル
例C:\Users\2020\OneDrive\マクロ\テストフォルダ1\20240502Book2.xlsx
【転記元ファイル・シート】のB1セル
例Sheet1
【転記元ファイルのA1-B3セルの値をbook2セルのSheet1の最終行のA1-B3に転記するコード】
Sub 別ブックへ転記2()
Dim ws1 As Worksheet
Dim wb2 As Workbook
Dim ws2 As Worksheet
Dim maxrow2 As Long
Dim row2 As Long
Set ws1 = Worksheets("転記元")
Set wb2 = Workbooks.Open(ThisWorkbook.Path & "\" & "Book2.xlsx")
Set ws2 = wb2.Worksheets("Sheet1")
maxrow2 = ws2.Cells(Rows.Count, "A").End(xlUp).Row
row2 = maxrow2 + 1
ws2.Cells(row2, 1).Resize(1, 3).Value = ws1.Cells(1, 1).Resize(1, 3).Value
wb2.Save
MsgBox ("完了")
End Sub
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
Set wb2 = Workbooks.Open(ThisWorkbook.Path & "\" & "Book2.xlsx")
Set ws2 = wb2.Worksheets("Sheet1")
を
Set wb2 = Workbooks.Open(wb1.Range("A1").Value)
Set ws2 = wb2.Worksheets(wb1.Range("B1").Value)
とすればOKでしょう。
お返事ありがとうございます
動きませんでした
ちなみに、 wb1 の定義はする必要ありますでしょうか?
以下がWB1 の場所です。
転記元も先もどちらも開いている前提なので
定義は必要ないということでしょうか?
ご教授くださいませ
【ファイル名】
"C:\Users\2020\OneDrive\マクロ\転記元.xlsx"
【シート名】
Sheet1
No.2
- 回答日時:
Set wb2 = Workbooks.Open(ThisWorkbook.Path & "\" & "Book2.xlsx")
Set ws2 = wb2.Worksheets("Sheet1")
を
Set wb2 = Workbooks.Open(ws1.Range("A1").value)
Set ws2 = wb2.Worksheets(ws1.Range("B1").value)
にすれば良いかと思います。
(動作確認はしていません。期待した結果が得られない場合は、その旨、補足してください)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】【VBA】同じフォルダ内にあるエクセルのデータを転記したい【ブック1からブック2へ】 9 2023/08/10 07:51
- Excel(エクセル) 【マクロ】違うフォルダにあるファイルから、転記するには? 4 2023/09/26 19:49
- Excel(エクセル) 【マクロ】book1からbook2への適切な転記が出来ない件 2 2023/11/08 17:23
- Excel(エクセル) 【マクロ】セルの塗りつぶし色をbook1からbook2へ転記したい 4 2023/09/27 10:50
- Excel(エクセル) 【マクロ】転記ツール。転記先にデータがある場合、上書きするか消すか質問をして欲しい 2 2023/10/29 22:52
- Excel(エクセル) 3つのマクロを連続実行の中で、1つ目のマクロ要件を満たさなかったら、マクロ2・3を実行しない為には 1 2023/10/15 13:42
- Visual Basic(VBA) クリップボードに貼付している文字列が、マクロで別ブックへ転記すると、消えてしまう 1 2023/10/15 13:36
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) コードを直していただきたいです。 以下のコードはネットで拾ったものをほんの少しいじった物なのですが、 7 2024/01/10 22:50
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
【マクロ】ファイル名の変更について
Excel(エクセル)
-
時間によってファイル名が変わるエクセルをほかのエクセルでデータを参照する方法
Excel(エクセル)
-
【関数】スペースがいくつ入った後の文字列を取り出したい
Excel(エクセル)
-
-
4
VBA Private Sub Worksheet_Changeで
Excel(エクセル)
-
5
【マクロ】シート名を取得する為には
Excel(エクセル)
-
6
エクセルで 例えば 伊藤と名前のついたファイルを検索する方法を教えてください
Excel(エクセル)
-
7
Excelで、決まった行を繰り返しコピーする
Excel(エクセル)
-
8
VBA listBoxについて
Visual Basic(VBA)
-
9
FormulaR1C1の 相対参照式のコピー
Excel(エクセル)
-
10
Excelにてある膨大なデータを管理しています。 そこで、特定の市町村にのみ色を付けたいです。 Ex
Excel(エクセル)
-
11
西暦や和暦の表示をyyyymmdd表示へ変更をしたい
Excel(エクセル)
-
12
自動入力で今月はMONTH(TODAY())で良いのですが、翌月はどのようにすれば良いでしょうか。
Excel(エクセル)
-
13
エクセル関数に詳しい方教えてください
Excel(エクセル)
-
14
エクセルの条件付き書式について教えてください
Excel(エクセル)
-
15
[関数得意な方]教えて下さい・・[困ってます]
Excel(エクセル)
-
16
エクセルで指定した日付、店舗の数値を自動で反映させる。
Excel(エクセル)
-
17
VBA listBoxから
Visual Basic(VBA)
-
18
【マクロ】フォルダからエクセルファイルの名前を取出すためには
Excel(エクセル)
-
19
VBAの計算で@が出てしまう件
Visual Basic(VBA)
-
20
エクセルで「-0.0」と表示させる方法 Excel2016で質問です。 統計で対前年度比を求める際、
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【マクロ】毎回、ファイル名が...
-
シートをコピーして シートに...
-
エクセルのマクロで指定条件一...
-
エクセルの複数シートの保護を...
-
条件に応じて特定の行を非表示...
-
EXCEL:同じセルへどんどん足し...
-
エクセルVBAでパスの¥マークに...
-
エクセルでファイルを開いたと...
-
シートの保護のあとセルの列、...
-
EXCELで1ヶ月分の連続した日付...
-
VBAでシートコピー後、シート名...
-
Excelで同じシートのコピーを一...
-
複数シートの特定の位置に連番...
-
エクセル 計算式も入っていない...
-
別シート参照のセルをシート毎...
-
Excel、同じフォルダ内のExcel...
-
Excel2007で、太字にした行のみ...
-
前の(左隣の)シートを連続参...
-
Excelのシートを、まとめて表示...
-
エクセルで複数設定したハイパーリンク先...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのマクロで指定条件一...
-
シートをコピーして シートに...
-
Excelでシート名と最終更新日を...
-
エクセルのマクロ設定について...
-
Excel マクロ 他ブックのシート...
-
Excel シートを自動作成、セル...
-
シートをコピー、シート名を変更
-
Excel で選択しているセルの行...
-
Excel VBA 検索して該当行を抽出
-
エクセル マクロの作り方
-
新しいマクロの記録でコピーし...
-
EXCELVBA データを自動で別シー...
-
Excelで同じシートのコピーを一...
-
エクセルの複数シートの保護を...
-
エクセルVBAでパスの¥マークに...
-
条件に応じて特定の行を非表示...
-
前の(左隣の)シートを連続参...
-
Excelで金銭出納帳。繰越残高を...
-
EXCEL:同じセルへどんどん足し...
-
EXCELで1ヶ月分の連続した日付...
おすすめ情報