今日のvba練習 2018年9月30日 帳票シートにリストシートの情報を転記する

表題の通りです。

苦労した点はリストの選択と保存先の名前の設定です。

今回、はdim as String のところに　“Filename “をつくり

それで、ActiveWorkbook.SaveAs Filenameとしました。

FALSE.xlsxで保存するということになってしまい、その部分で回らなかったので変更としました

Sub dayday()

Dim tod As Date
Dim ya, mo, da, we As Long
Dim i, LastRow As Long
Dim FilNam, months, days, DirNam, Filename As String

リスト.Select

LastRow = Cells(Rows.Count, 1).End(xlUp).Row

i = 2

Do While i <= LastRow
Range("A1").Select
tod = Cells(i, 1).Value
ya = Year(tod)
mo = Month(tod)
da = Day(tod)
we = Weekday(tod)
表.Select

Range("J2").Value = ya & "年"
Range("K2").Value = mo & "月"
Range("L2").Value = da & "日"
Range("N2").Value = we

'ActiveSheet.PrintOut

  ActiveSheet.Copy

If mo < 10 Then
        
         months = "0" & mo
     Else
        months = mo
End If
       
If da < 10 Then
        
         days = "0" & da
     Else
        days = da
End If

SheNam = months & days
ActiveSheet.Name = SheNam

SavDir0 = "C:\Users\aaaa\Desktop\fff\"

           FolderName = SavDir0 & ya & months

        

           If Dir(FolderName, vbDirectory) = "" Then

               MkDir FolderName

           Else

            

           End If
DirNam = FolderName & "\"

FilNam = "さくらさくら & ya & months & days
Filename = DirNam & FilNam & ".xlsx"

ActiveWorkbook.SaveAs Filename
ActiveWorkbook.Close
リスト.Select
i = i + 1
Loop
End Sub