Excel VBA - zrušení propojení dat Vyřešeno
Napsal: 27 úno 2014 13:19
Dobrý den všem,
při kopírování listu ze souboru do souboru nového potřebuji, aby bylo zrušeno propojení dat a data z propojení zůstala v novém souboru napevno vložena.
V tuto chvíli mám tabulku, ve které prodejce vyplňuje data pro generování kupní smlouvy. Z listu pro vyplňování se data doplňují do jiného listu do textu smlouvy a tento list/smlouva se následně pomocí makra kopíruje do nového sešitu a uloží se pod nastaveným názvem. Po otevření tohoto nově uloženého souboru ale zůstávají propojení dat. I přes nastavení, aby se data automaticky neaktualizovala, se při souběžně otevřeném původním a nově uloženém souboru propojení stávají aktivním a bez ohledu na zamezení propojení se data aktualizují.
Šel by nějak pozměnit nebo nahradit zvýrazněný řádek týkající se právě aktualizace dat? Pokoušel jsem se v novém souboru přes krokování zadat zrušení propojení skrze Data - Upravit odkazy - zrušit propojení. Zápis makra ale tento krok nezaznamená.
Děkuji předem za jakoukoliv radu.
při kopírování listu ze souboru do souboru nového potřebuji, aby bylo zrušeno propojení dat a data z propojení zůstala v novém souboru napevno vložena.
V tuto chvíli mám tabulku, ve které prodejce vyplňuje data pro generování kupní smlouvy. Z listu pro vyplňování se data doplňují do jiného listu do textu smlouvy a tento list/smlouva se následně pomocí makra kopíruje do nového sešitu a uloží se pod nastaveným názvem. Po otevření tohoto nově uloženého souboru ale zůstávají propojení dat. I přes nastavení, aby se data automaticky neaktualizovala, se při souběžně otevřeném původním a nově uloženém souboru propojení stávají aktivním a bez ohledu na zamezení propojení se data aktualizují.
Šel by nějak pozměnit nebo nahradit zvýrazněný řádek týkající se právě aktualizace dat? Pokoušel jsem se v novém souboru přes krokování zadat zrušení propojení skrze Data - Upravit odkazy - zrušit propojení. Zápis makra ale tento krok nezaznamená.
Děkuji předem za jakoukoliv radu.
Sheets("SMLOUVA").Select
ActiveSheet.Unprotect
ActiveSheet.Range("$A$86:$A$162").AutoFilter Field:=1, Criteria1:="<>"
Application.Run "'KUPNÍ SMLOUVA.xlsm'!Makro1"
Sheets("SMLOUVA").Select
Sheets("SMLOUVA").Copy
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
ChDir "C:\Documents and Settings\obchod\Plocha"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\obchod\Plocha\" & Range("O69").Value & " - " & Range("K72").Value & ".xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
ActiveWorkbook.Save
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
IgnorePrintAreas:=False
ActiveWindow.Close
Sheets("SMLOUVA").Select
ActiveSheet.Range("$A$86:$A$162").AutoFilter Field:=1
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
Sheets("generování smlouvy").Select
Application.Run "'KUPNÍ SMLOUVA.xlsm'!Makro7"
ActiveWorkbook.Save
ActiveWindow.Close