Excel VBA質問箱 IV

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

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


25228 / 76736 ←次へ | 前へ→

【56852】Re:値だけ貼付けしたいけどエラーに
発言  kanabun  - 08/7/8(火) 14:49 -

引用なし
パスワード
   ▼初心者ごろう さん:
>構成はこのような感じです。
>kkk/hh/YY/DDDDD/DDD
>         +--/PPPPP / その他.xls
>         |      13.xls
>         |      14.xls
>         |      15.xls
>         |       ・
>         |       ・
>         |       ・
>         |      32.xls
>         |      管理1.xls
>         |      管理2.xls
>         |      管理3.xls
>         |      マスタ.xls
>         |      集計.xls
>         |              
>         +-- data1 /
>         +-- data2 /
>
>となっています。

ある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)『13.xls』を開いて 「集計」シートに値貼り付け
  Set Book = Workbooks.Open(myFolder & "13.xls")
  CopyData Book.Sheets("QC")
  CopyData Book.Sheets("AA")
  Book.Close
  Set Book = Nothing

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

【56754】値だけ貼付けしたいけどエラーに 初心者ごろう 08/7/3(木) 15:43 質問
【56755】Re:値だけ貼付けしたいけどエラーに こぎつね 08/7/3(木) 16:28 発言
【56818】Re:値だけ貼付けしたいけどエラーに 初心者ごろう 08/7/7(月) 14:41 お礼
【56836】Re:値だけ貼付けしたいけどエラーに こぎつね 08/7/7(月) 23:36 発言
【56841】Re:値だけ貼付けしたいけどエラーに kanabun 08/7/8(火) 12:54 発言
【56847】Re:値だけ貼付けしたいけどエラーに 初心者ごろう 08/7/8(火) 14:26 発言
【56852】Re:値だけ貼付けしたいけどエラーに kanabun 08/7/8(火) 14:49 発言
【56842】Re:値だけ貼付けしたいけどエラーに Jaka 08/7/8(火) 13:14 発言
【56849】Re:値だけ貼付けしたいけどエラーに 初心者ごろう 08/7/8(火) 14:31 発言
【56843】Re:値だけ貼付けしたいけどエラーに kanabun 08/7/8(火) 13:16 発言
【56860】Re:値だけ貼付けしたいけどエラーに 初心者ごろう 08/7/8(火) 18:06 お礼
【56861】Re:値だけ貼付けしたいけどエラーに kanabun 08/7/8(火) 18:47 発言
【56933】Re:値だけ貼付けしたいけどエラーに 初心者ごろう 08/7/11(金) 11:46 お礼

25228 / 76736 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free