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 icitovat

Rozmy(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

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.