Я думаю, что я уже знаю ответ на это («НЕТ!") но я думал, что протяну руку и надеюсь, что кто-то может доказать, что я неправ.

У меня есть много (десятки тысяч) электронных таблиц Excel, которые я буду обрабатывать (печатать в TIFF) для клиента. Они только что добавили новую складку, чтобы запросить линии сетки и заголовки столбцов в результирующих TIFF.

Есть ли способ заставить это из реестра? Или это потребует открытия каждого документа и проверки правильных полей?

1 ответ1

0

я не знаю каких-либо настроек реестра для этого, но я представляю, что если бы все документы для печати находились в одной папке, было бы не сложно справиться с макросом. рабочий пример ниже.

Sub GridsHeaders()
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Dim FLS As Object, F As Object
    Dim fWB As Workbook, fSheet As Worksheet
    Dim Loc As String

    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Select Folder"
        .AllowMultiSelect = False
        If .Show <> -1 Then Exit Sub
        Loc = .SelectedItems(1)
    End With

    Set FLS = FSO.GetFolder(Loc).Files
    For Each F In FLS
        Loc = UCase(Mid(F.Name, InStrRev(F.Name, ".") + 1))
        If Loc = "XLS" Or Loc = "XLSX" Then
            Set fWB = Workbooks.Open(F.Path)
            For Each fSheet In fWB.Sheets
                fSheet.PageSetup.PrintGridlines = True
                fSheet.PageSetup.PrintHeadings = True
            Next fSheet
            fWB.Close True
        End If
    Next F
End Sub

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .