< návrat zpět

MS Excel


Téma: Ulož sešit jako .ikm rss

Zaslal/a 9.3.2021 12:06

Merlin99Zdravim vsechny,
nevim si nejak rady už.. mám soubor který ukládám potřebuju uložit jako Text (oddělený tabulátory) a nasledne jen u daneho souboru prepsat koncovku z .txt na .ikm. S tím ze nedokazu prevzit jmeno a cestu ulozeni do dalsich veci jako je zavreni daneho sesitu a nasledneho prepsani koncovky..(pokud uzivatel vybere jiny nazev ci cestu ulozeni tak je problem)

Moje představa je:
Daný excel vyvolá save dialog kde před vyplním jméno sesitu a formát pro ulozeni. Následne uzivatel uklada a dané excely se zavrou. Na daném miste mu zustane daný .ikm soubor.

Př v příloze
Děkuji za případné rady

Příloha: rar50051_save2.rar (15kB, staženo 17x)
Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

#050072
elninoslov
-Máte zošit save2.xlsm
-Iba jeden list "List1", a ten chcete exportovať ako IKM (TXT). Iné listy tam niesú?
-V ňom chcete kliknúť na čudlík, a spustené makro sa opýta na názov a umiestnenie toho IKM.
- "nedokazu prevzit jmeno a cestu ulozeni do dalsich veci jako je zavreni daneho sesitu a nasledneho prepsani koncovky" ??? zatvorenie akého zošitu ?
- "a dané excely se zavrou" ??? aké excely ? Veď máte otvorený len ten jeden zošit save2.xlsm!

EDIT1: 11.2.2021 12:58
Prípadne skúsiť niečo iné:
Sub SAVEjako()
Dim Soubor As String, S As String
Dim H()
Dim x As Integer, y As Long
Soubor = Application.GetSaveAsFilename(InitialFileName:="D:\DATA_import.ikm", FileFilter:="Textový soubor IKM (*.ikm), *.ikm", Title:="Export IKM")
If Soubor = "False" Then Exit Sub
H = List1.UsedRange.Value
For y = 1 To UBound(H, 1)
For x = 1 To UBound(H, 2)
S = S & IIf(x = 1, vbNullString, vbTab) & H(y, x)
Next x
S = S & vbNewLine
Next y
Open Soubor For Output As #1
Print #1, S
Close #1
End Sub

len tam treba dbať aj na formát dát.

EDIT2: alebo takto:
Sub SAVEjako2()
Dim Soubor As String
Soubor = Application.GetSaveAsFilename(InitialFileName:="D:\DATA_import.ikm", FileFilter:="Textový soubor IKM (*.ikm), *.ikm", Title:="Export IKM")
If Soubor = "False" Then Exit Sub
Application.DisplayAlerts = False
Application.ScreenUpdating = False
List1.Copy
ActiveWorkbook.SaveAs Filename:=Soubor, FileFormat:=xlText
ActiveWorkbook.Close False
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Porovnajte si oba výsledky.
Příloha: zip50072_uloz_list_do_text_ikm.zip (19kB, staženo 15x)
citovat
#050084
Merlin99
elninoslov
OMLOUVÁM se za nekompletní zadání ale i tak jste to pochopil excelentně! Funkčnost jsem si převzal a jsem plně spokojen.

Děkujuuuuu 5 9
skvělá práce ! 5 5 5 9citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje