MS Excel

Dobrý den, používám pro export samostatného listu níže uvedený kód. Ten mi sice list správně exportuje, ale pravděpodobně všechny buňky s obecným formátem. Já ale používám různé formáty např: datum a potřebuju ho vyexportovat se stejným formátem buňky. Takto se mi ten formát změní na výchozí obecný.

Sub export()

ThisWorkbook.Worksheets("List2").Copy

With ActiveWorkbook

With .Worksheets(1).UsedRange

.Value = .Value

R = .Parent.Cells(Rows.Count, "A").End(xlUp).Row

.Resize(.Rows.Count - R + 1).Offset(R, 0).EntireRow.Delete Shift:=xlUp

End With

Application.DisplayAlerts = False

.SaveAs "C:\Users\DELL i7\Desktop\final.xlsx", xlOpenXMLWorkbook

Application.DisplayAlerts = True

.Close False

End With

End Sub

Zaslat odpověď >

elninoslov(21.11.2022 10:44)#053931

Môžete priložiť nejaký príkladový súbor? Mne to s formátom nič nerobí (mena, desatinné číslo, dátum, ...).citovat

PavelJanec(21.11.2022 11:26)#053932

Je to nakopírováno do nového sešitu a vloženo jako hodnota. Formát data je tedy původně textový 2022-11-21, ale tím, že je nakopírovaný jako hodnota zůstáva ve správném formátu 2022-11-21. Když to ale vyexportuju, je tam formát datum 21.11.2022.citovat

elninoslov(21.11.2022 12:04)#053933

Takže to nie je dátum. Je to text uložený vo formáte Všeobecný. A ten sa snaží Excel rozpoznať. A rozpozná ho ako dátum. Buď text naformátujte ako Text, alebo namiesto
.Value = .Value
použite
.Copy
.PasteSpecial Paste:=xlPasteValuescitovat

PavelJanec(21.11.2022 12:10)#053934

Perfektní, opět moc děkuji Elnino.citovat

Téma: Export se zachováním formátu buňky

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje