Позднее связывание объектов файловой системы - PullRequest
Новая
       10

Позднее связывание объектов файловой системы

0 голосов
/ 11 мая 2018

У меня проблема с File System Object поздним связыванием. Это мой код: 

Dim WordA As Object 'aplikacja programu Word
Dim PlikW As Object 'plik Worda
Dim Nazwa As Object 'obszar Worda ze zdefiniowaną nazwą
Dim Zakres As Range 'zakres danych używany do wiadomości
Dim NrRaportu As Integer 'Numer tworzonego raportu
Dim Katalog As String 'pełna nazwa katalogu, w którym zapisywane są wiadomości
Const Raport_szablon = "Raport_szablon.docx" 'zazwa pliku z szablonem
Dim fso As Object 'Objekt FileSystemObject

'1. Wczytanie danych
Set Zakres = Range("R2:Z" & Cells(Rows.Count, "R").End(xlUp).Row)
Katalog = ThisWorkbook.Path & "\Raporty"
Set fso = CreateObject("FileSystemObject")
If Not fso.FolderExists(Katalog) Then _
    fso.CreateFolder (Katalog)

и я получаю сообщение,

"Компонент ActiceX не может создать объект"

.

...