Excel VBA質問箱 IV

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

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


25893 / 76732 ←次へ | 前へ→

【56176】Re:シートをまとめる→データを保存する
発言  かみちゃん  - 08/6/7(土) 9:47 -

引用なし
パスワード
   こんにちは。かみちゃん です。

横から失礼します。

>バラバラのシートを1つのエクセルとしてまとめることはできるのでしょうか?
>エクセルファイル名は毎回、日付が変わります。
>シートの名前も日付がついているため毎回変わります。
>
>毎回、日付の変わるエクセルデータを開いてVBAで処理していくことはできますか?

私は、以下のようなマクロで処理しています。
マクロが記述されたファイルと同じフォルダにあるExcelブックのすべてのシート
をひとつの新規ブックにコピーします。

Sub Sample()
 Dim MyPath As String
 Dim MyName As String
 Dim MyFile As String
 Dim WB1 As Workbook
 Dim WB2 As Workbook
 
 MyPath = ThisWorkbook.Path
 MyName = Dir(MyPath & "\*.xls")
 Do While MyName <> ""
  MyFile = MyPath & "\" & MyName
  If UCase(MyFile) <> UCase(ThisWorkbook.FullName) Then
   Application.EnableEvents = False
   Set WB1 = Workbooks.Open(MyFile)
   If WB2 Is Nothing Then
    WB1.Worksheets.Copy
    Set WB2 = ActiveWorkbook
   Else
    WB1.Worksheets.Copy , WB2.Worksheets(WB2.Worksheets.Count)
   End If
   WB1.Close False
   Application.EnableEvents = True
  End If
  MyName = Dir
 Loop
 MsgBox "終了しました"
End Sub

>そして、まとめ終わったデータを名前+日付を入れて保存することはできるのでしょうか? 

上記コードを実行すると、Book1.xlsが出来るので、それを名前を付けて保存します。
特定のブックを特定の名前で名前を付けて保存するには、「マクロの記録」で記録
できます。
特定の名前の部分を「名前+日付」にしたくて、その方法がわからないならば、
「マクロの記録」で記録したコードを提示した上で、どういう名前の付け方にしたい
のか、もう少し具体的に説明できませんか?

0 hits

【56173】シートをまとめる→データを保存する らん 08/6/7(土) 6:52 質問
【56175】Re:シートをまとめる→データを保存する マクロマン 08/6/7(土) 9:24 発言
【56181】Re:シートをまとめる→データを保存する らん 08/6/8(日) 6:45 回答
【56176】Re:シートをまとめる→データを保存する かみちゃん 08/6/7(土) 9:47 発言
【56182】Re:シートをまとめる→データを保存する らん 08/6/8(日) 6:58 回答
【56183】Re:シートをまとめる→データを保存する かみちゃん 08/6/8(日) 9:11 発言

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