< 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í .

Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

#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

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