複数のエクセルファイルを１つのエクセルファイルのシートにコピーをマクロ

質問

複数のエクセルファイルを１つのエクセルファイルのシートにコピーをマクロで行いたい。

マイドキュメントのデーターというフォルダ内に
エクセルファイルＡ（シート名みかん）
エクセルファイルＢ（シート名りんご）
エクセルファイルＣ（シート名バナナ）
エクセルファイルＤ（シート名ぶどう）
エクセルファイルＥ（シート名いちご）

があります。

雛形は同じです。すべてＡ列～Ｆ列までデータが入っています。
行数はファイルによって違います。
また毎日自動で上書き更新され、毎日行数が変わります。

エクセルファイルＺがあります。シートが７個あります。
・変換
・集計
・みかん
・りんご
・バナナ
・ぶどう
・いちご

エクセルファイルＺを開きます。（各シートには昨日のデータが貼り付けてあります。）
マイドキュメントのデーターフォルダも開いておきます。

エクセルファイルＺにおいて「マクロの記録」を起動。

エクセルファイルＺの
【みかん】～【いちご】までの５シートを全データＤＥＬＥＴＥします。

開いてあるフォルダ「データー」の中からエクセルファイルＡを開きます。
（タスクバーにいます）
ファイルＡのシート【みかん】の全データ選択して
エクセルファイルＺの【みかん】というシートのＡ１セルにカーソルを
あわせて貼り付けします。

開いてあるフォルダ「データー」の中からエクセルファイルＢを開きます。
（タスクバーにいます）
ファイルＢのシート【りんご】の全データ選択して
エクセルファイルＺの【りんご】というシートのＡ１セルにカーソルを
あわせて貼り付けします。
これと同じ操作を【バナナ】【ぶどう】【いちご】も行います。

エクセルファイルＺにおいて「マクロの記録」を終了させます。
マクロができあがりました。

ファイルＺを上書き保存して終了。再立ち上げで記録したマクロを実行。

エラーにはなりませんが、ファイルＺの５種類各シートに
ファイルＡ～Ｅのデータが貼りつきません。

何か無理な事をしているのでしょうか？
もしかしてシート名が同じだと駄目？とためしにファイルＺのシート名【みかん】～【いちご】を
【みかんＺ】～【いちごＺ】に変更してマクロを再記録しても
駄目でした。

よろしくお願いします。

回答No.4

layy · ベストアンサー

保存しないで閉じる、でなくて読み取り専用で開く、なら参考ページあります。
ファイルを選ぶ画面の開くボタンにオプションあります。

OPENの記述行のファイル名の後、「,READONLY:=TRUE」と書きます、試しにマクロを作って確認してみて下さい。

閉じるタイミングはＡからＺへ貼付けたらＡ選んで閉じていったんＺ選んでＢ開く、感じです。

お礼

ありがとうございました。

補足

すいません。修正したマクロではこうでした。

「,READONLY:=TRUE」は今度試してみます。

Sub Macro2()
'
Sheets("みかん").Select
Selection.ClearContents
Sheets("りんご").Select
Selection.ClearContents
Sheets("バナナ").Select
Selection.ClearContents
Sheets("ぶどう").Select
Selection.ClearContents
Sheets("いちご").Select
Selection.ClearContents

Workbooks.Open Filename:="C:\Documents and Settings\07066s\My Documents\データー\Ａ.xls"
Windows("Ａ.xls").Activate
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Windows("Ｚ.xls").Activate
Sheets("みかん").Select
Range("A1").Select
ActiveSheet.Paste

Workbooks.Open Filename:="C:\Documents and Settings\07066s\My Documents\データー\Ｂ.xls"
Windows("Ｂ.xls").Activate
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Windows("Ｚ.xls").Activate
Sheets("りんご").Select
Range("A1").Select
ActiveSheet.Paste

Workbooks.Open Filename:="C:\Documents and Settings\07066s\My Documents\データー\Ｃ.xls"
Windows("Ｃ.xls").Activate
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Windows("Ｚ.xls").Activate
Sheets("バナナ").Select
Range("A1").Select
ActiveSheet.Paste

Workbooks.Open Filename:="C:\Documents and Settings\07066s\My Documents\データー\Ｄ.xls"
Windows("Ｄ.xls").Activate
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Windows("Ｚ.xls").Activate
Sheets("ぶどう").Select
Range("A1").Select
ActiveSheet.Paste

Workbooks.Open Filename:="C:\Documents and Settings\07066s\My Documents\データー\Ｅ.xls"
Windows("Ｅ.xls").Activate
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Windows("Ｚ.xls").Activate
Sheets("いちご").Select
Range("A1").Select
ActiveSheet.Paste

Sheets("Sheet1").Select
End Sub

回答No.3

layy

最初、Ａブックが開いている状態から、マクロ保存したのではありませんか。ＢやＣを開く時と違う記述です。

Ｚブック開いてマクロ実行すると、Ａブック開いてコピー、Ｚブックに貼付け、Ｂブック開いてコピー、Ｚブックに貼付け、のように開くのもマクロでおこなう。

