Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

25228 / 76736

←次へ　｜　前へ→


	【56852】Re:値だけ貼付けしたいけどエラーに

kanabun - 08/7/8(火) 14:49 -


	引用なし

	パスワード

▼初心者ごろうさん：
>構成はこのような感じです。
>kkk/hh/YY/DDDDD/DDD
>　　　　　　　　+--/PPPPP / その他.xls
>　　　　　　　　|　　　　　１３.xls
>　　　　　　　　|　　　　　１４.xls
>　　　　　　　　|　　　　　１５.xls
>　　　　　　　　|　　　　　　・
>　　　　　　　　|　　　　　　・
>　　　　　　　　|　　　　　　・
>　　　　　　　　|　　　　　３２.xls
>　　　　　　　　|　　　　　管理１.xls
>　　　　　　　　|　　　　　管理２.xls
>　　　　　　　　|　　　　　管理３.xls
>　　　　　　　　|　　　　　マスタ.xls
>　　　　　　　　|　　　　　集計.xls
>　　　　　　　　|　　　　　　　　　　　　　　
>　　　　　　　　+-- data１ /
>　　　　　　　　+-- data２ /
>
>となっています。

あるBookを開いて Copyするとき、1つのシートからコピーするばあいと、
2つのシートからコピーするばあいとあるようなので、以下のように
>　　CopyData Book.Sheets("その他"), "A13"
を1回書くところと 2回かくところを (1) と(2) に示しましたが、
これでOK なら、
開くファイルが増えても、このブロックをどんどん足していくだけです。
また、フォルダが途中で変わるときには
Const myFolder は
Dim myFolder As String と変数にしておいて、
最初のフォルダ名で初期化しておき、フォルダが変わるところで、
myFolderにあたらしいフォルダ名を代入しなおしてください。

'(1)『その他.xls』を開いて「集計」シートに値貼り付け
　　Set Book = Workbooks.Open(myFolder & "その他.xls")
　　CopyData Book.Sheets("その他"), "A13"
　　Book.Close
　　Set Book = Nothing
　　
'(2)『１３.xls』を開いて「集計」シートに値貼り付け
　　Set Book = Workbooks.Open(myFolder & "１３.xls")
　　CopyData Book.Sheets("QC")
　　CopyData Book.Sheets("AA")
　　Book.Close
　　Set Book = Nothing

>はじめのレスですが文字数オーバーで書けなかったので、
>その他～１４.xlsまでの作業のコードを書きました。すみません。
>その他～３２.xlsにあるすべてのシートの
>[A13:L13]以降全行を Copy→ 値貼り付け『集計.xls』「集計」[A13]
>　　　　　　　　　　　　　（最初はA13だけどそれ以降は、最終行に貼付け）
>という作業をしたいと思っています。

0 hits

▼

【56754】値だけ貼付けしたいけどエラーに 初心者ごろう 08/7/3(木) 15:43