< návrat zpět

MS Excel


Téma: Část názvu souboru v buňce rss

Zaslal/a 10.4.2014 7:43

RozmyAhoj.

Mám makro (taky tady z WALL-ukázka níže), kterým upravuji větší množství souborů (cca vždy 50 najednou). V příkladu níže do konkrétní buňky vkládám datum.
Mohli byste prosím poradit nějaký příkaz, který bych do makra vložil a kterým by se do konkrétní buňky uložila definovaná část názvu souboru?
Například: Z excelu "makra.xlsm", kde mám uložena různá makra, spustím toto jedno, které postupně pootevírá soubory a vždy do buňky A3 vloží část názvu aktuálně otevřeného souboru. Toto uloží a pokračuje dále.
Název souboru je např. "ST-WI p 1001 Vzor_R0.xlsx" - do buňky A3 se vložil text "ST-WI p 1001". Do buňky A4 je vložil text "Vzor".

Děkuji předem za popostrčení.


Sub MAKRO()

Dim SESIT As Workbook
Dim i As Long, Cesta As String

If Len(Cells(10, 2)) = 0 Then
MsgBox "Nejdříve nacti soubory...", vbCritical, "CHYBA"
Exit Sub
End If

Cesta = Range("b3")

Application.ScreenUpdating = False
Application.DisplayAlerts = False

For i = 10 To Range("b65000").End(xlUp).Row
Workbooks.Open (Cesta & Cells(i, 2)) 'otevreni souboru

Range("L1:AM5").Select
Range("AF17:AH17").Select
ActiveCell.FormulaR1C1 = "4/28/2014"

Workbooks(Workbooks.Count).Close savechanges:=True 'zavreni souboru
Next i

Application.ScreenUpdating = True
Application.DisplayAlerts = True

MsgBox "Provedeno...", vbInformation, "Hotovo..."
End Sub

stop Uzamčeno - nelze přidávat nové příspěvky.

#018788
avatar
dobra by bola priloha

najprv si set-nite Workbooks.Open (Cesta & Cells(i, 2))

a potom sa odkazujte normalne ako na excel

tj.:
For i = 10 To Range("b65000").End(xlUp).Row
set aExcel = Workbooks.Open (Cesta & Cells(i, 2))

aExcel.cells(1,1) = activeworkbook.name
aExcel.Range("AF17:AH17").FormulaR1C1 = "4/28/2014"
aExcel.Close True
Next i
citovat
#018789
Rozmy
Přílohu přidávám.
Soubor makro, obsahuje v modulu2 již funkční makro, které dělá přesně to, co jsem potřeboval. Jen to asi není úplně "elegantní".
Před položením prvního dotazu jsem si totiž absolutně neuvědomil možnost použití activeworkbook.name ... díky za nakopnutí.

Tímto beru dotaz za zodpovězený, ale pokud by měl někdo potřebu to ještě poupravit, klidně se nechám poučit.

http://www.edisk.cz/stahni/24784/a.zip_815.26KB.htmlcitovat

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

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09