記述確認してみて下さい。

お礼

＞最初、Ａブックが開いている状態から、マクロ保存したのではありませんか。
＞ＢやＣを開く時と違う記述です。

申し訳ありません。
修正前の文を貼り付けました。
以下の文で行っています。
ありがとうございました。

Sub Macro2()
'
' Macro2 Macro
' マクロ記録日
'

'
Sheets("みかん").Select
Selection.ClearContents
Sheets("りんご").Select
Selection.ClearContents
Sheets("バナナ").Select
Selection.ClearContents
Sheets("ぶどう").Select
Selection.ClearContents
Sheets("いちご").Select
Selection.ClearContents

Workbooks.Open Filename:="C:\Documents and Settings\07066s\My Documents\データー\Ａ.xls"
Windows("Ａ.xls").Activate
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Windows("Ｚ.xls").Activate
Sheets("みかん").Select
Range("A1").Select
ActiveSheet.Paste

Workbooks.Open Filename:="C:\Documents and Settings\07066s\My Documents\データー\Ｂ.xls"
Windows("Ｂ.xls").Activate
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Windows("Ｚ.xls").Activate
Sheets("りんご").Select
Range("A1").Select
ActiveSheet.Paste

Workbooks.Open Filename:="C:\Documents and Settings\07066s\My Documents\データー\Ｃ.xls"
Windows("Ｃ.xls").Activate
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Windows("Ｚ.xls").Activate
Sheets("バナナ").Select
Range("A1").Select
ActiveSheet.Paste

Workbooks.Open Filename:="C:\Documents and Settings\07066s\My Documents\データー\Ｄ.xls"
Windows("Ｄ.xls").Activate
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Windows("Ｚ.xls").Activate
Sheets("ぶどう").Select
Range("A1").Select
ActiveSheet.Paste

Workbooks.Open Filename:="C:\Documents and Settings\07066s\My Documents\データー\Ｅ.xls"
Windows("Ｅ.xls").Activate
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Windows("Ｚ.xls").Activate
Sheets("いちご").Select
Range("A1").Select
ActiveSheet.Paste

Sheets("Sheet1").Select
End Sub

補足

ありがとうございます。
とりあえず下に示した文で思ったように動くようになりました。
残る問題は、ファイルＺが完成後、ファイルＡ－Ｅが開いたままになっている事です。
出来ればコピーが終わったらファイルＡ－Ｅは保存しないで閉じたいのですが
うまく出来ません。
WEBで調べてサンプル分を加工して　
最初に出てくる
ActiveSheet.Paste
という文のの下に

Filename:="C:\Documents and Settings\※※※\My Documents\データー\Ａ.xls"
.Close SaveChanges:=Faise

としましたがエラーでした。
--------------------------

Sub Macro2()

Sheets("みかん").Select
Selection.ClearContents
Sheets("りんご").Select
Selection.ClearContents
Sheets("バナナ").Select
Selection.ClearContents
Sheets("ぶどう").Select
Selection.ClearContents
Sheets("いちご").Select
Selection.ClearContents

Workbooks.Open Windows("Ａ.xls").Activate
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Windows("Ｚ.xls").Activate
Sheets("みかん").Select
Range("A1").Select
ActiveSheet.Paste

Workbooks.Open Filename:="C:\Documents and Settings\※※※\My Documents\データー\Ｂ.xls"
Windows("Ｂ.xls").Activate
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Windows("Ｚ.xls").Activate
Sheets("りんご").Select
Range("A1").Select
ActiveSheet.Paste

Workbooks.Open Filename:="C:\Documents and Settings\※※※\My Documents\データー\Ｃ.xls"
Windows("Ｃ.xls").Activate
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Windows("Ｚ.xls").Activate
Sheets("バナナ").Select
Range("A1").Select
ActiveSheet.Paste

Workbooks.Open Filename:="C:\Documents and Settings\※※※\My Documents\データー\Ｄ.xls"
Windows("Ｄ.xls").Activate
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Windows("Ｚ.xls").Activate
Sheets("ぶどう").Select
Range("A1").Select
ActiveSheet.Paste

Workbooks.Open Filename:="C:\Documents and Settings\※※※\My Documents\データー\Ｅ.xls"
Windows("Ｅ.xls").Activate
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Windows("Ｚ.xls").Activate
Sheets("いちご").Select
Range("A1").Select
ActiveSheet.Paste

Sheets("変換").Select
End Sub

回答No.2

layy

貼付けたが値を消す操作あり
か
貼付け値が空
か
シート名がおかしくて実行時エラー
か
ほか要因
このままでは何とも言えません。

みかんへ貼付けし次のりんごを選択したとき保存してみる。みかんシートに貼付けされているかみる。

一時的に貼付けシート名をみかんだけ固定にしてみる。

５つのシートをすべて選んで何かしてますか。

貼付け終わったみかんから随時閉じる。

