![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
【やりたい事】
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.4
- 回答日時:
No.1〜No.3です。
仰るとおり、実行時にbook2は開いておかなければなりません。
以下のコードを 0から1へ変更したら、動きました。
ありがとうございます
For i = 0 To Workbooks.Count
変更後
For i = 1 To Workbooks.Count
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も見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
【マクロ】【VBA】別ブックへのデータ転記について
Excel(エクセル)
-
VBA 空白行に転記する
Visual Basic(VBA)
-
【マクロ】【VBA】同じフォルダ内にあるエクセルのデータを転記したい【ブック1からブック2へ】
Excel(エクセル)
-
-
4
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
5
【Excel VBA】ネットワーク上の共有フォルダにあるExcelを開く
Excel(エクセル)
-
6
エクセル 指定した文字列を含む列を削除するには
Excel(エクセル)
-
7
エクセルマクロで「1」を「01」に変換したい
Excel(エクセル)
-
8
ある条件を満たすセルに対応する行のセル内容をコピーして・・
Visual Basic(VBA)
-
9
エクセルをPDFで保存し、ファイル名はA1セルを参照するVBAの記述を教えてください。
Excel(エクセル)
-
10
VBA別シートの最終行の次行へ転記したい。
Visual Basic(VBA)
-
11
Excelに保存されているユーザー情報から別ブックの複数シートへ自動転記されるようにしたいです。 ユ
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
VBA シート名が一致した場合の...
-
エクセルVBAが途中で止まります
-
ワイルドカード「*」を使うとう...
-
エクセルのマクロについて教え...
-
別ブックをダイアログボックス...
-
【ExcelVBA】zip圧縮されたCSV...
-
エクセルのVBAコードについて教...
-
vbaでvbaProjectのパスワード解...
-
Excel VBA 指定したセル範囲の...
-
vbaで他のブックに転記したい。...
-
【Excel VBA】書き込み先ブック...
-
VBA コードを実行すると画面が...
-
【マクロ】違うフォルダにある...
-
エクセルマクロで、他ブックか...
-
エクセルVBAで書式と値の貼付け...
-
エクセルVBAでテキストボックス...
-
フォルダ内の全てのファイルに...
-
VBA 別ブックからコピペしたい...
-
VBA 特定のユーザーのみパス...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
エクセルVBAが途中で止まります
-
ワイルドカード「*」を使うとう...
-
別ブックをダイアログボックス...
-
VBAで別ブックのシートを指定し...
-
Excelのマクロについて教えてく...
-
VBA 別ブックからコピペしたい...
-
Excelのマクロについて教えてく...
-
vbaでvbaProjectのパスワード解...
-
VBA コードを実行すると画面が...
-
【マクロ】アクティブセルにブ...
-
Excelのマクロについて教えてく...
-
VBAで別のブックにシートをコピ...
-
VBS Bookを閉じるコード
-
Excelのマクロについて教えてく...
-
【ExcelVBA】zip圧縮されたCSV...
-
【ExcelVBA】インデックスが有...
-
ACCESSVBA からExcelの他ブック...
-
vbaで他のブックに転記したい。...
-
【マクロ】違うフォルダにある...
おすすめ情報