Dim str As String
    Dim intI As Integer
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    
    Set xlApp = New Excel.Application
    
    For intI =  1  To  1000 
        If Dir("D:\1\" & intI & ".xls") <> "" Then
            str = Dir("D:\1\" & intI & ".xls")
            Set xlBook = xlApp.Workbooks.Open("D:\1\" & str)
            xlBook.PrintOut Copies:= 1 , Collate:=True
            xlBook.Close
        End If
    Next
    
    Set xlApp = Nothing

Очень нужна программа на VB, которая печатает xls файлы из одного каталога.
Имена файлов - n.xls, n- число от  1  до  1000 .

    Dim str As String
    Dim intI As Integer
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    
    Set xlApp = New Excel.Application
    
    For intI =  1  To  1000 
        If Dir("D:\1\" & intI & ".xls") <> "" Then
            str = Dir("D:\1\" & intI & ".xls")
            Set xlBook = xlApp.Workbooks.Open("D:\1\" & str)
            xlBook.PrintOut Copies:= 1 , Collate:=True
            xlBook.Close
        End If
    Next
    
    Set xlApp = Nothing

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы