MS Excel

Zdravím,
mám xls tabulku z které pomocí makra vykopíruji data do nového sešitu, který ukládám v csv. Potřeboval bych tento csv soubor pojmenovat aktuálním datumem a časem (YYMMDDHHMMSS.csv) a nevímjak do toho.
Makro:
Range("A8:D9999").Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

ActiveWorkbook.SaveAs Filename:= _
"Sešit4.csv", FileFormat:=xlCSV, _
CreateBackup:=False

Kdyby byla i možnost dynamického omezení kopírované oblasti pouzen a vyplněné řádky (pro sloupce A - D od řádku 8) bylo by to super.

Díky

Zaslat odpověď >

AL(13.12.2012 12:50)#010632

Sub VytvorCSV()
Intersect(Range("A8").CurrentRegion, Range("A8:D9999")).Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues
ActiveWorkbook.SaveAs Filename:= _
Format(Now, "YYMMDDHHMMSS") & ".csv", FileFormat:=xlCSV, _
CreateBackup:=False
End Subcitovat

krkstex(13.12.2012 14:01)#010635

Super díky. Šlo by ještě omezit výběr řádků pouze od 8. do posledního plného ve sloupcích A - D od řádku 8?citovat

AL(13.12.2012 15:09)#010636

myslím, že som to tam dal, nefunguje to? Teda, predpokladám, že pokiaľ je prvý prázdny A-D od riadku napr 20, tak i ostatné stĺpce sú už od daného riadku prázdne. Niekedy viac pomôže súbor s vyznačením, čo vlastne chceš, než krkolomný popis...citovat

krkstex(13.12.2012 15:25)#010639

Soubor je na : http://www.ulozto.cz/xCmodDw/holdregister-xls
Potřeboval bych, aby se do csv nakopírovala všechna data aktuálně A8 - E 10 (pokud by bylo vyplněno víc řádků tak by se pouze zvyšovalo číslo u E).
Dál bych nově potřeboval , aby formát názvu byl FG_HOLD_YYMMDD_HHMMSS.csv . Zkoušel jsem si to upravit, fungovalo to dobře mimo slova HOLD. Místo něj to vypadalo FG_15OL13_YYMMDD_HHMMSS.csv
Díky za pomoccitovat

AL(13.12.2012 16:02)#010644

Chlape, môžem na to hodiť oko,ale hneď to nebude. Po prebdenej noci ma rozbolela hlava, takže za moment mažem do postele a zobudím sa neviem kedy pri svojich spacích zvykoch medveďa. Ale zrovna tu vyšíva eLCHa, to, čo potrebuješ, je trivialita a on to dá, počítam, behom minúty dokopy.citovat

krkstex(13.12.2012 16:09)#010647

Díky, dneska to být nemusí. Tuším co potřebuju,ale znalosti nejsou.
Dobroucitovat

AL(13.12.2012 16:17)#010648

drapni eLCHu, to čo potrebuješ, nie je nijak zložité, on Ti to poladí k max spokojnosti a nemusíš čakať na mňa, fakt neviem, kedy budem ready to help herecitovat

eLCHa(13.12.2012 16:25)#010649

nějak takto?

Sub CSV()
Const DIR As String = "D:\"

Dim rData As Range
Set rData = Range("A7").CurrentRegion
Set rData = rData.Offset(1, 0).Resize(rData.Rows.Count - 1, rData.Columns.Count)

Dim w As Workbook
Set w = Workbooks.Add

Dim sFileName As String
sFileName = DIR & "FG_HOLD_" & Format(Now, "YYMMDD_HHMMSS") & ".csv"

w.Sheets(1).Cells(1).Resize(rData.Rows.Count, rData.Columns.Count).Value = rData.Value

w.SaveAs Filename:=sFileName, FileFormat:=xlCSV

Set rData = Nothing
Set w = Nothing
End Subcitovat

krkstex(14.12.2012 13:32)#010653

DÍKYcitovat

Téma: Pojmenování souboru

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje