MS Excel

Téma: Soubor bez přípony

Zaslal/a mikar 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ěď >

Začátečník(27.2.2024 12:55)#056246

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

mikar(27.2.2024 13:17)#056247

Začátečník
Díky moc. Funguje to :-)citovat

elninoslov(27.2.2024 14:26)#056248

alebo InStrRev
Range("B1") = Left(jmenoSouboru, InStrRev(jmenoSouboru, ".") - 1)citovat

Uživatelské menu

Nejste přihlášen(a)

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.