|
こんにちは。かみちゃん です。
横から失礼します。
>バラバラのシートを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が出来るので、それを名前を付けて保存します。
特定のブックを特定の名前で名前を付けて保存するには、「マクロの記録」で記録
できます。
特定の名前の部分を「名前+日付」にしたくて、その方法がわからないならば、
「マクロの記録」で記録したコードを提示した上で、どういう名前の付け方にしたい
のか、もう少し具体的に説明できませんか?
|
|