Я хочу напечатать несколько динамически измененных листов в один файл DBF - PullRequest
Новая
       13

Я хочу напечатать несколько динамически измененных листов в один файл DBF

0 голосов
/ 19 декабря 2018

Я динамически изменяю значения ячеек в своих листах, используя цикл for.На каждой итерации я печатаю лист в файл dbf.Код работает нормально, за исключением того, что каждый лист напечатан в отдельном файле DBF.Я хочу напечатать все в одном файле DBF. 

Sub Make_diary()
    Dim cur_day, first_day, last_day As Date
    Dim wk_day As Integer

    first_day = #1/1/2018#
    last_day = #12/31/2018#
    For cur_day = first_day To last_day
        wk_day = Weekday(cur_day)
        Worksheets(wk_day).Select
        Cells(1, 1) = WeekdayName(wk_day) + " " + MonthName(Month(cur_day), True) + Str(Day(cur_day))
        Worksheets(wk_day).PrintOut
    Next cur_day
End Sub
...