【やりたい事】
1違うフォルダにあるbook1から7つのセル項目をbook2へ転記したい。
book1の保管場所↓
C:\Users\user\Desktop\新しいフォルダー
book2の保管場所↓
C:\Users\user\Desktop\新しいフォルダー\リスト
2以下コードは、同じフォルダ内にある、マクロでbook2を開き、転記します。
⇒book2は既に開いている前提に変更したいです
なお、同じフォルダ内からの転記は以下のコードのとおりで動きます
よろしくお願いします
【コード】※本サイトにてご指導いただきまして作りました。
Sub 別ブックへ転記()
Dim ws1 As Worksheet
Dim wb2 As Workbook
Dim ws2 As Worksheet
Dim maxrow2 As Long
Dim row2 As Long
Set ws1 = Worksheets("Sheet1") '転記元シート。開いているシート。
Set wb2 = Workbooks.Open(ThisWorkbook.Path & "\" & "Book2.xlsx") '転記先のブック。
Set ws2 = wb2.Worksheets("Sheet1") '転記先のブック。シート
maxrow2 = ws2.Cells(Rows.Count, "I").End(xlUp).Row '転記先のブックi列
row2 = maxrow2 + 1
ws2.Cells(row2, 9).Resize(1, 7).Value = ws1.Cells(1, 0).Resize(1, 7).Value '転記元から転記先へ7セル分を転記
wb2.Save '転記先のブックを上書き
End Sub
No.3ベストアンサー
- 回答日時:
さらにNo.2です。
補足ですが、内容としては、
● 今開かれている全てのExcelブックのファイル名を1つずつ見て、book2.xlsxという名前のものを探す
● i番目にbook2.xlsxのファイルを見つけたら、それをwb2の指すExcelブックとなるように代入する
という操作を行っています。
ご参考までに。
ありがとうございます、今環境がないので、本日中に、試してみます
ちなみに、最初から、ブック2は、開いているという、意味であってますか???
No.2
- 回答日時:
No.1です。
book2の場所は全く別の場所ということですね。
であれば、
変更前
Set wb2 = Workbooks.Open(ThisWorkbook.Path & "\" & "Book2.xlsx") '転記先のブック。
変更後
Dim i As Integer
For i = 0 To Workbooks.Count
If Workbooks(i).Name = "book2.xlsx" Then
Set wb2 = Workbooks(i) '転記先のブック。
End If
Next
としてみてください。
なお、book2が開いていなかった場合のエラー処理は施していません。
よろしくお願いします。
ご指導ありがとうございます。
試したままなのですが、以下の部分がエラー(黄色く)なります
ファイル名 book2.xlsx を見直しましたが、間違いはありませんでした
なお、book2.xlsxファイルは開いたままになっています
ご指摘あれば、お願いします
If Workbooks(i).Name = "book2.xlsx" Then
No.1
- 回答日時:
book2は必ず、book1がある「新しいフォルダ」の直ぐ下の「リスト」フォルダにある、ということであれば、
Set wb2 = Workbooks.Open(ThisWorkbook.Path & "\" & "Book2.xlsx") '転記先のブック。
を、
Set wb2 = Workbooks.Open(ThisWorkbook.Path & "\リスト\" & "Book2.xlsx") '転記先のブック。
とするだけで大丈夫だと思います。
試してみてください。
ご指導ありがとうございます
試したところできましたが
大変恐縮なのですが、違うフォルダの場所は、すぐしたの階層ではなく
全く違う場所にあります
もしわかれば、さらに、ご指導お願いします
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】【VBA】同じフォルダ内にあるエクセルのデータを転記したい【ブック1からブック2へ】 9 2023/08/10 07:51
- Excel(エクセル) 【マクロ】セルの塗りつぶし色をbook1からbook2へ転記したい 4 2023/09/27 10:50
- Visual Basic(VBA) クリップボードに貼付している文字列が、マクロで別ブックへ転記すると、消えてしまう 1 2023/10/15 13:36
- Excel(エクセル) 3つのマクロを連続実行の中で、1つ目のマクロ要件を満たさなかったら、マクロ2・3を実行しない為には 1 2023/10/15 13:42
- Excel(エクセル) VBA Scripting.Dictionary 連想配列 複数参照する方法 2 2021/12/17 01:52
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Visual Basic(VBA) VBAコードが作動せず、どこに問題があるのか教えて下さい。 3 2023/06/13 13:20
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
- Visual Basic(VBA) 空のシートに関数を入れたい 2 2021/12/03 15:08
- Visual Basic(VBA) 転記先VBA 一致しているセルがコピーされない 5 2021/11/15 17:23
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
【マクロ】【VBA】別ブックへのデータ転記について
Excel(エクセル)
-
【マクロ】【VBA】同じフォルダ内にあるエクセルのデータを転記したい【ブック1からブック2へ】
Excel(エクセル)
-
【Excel VBA】ネットワーク上の共有フォルダにあるExcelを開く
Excel(エクセル)
-
-
4
エクセルマクロで「1」を「01」に変換したい
Excel(エクセル)
-
5
エクセルをPDFで保存し、ファイル名はA1セルを参照するVBAの記述を教えてください。
Excel(エクセル)
-
6
VBA別シートの最終行の次行へ転記したい。
Visual Basic(VBA)
-
7
【Excel】指定したセルの名前でPDFを保存する【VBA】
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのマクロについて教え...
-
Excelのマクロコードについて教...
-
(マクロ)データをAブックからB...
-
VBA 複数のエクセルから一つの...
-
VBSでExcelのオープン確認
-
VBA 実行時エラー 2147024893
-
Excelマクロ 該当する値の行番...
-
Excel VBAでRangeの指定をA1書...
-
エクセルVBAで読み取りパスワー...
-
配列に使うArry関数について
-
VBAで別ブックのシートを指定し...
-
拡張メタファイルにて貼り付け
-
VBA コードを実行すると画面が...
-
【マクロ】違うフォルダにある...
-
ワイルドカード「*」を使うとう...
-
VBA シートをコピーする際に Co...
-
エクセル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です。フォルダ内の...
おすすめ情報