Help us understand the problem. What is going on with this article?

初投稿

More than 1 year has passed since last update.

目的

当面は自身の知識のインターネット上での公開のためにこのブログを使うかな。。。

試し書き

test01.xlsm
    Public Sub MakeApplicationHolidayWork()
    Dim i As Integer
    Dim fPath As String
    Dim fName As String
    Dim area As Range
    Dim temp As Range

    Set area = Worksheets("休出予定社員一覧").Range("B3").CurrentRegion
    Set area = area.Offset(1).Resize(area.Rows.Count - 1)

    'シートをコピーして新規ブックを作る


        'ブックの保存
    For Each temp In area.Rows
        fPath = ThisWorkbook.Path
        fName = ThisWorkbook.Path & "休日出勤届" & "_" & temp.Cells(1, 2).Value
        '週間予定表シートを最終シートにコピーする
        Worksheets("休日出勤届").Copy
        Workbooks(Workbooks.Count).Close SaveChanges:=True, Filename:=fName
    Next


End Sub

気になっている事

後から記事の修正ってどうやるんだろう、、、

MemorandumAdLaborem
(自分のための)仕事のための覚書 更新したり更新しなかったり
Why not register and get more from Qiita?
  1. We will deliver articles that match you
    By following users and tags, you can catch up information on technical fields that you are interested in as a whole
  2. you can read useful information later efficiently
    By "stocking" the articles you like, you can search right away