[[20210221200244]]　『あるシートから、メインのBookのシートへコピー＆』（けろりん）　ページの最後に飛ぶ

『あるシートから、メインのBookのシートへコピー＆貼り付けする方法』（けろりん）

サマリ.xlsmという、月ごとのデータをまとめたものがあります。

｜サマリ｜1月｜2月｜・・・｜11月｜12月｜　　←シートです

上記サマリとは別にある、月ごとの1月.csv、2月.csv・・・というコピー元データを、
サマリの各月のシートへデータ貼り付け（値や書式は不要）したいのですが、
上手く書けずにおります。

Sub test()

With Workbooks.Open("\\1月.csv")

    .Worksheets("Sheet1").Cells.Copy
    Workbooks("\\サマリ.xlsm").Worksheets("1月").Range("A1").PasteSpecial _
   xlPasteAll
    Application.CutCopyMode = False
    .Close False

End With

End Sub

上記が、現在の状態です。
これで1月分のコピー＆ペーストが出来れば、これをあと11回繰り返そうと思っていましたが、
完全に素人の発想かと思いますので、併せてアドバイス頂けますと幸いです。

＜使用 Excel：Office365、使用 OS：Windows10 ＞

各々のcsvはどういう構成ですか？（何行何列でどの列どの行のデータをコピーしたいのか）
（半可通） 2021/02/21(日) 20:20

半可通様

各々のcsvは、
A列～O列までカラムがあり、5,000行ほどぎっしり数値が入っています。

CurrentRegionもしくはCellsSelectになるかと思います。
（シート全体をコピーするイメージ）

よろしくお願いいたします。
（けろりん） 2021/02/21(日) 21:20

.Worksheets("Sheet1")
を
.Worksheets(1)
に直せば動くように思います。

csvのデータ取り込みはいろいろな方法があってこだわりだすときりがありません。
遅くて気になる、とか、思い通りのデータが取り込めない、ということでもなければ
この方法で良いのではないかと思います。

（半可通） 2021/02/21(日) 22:16

半可通様

早速のご回答ありがとうございます。

コピーの動作を
.Worksheets(1).Cells.Copy　へ変更しましたが、"プロパティの使い方が不正です"というエラーになってしまいます。

エラーの際、貼り付け動作にある、
xlPasteAll　の部分に色がついている状態なので、こちらに問題があるのでしょうか...。
（けろりん） 2021/02/22(月) 08:09

■１
無理にとはいいませんが、フォルダパスなどバレてマズイ部分は適宜変えていただくとして、現在のコード全体を示していただけませんか？

 "プロパティの使い方が不正です"

↑は実行時エラーではなくコンパイルエラーだとおもうので、構文自体がおかしいのだと思います。

■２
csvなら外部データの取り込みというアプローチもあろうかとおもいます。
興味があれば、今のアプローチがひと段落したあと研究してみてください。

   Sub さんぷる2()
      Dim i As Long

      For i = 1 To 12
         With Worksheets(i & "月").QueryTables.Add(Connection:="TEXT;C:\hoge\" & i & "月.csv", Destination:=Worksheets(i & "月").Range("A1"))
            .TextFileCommaDelimiter = True      ' カンマ区切り
            .RefreshStyle = xlOverwriteCells    ' セルに上書き
            .TextFileStartRow = 1               'データの読込開始行をセット
            .Refresh                            ' データを表示
            .Delete                             ' CSV との接続を解除
         End With
      Next i
   End Sub

（もこな２） 2021/02/23(火) 13:02

コメント返信：

[ 一覧(最新更新順) ]

[[20210221200244]] 『あるシートから、メインのBookのシートへコピー＆』（けろりん） ページの最後に飛ぶ

[[20210221200244]]　『あるシートから、メインのBookのシートへコピー＆』（けろりん）　ページの最後に飛ぶ