すべてセルのコピーでなくシートコピーで試す。

参考で。

お礼

ありがとうございました。

補足

とりあえず思ったように動きましたがファイルＡ~Ｅを保存しないで
閉じたいのですが文章を入れるとＥＲＲになります。

ActiveSheet.Pasteの下に

Filename:="C:\Documents and Settings\※※※\My Documents\データー\Ａ.xls"
.Close SaveChanges:=Faise

では駄目なのでしょうか？

---------------------------

Sub Macro2()

Sheets("みかん").Select
Selection.ClearContents
Sheets("りんご").Select
Selection.ClearContents
Sheets("バナナ").Select
Selection.ClearContents
Sheets("ぶどう").Select
Selection.ClearContents
Sheets("いちご").Select
Selection.ClearContents

Workbooks.Open Windows("Ａ.xls").Activate
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Windows("Ｚ.xls").Activate
Sheets("みかん").Select
Range("A1").Select
ActiveSheet.Paste

Workbooks.Open Filename:="C:\Documents and Settings\※※※\My Documents\データー\Ｂ.xls"
Windows("Ｂ.xls").Activate
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Windows("Ｚ.xls").Activate
Sheets("りんご").Select
Range("A1").Select
ActiveSheet.Paste

Workbooks.Open Filename:="C:\Documents and Settings\※※※\My Documents\データー\Ｃ.xls"
Windows("Ｃ.xls").Activate
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Windows("Ｚ.xls").Activate
Sheets("バナナ").Select
Range("A1").Select
ActiveSheet.Paste

Workbooks.Open Filename:="C:\Documents and Settings\※※※\My Documents\データー\Ｄ.xls"
Windows("Ｄ.xls").Activate
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Windows("Ｚ.xls").Activate
Sheets("ぶどう").Select
Range("A1").Select
ActiveSheet.Paste

Workbooks.Open Filename:="C:\Documents and Settings\※※※\My Documents\データー\Ｅ.xls"
Windows("Ｅ.xls").Activate
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Windows("Ｚ.xls").Activate
Sheets("いちご").Select
Range("A1").Select
ActiveSheet.Paste

Sheets("変換").Select
End Sub

回答No.1

nattocurry

マクロが実際にどういうコードになっているのかを見ないと、何とも言えません。
コードを提示してください。

ところで、「ファイルＡ～Ｅのデータが貼りつきません。」というのは、どういう意味でしょうか？
その時点で、ファイルＺのシートみかんと、ファイルＡのしーとみかんの内容は同じですよね。

シートの内容が変わらない、ということですか？
内容が変わらないのは当たり前ですよ。同じ内容なんですから。

それとも、シートに何も無い状態になると、いうことですか？
であれば、削除はできているけど、コピーできていないということになりますね。

お礼

説明不足で申し訳ありませんでした。
ありがとうございました。

補足

説明不足で申し訳ありません。

ファイルＡ～ＥのデータにはＡ列すべての行に９月２日とあります。
ファイルＺのシート「みかん」～「いちご」は
現在Ａ列の値５シートともに９月１日です。
マクロを走らせたら、
ファイルＺのシート「みかん」～「いちご」のＡ列が９月２日に置き換わる予定です。

おっしゃるとうりマクロの記録をした時点で
ファイルＺはファイルＡ～Ｅと同内容で９月２日ですので
上書き保存後、ファイルＺのシート「みかん」～「いちご」の内容は
マクロ記録前の９月１日に手修正してマクロの実行を行いました。

マクロを起動するとファイルＺの
「みかん」「りんご」「バナナ」「ぶどう」のシートが空白になり
「いちご」のシートだけが９月１日→９月２日になり、カーソルは
ファイルＺのシート「変換」のＡ１にきています。

Sub Macro2()
'
' Macro2 Macro
' マクロ記録日 : 2010/9/3 ユーザー名 :
'

'
Sheets("みかん").Select
Cells.Select
Selection.ClearContents
Sheets("りんご").Select
Selection.ClearContents
Sheets("バナナ").Select
Selection.ClearContents
Sheets("ぶどう").Select
Selection.ClearContents
Sheets("いちご").Select
Selection.ClearContents

Windows("Ａ.xls").Activate
Selection.Copy
Windows("Ｚ.xls").Activate
Sheets("みかん").Select
Range("A1").Select
ActiveSheet.Paste

Windows("Ｂ.xls").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("Ｚ.xls").Activate
Sheets("りんご").Select
Range("A1").Select
ActiveSheet.Paste

Windows("Ｃ.xls").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("Ｚ.xls").Activate
Sheets("バナナ").Select
Range("A1").Select
ActiveSheet.Paste

Windows("Ｄ.xls").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("Ｚ.xls").Activate
Sheets("ぶどう").Select
Range("A1").Select
ActiveSheet.Paste

Windows("Ｅ.xls").Activate
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Windows("Ｚ.xls").Activate
Sheets("いちご").Select
Range("A1").Select
ActiveSheet.Paste

Sheets("変換").Select
End Sub