Zdravím všechny excel machry, potřeboval bych pomoct s úpravou kódu.
Mám soubor, který potřebuju uložit jako nový soubor se zvoleným názvem, ale potřebuji to uložit jako hodnoty, protože v tomto souboru načítám data z jiných listů pomocí jiných funkcí.
Je možné modifikovat níže uvedený kód, kterým to nyní ukládám? Popřípadě vymyslet jiný způsob při zachvání podmínek názvu atd.
Díky
Private Sub CommandButton1_Click()
' SaveSheet()
Dim fName As String
ActiveSheet.Copy
With ActiveSheet.UsedRange
.Copy
End With
On Error Resume Next
ActiveSheet.OLEObjects.Visible = True
ActiveSheet.OLEObjects.Delete
On Error GoTo 0
Application.CutCopyMode = False
fName = Range("G1")
ActiveWorkbook.SaveCopyAs fileName:=fName & Format(Date, "yyyymmdd - ") & Range("C9").Text & ".xlsx"
FileFormat = xlOpenXMLWorkbook
ActiveWorkbook.Close (False)
MsgBox "Soubor byl uložen"
End Sub
Uložit nový sešit jako hodnoty Vyřešeno
Re: Uložit nový sešit jako hodnoty
Ahoj, řešil jsem něco podobného. Třeba ti to pomůže. http://www.pc-help.cz/viewtopic.php?f=35&t=127883&p=1000443#p1000443
Re: Uložit nový sešit jako hodnoty
Toto je super. Zrušilo to propojení které jsem tam měl nastavené. Akorát já bych potřeboval aby se všechno změnilo na hodnoty protože mám tam i jeden sloupec kde zůstal vzorec a to taky nechci aby šlo vidět.
I tak díky za super vylepšovák
I tak díky za super vylepšovák
Re: Uložit nový sešit jako hodnoty
Podobnou věc řeším tímto makrem. Asi to jde udělat i sofistikovaněji, ale označenou oblast kopíruji na stejné místo, akorát dám vložit jako hodnoty.
Vzorce se tím vyruší.
Vzorce se tím vyruší.
Kód: Vybrat vše
Range("vepiš buňku nebo oblast buněk").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Re: Uložit nový sešit jako hodnoty
Transmit píše:Asi to jde udělat i sofistikovaněji
Ano - když už jste to zmínil, tak lze
Kód: Vybrat vše
With Range("vepiš buňku nebo oblast buněk")
.Value = .Value
End With
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
Nastavení měřítka obrazovky na jiné, než předdefinované hodnoty Příloha(y)
od Grander » 29 čer 2023 17:34 » v Windows 11, 10, 8... - 0
- 1067
-
od Grander
Zobrazit poslední příspěvek
29 čer 2023 17:34
-
-
- 4
- 1168
-
od HarryS21
Zobrazit poslední příspěvek
29 bře 2024 19:48
-
- 13
- 2237
-
od Ľubo
Zobrazit poslední příspěvek
21 bře 2024 16:31
-
- 12
- 1652
-
od šulda
Zobrazit poslední příspěvek
20 čer 2023 18:23
-
- 3
- 841
-
od Alferi
Zobrazit poslední příspěvek
18 čer 2023 15:45
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 7 hostů