Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
29097 / 76738 ←次へ　｜　前へ→
【52929】Re:年末年始の行動予定表（緊急連絡用）
発言  かみちゃん E-MAIL  - 07/12/9(日) 19:05 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>まずは、りんさんが紹介されたスレッドを参考にトライしてみます。

りんさんご紹介のスレッドのコードを参考に、若干修正した以下のようなコードを
とりまとめ用のブックに記述します。

各自から送付されてきたブックを保存するフォルダと同じフォルダにとりまとめ
用のブックをいれて、以下のマクロを実行すると、とりまとめできます。

Sub Sample2()
　　Dim f As String
　　Dim s As String
　　Dim i As Long
　　Dim w As Workbook
　
　　Application.ScreenUpdating = False
　　
　　With ThisWorkbook
　　　f = .Path & "\*.xls"
　　　i = 2
　　　s = Dir(f)
　　　Do While s <> ""
　　　　If s <> .Name Then
　　　　　Application.EnableEvents = False
　　　　　Set w = Workbooks.Open(.Path & "\" & s)
　　　　　w.Sheets(1).Range("A2:L2").Copy .Sheets(1).Cells(i, 1)
　　　　　w.Close False
　　　　　Application.EnableEvents = True
　　　　　i = i + 1
　　　　End If
　　　　s = Dir
　　　Loop
　　End With
　　Set w = Nothing
　　
　　Application.ScreenUpdating = True
　　MsgBox "終了しました"
End Sub

今年は、急いで処理しなければいけないこともあり、こんな感じでいかがでしょうか？
来年度も必要であれば、メール自動送受信も考えたほうがいいかもしれませんね。
0 hits
▼ 【52773】年末年始の行動予定表（緊急連絡用） marai 07/12/2(日) 23:56 質問
【52775】Re:年末年始の行動予定表（緊急連絡用） neptune 07/12/3(月) 9:50 発言
【52784】Re:年末年始の行動予定表（緊急連絡用） marai 07/12/3(月) 21:39 発言
【52809】Re:年末年始の行動予定表（緊急連絡用） あゆたろう 07/12/4(火) 17:43 発言
【52816】Re:年末年始の行動予定表（緊急連絡用） marai 07/12/4(火) 22:57 発言
【52819】Re:年末年始の行動予定表（緊急連絡用） かみちゃん 07/12/5(水) 2:03 発言
【52821】Re:年末年始の行動予定表（緊急連絡用） marai 07/12/5(水) 7:35 発言
【52836】Re:年末年始の行動予定表（緊急連絡用） あゆたろう 07/12/5(水) 15:20 発言
【52862】Re:年末年始の行動予定表（緊急連絡用） marai 07/12/7(金) 7:02 発言
【52869】Re:年末年始の行動予定表（緊急連絡用） あゆたろう 07/12/7(金) 11:57 発言
【52890】Re:年末年始の行動予定表（緊急連絡用） marai 07/12/7(金) 22:56 発言
【52892】Re:年末年始の行動予定表（緊急連絡用） かみちゃん 07/12/7(金) 23:08 発言
【52893】Re:年末年始の行動予定表（緊急連絡用） marai 07/12/8(土) 4:26 発言
【52898】Re:年末年始の行動予定表（緊急連絡用） かみちゃん 07/12/8(土) 13:56 発言
【52903】Re:年末年始の行動予定表（緊急連絡用） marai 07/12/8(土) 21:21 お礼
【52911】Re:年末年始の行動予定表（緊急連絡用） かみちゃん 07/12/9(日) 11:48 発言
【52912】Re:年末年始の行動予定表（緊急連絡用） marai 07/12/9(日) 15:19 発言
【52913】Re:年末年始の行動予定表（緊急連絡用） かみちゃん 07/12/9(日) 15:36 発言
【52916】Re:年末年始の行動予定表（緊急連絡用） りん 07/12/9(日) 16:12 発言
【52921】Re:年末年始の行動予定表（緊急連絡用） marai 07/12/9(日) 17:19 発言
【52924】Re:年末年始の行動予定表（緊急連絡用） かみちゃん 07/12/9(日) 17:37 発言
【52925】Re:年末年始の行動予定表（緊急連絡用） marai 07/12/9(日) 18:02 発言
【52929】Re:年末年始の行動予定表（緊急連絡用） かみちゃん 07/12/9(日) 19:05 発言≪
【52933】Re:年末年始の行動予定表（緊急連絡用） marai 07/12/9(日) 20:17 お礼
【52978】Re:年末年始の行動予定表（緊急連絡用） marai 07/12/10(月) 19:11 お礼
【53031】Re:年末年始の行動予定表（緊急連絡用） あゆたろう 07/12/12(水) 16:54 発言
【53050】Re:年末年始の行動予定表（緊急連絡用） marai 07/12/12(水) 21:02 お礼
【52785】Re:年末年始の行動予定表（緊急連絡用） お願い 07/12/3(月) 22:28 発言
【52787】Re:年末年始の行動予定表（緊急連絡用） marai 07/12/4(火) 6:10 発言
【52788】Re:年末年始の行動予定表（緊急連絡用） お願い 07/12/4(火) 8:33 発言
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
29097 / 76738 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free