EXCEL VBA ワークシート貼り付け

質問

ＥＸＣＥＬ２０００のＶＢＡを使用して
元データーの左から５番目のワークシートをコピーして
同じフォルダー内にあるエクセルデーター（１０個）の
一番左に貼り付けたいのですがＶＢＡの処理で出来ますでしょうか？

実施する処理は元データーの左から５番目のワークシートを
コピーして貼り付けたいデーターを開いて
開いたデーターを移動先ブック名に指定して一番左に元データーの
左から５番目のデーターを貼り付けて
処理が終了したら移動先ブックを閉じて次のデーターも
同じことを行いフォルダー内のデーター全てに同じ処理を
行ったら終了する？
文面だけの説明で大変申し訳ないのですがご教授していただけないでしょうか？

回答No.2

hige_082 · ベストアンサー

こんな感じ？

Sub test()
Dim MyPath, MyBook, MyName
MyPath = ThisWorkbook.Path & "\"
MyBook = ThisWorkbook.Name
MyName = Dir(MyPath & "*.xls")
Do While MyName <> ""
If MyName <> MyBook Then
Workbooks.Open Filename:=MyPath & MyName
Workbooks(MyBook).Worksheets(5).Copy Before:=Workbooks(MyName).Sheets(1)
Workbooks(MyName).Save
Workbooks(MyName).Close
End If
MyName = Dir
Loop
End Sub

お礼

たいへん助かったのに返答が遅れてすみません。
宜しくお願いいたします。

回答No.3

Trick--o--

実施する処理は元データーの左から５番目のワークシートを
コピーして貼り付けたいデーターを開いて
開いたデーターを移動先ブック名に指定して一番左に元データーの
左から５番目のデーターを貼り付けて
処理が終了したら移動先ブックを閉じて次のデーターも
同じことを行いフォルダー内のデーター全てに同じ処理を
行ったら終了する？

これをそのままコード化すればいい。
何がわからんの？

回答No.1

imogasi

＞５番目のワークシート
Sheets(5)
で捕まえられる。Sheets(5).Copy
＞フォルダー内にあるエクセルデーター（１０個）の
エクセルデータとは？
エクセルのそれぞれ別ブック１０ファイル？
どのようにしてプログラムで１０個のブックを見つけるのか。？
＞一番左に貼り付けたいのですが
各ブックのＳｈｅｅｔｓ（１）のこと？
＞開いたデーターを移動先ブック名に指定して？？？
＞一番左に元データーの
左から５番目のデーターを貼り付けて？？？
ーー
＞文面だけの説明で大変申し訳ないのですがご
言葉だけでは判りにくい。判りにくいことが判っているなら、
ブックーシートーセルとセルの値を挙げて質問を書くこと。
ーー
どこまで勉強が済んでいるのか。
なにか甘えた丸投げ的質問のように思う。

お礼

ご指摘のどうり甘えてるところがありましてすみませんです。
わかり限り書き込むようにいたします。