< návrat zpět

MS Excel


Téma: Soubor bez přípony rss

Zaslal/a 27.2.2024 12:30

Ahoj všem,
V buňce mám celou cestu k souboru např. C:\pokus\pokusny_kralik.xlsm
Jde mi o to jak zapsat do jiné buňky cestu k souboru, ale bez přípony. Výsledek by měl vypadat takto: C:\pokus\pokusny_kralik

Potřebuji to ale ve VBA.
Všem děkuji za řešení .

Zaslat odpověď >

#056246
Začátečník
Možné řešení:
v buňce A1 je uvedená cesta k souboru, do buňky B1 se uloží název bez přípony.
Sub JmenoBezPripony
Dim aJmeno
Dim jmenoSouboru As String, jmeno As String

jmenoSouboru = Range("A1")
aJmeno = Split(jmenoSouboru, ".", , vbTextCompare)

jmeno = Replace(jmenoSouboru, "." & aJmeno(UBound(aJmeno)), "", , , vbTextCompare)

Range("B1")=jmeno

End Sub
citovat
#056247
avatar
Začátečník
Díky moc. Funguje to :-)citovat
#056248
elninoslov
alebo InStrRev
Range("B1") = Left(jmenoSouboru, InStrRev(jmenoSouboru, ".") - 1)citovat

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Uspořádání dat do tabulky

elninoslov • 15.4. 14:19

QR kód

parkovec • 15.4. 13:53

Uspořádání dat do tabulky

lubo • 15.4. 12:10

Uspořádání dat do tabulky

Marw • 14.4. 19:41

Uspořádání dat do tabulky

elninoslov • 14.4. 10:08

Uspořádání dat do tabulky

Marw • 14.4. 9:30

hláška

elninoslov • 13.4. 8:45