MS Excel

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

Zaslal/a Merlin99 9.3.2021 12:06

Zdravim 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: rar

50051_save2.rar (15kB, staženo 16x)

Zaslat odpověď >

elninoslov(11.3.2021 12:09)#050072

-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: zip