MS Excel

Nedovolí to systém. Ten v systémovej zložke Users, kvôli prístupovým právam, nedovolí zápis do iných zložiek, ako je Vaše konto. Ak dám súbor inde, do nesystémovej zložky, na iný disk, alebo do svojej zložky v Users, tak to prejde.citovat

Možná krkolomné, ale asi jsem problém vyřešil. Zatím mi to funguje.
Po zápisu dat do databáze vyvolám nové makro StahnoutData. Během procedury jen potlačím hlášku o schránce ve Windows. Uvidím, jak bude fungovat, až bude zaplněno prvních 5000 řádků. Zatím to jde docela rychle.

Sub StahnoutData()

Application.ScreenUpdating = False 'odstraní "problik"
Application.DisplayAlerts = False

Dim Master As Workbook
Dim wbLocal As Workbook
Dim masterNextRow As Long

Set wbLocal = ThisWorkbook
Set wbMaster = Workbooks.Open("\\...místo,kde je uložena databáze \NPZP_Database.xlsm")

Dim rgSource As Range
Dim rgDestination As Range

'Zkopírování dat do listu input
Set rgSource = wbMaster.Worksheets("DATA").Range("A2:AB5000")
Set rgDestination = wbLocal.Worksheets("Input").Range("A14")

'Vložení dat do listu input
rgSource.Copy
rgDestination.PasteSpecial xlPasteValues

wbMaster.Close True 'True je argument pro uložení souboru

Application.ScreenUpdating = True 'konec akce odstraní "problik"
Application.DisplayAlerts = True

End Subcitovat