Excel VBA質問箱 IV

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

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


29091 / 76732 ←次へ | 前へ→

【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 発言

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