< návrat zpět
MS Excel
Téma: Část názvu souboru v buňce 
Zaslal/a Rozmy 10.4.2014 7:43
Ahoj.
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
Uzamčeno - nelze přidávat nové příspěvky.
Palooo(10.4.2014 11:08)#018788 
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 icitovatRozmy(10.4.2014 12:01)#018789 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
RSS nejnovější články