29344_excel.jpg
Napr. niečo takéto ?
Příloha: 
29347_export-do-txt.rar (18kB, staženo 26x)
citovat29347_export-do-txt.rar (18kB, staženo 26x)
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Export stlpca do txt
MS Excel
Téma: Export stlpca do txt 
Zaslal/a nordscan 19.1.2016 9:01
Zdravim
ak by ste my vedlei poradit
V List1 mam tabulku kde dopisuje uzivatel hodnoty
V "export" mam cez KDYZ - ak vyhovuje zobrazi a CONCATENATE text ktory potrebujem exportovat do txt (viz priloha)
Ak by slo Potreboval by som nejaky script ktory exportne len zobrazene riadky (nie aj prazdne riadku zo vzorcami) do txt
a pokial by bolo mozne tak nazov txt suboru by bol YYYY_MM_DD-HH_MM-POPIS (bunka List1!D2).txt
Vdaka za pomoc Rasto
Velka vdaka doupravil som pre svoje potreby funguje na prvy krat...
.................................
Ja som to riesil takto ale davalo my prazdne riadky vsade tam kde nevyhovovala podmienak kdyz a nebolo to ono..
Sub Export()
Dim wbSource As Workbook
Dim wsSource As Worksheet
Dim wbDest As Workbook
Dim fName As String
'References
Set wbSource = ActiveWorkbook
Set wsSource = ThisWorkbook.Sheets("export")
Set wbDest = Workbooks.Add
'Copy range on original sheet
'Using usedrange can be risky and may return the wrong result.
wsSource.UsedRange.Copy
'Save in new workbook
wbDest.Worksheets(1).Cells(1, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = Falsecitovat
.................................
Ja som to riesil takto ale davalo my prazdne riadky vsade tam kde nevyhovovala podmienak kdyz a nebolo to ono..
Sub Export()
Dim wbSource As Workbook
Dim wsSource As Worksheet
Dim wbDest As Workbook
Dim fName As String
'References
Set wbSource = ActiveWorkbook
Set wsSource = ThisWorkbook.Sheets("export")
Set wbDest = Workbooks.Add
'Copy range on original sheet
'Using usedrange can be risky and may return the wrong result.
wsSource.UsedRange.Copy
'Save in new workbook
wbDest.Worksheets(1).Cells(1, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = Falsecitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články