< návrat zpět

MS Excel


Téma: Max řádek v externím sešitě rss

Zaslal/a 8.6.2020 20:12

Merlin99Zdravím
mám ještě jednu otázku jestli někdo neporadí jak z jednoho sešitu zjistit poslední zaplněný řádek ve sloupci B v šešitu druhém který je zavřený a je úplně na jiné adrese v PC.
Myslel jsem nějak takto ale nedaří se mi tam vložit tu adresu k sešitu.

Na této adrese je druhý soubor ze kterého potřebuji dostat číslo posledního zaplněného řádku ve sloupci B.
MaxRadek = C:\Users\mer\OneDrive\Plocha\Data\....

((Bez cesty je to snadné..
MaxRadek = List1.Cells(Rows.Count, 2).End(xlUp).Row ))
Děkuji za radu 9

Zaslat odpověď >

#046831
Stalker
Ahoj Martine, není to sice úplně bez otevření sešitu (sešit se otevře skrytě na pozadí), ale mělo by to fungovat.
Samozřejmě si uprav cestu k souboru.
Sub Test1()

Dim Zdroj As Workbook
Dim MaxRadek As Long

Set Zdroj = GetObject("c:\Users\Intel i3\Desktop\test.xlsx")

MaxRadek = Zdroj.Worksheets("List1").Cells(Rows.Count, 2).End(xlUp).Row
Debug.Print MaxRadek

Zdroj.Close
Set Zdroj = Nothing
End Sub
citovat
#046832
Merlin99
Ahoooj Stalker
Funguje to perfektněěě a to se hodí
děkujuu mooc 5 5citovat
#046840
elninoslov
Toto bude rýchlejšie ako GetObject. Vytvorí si to dočasne definovaný názov, vypočíta, zmaže:
Sub Test2()
Dim Subor As String, Cesta As String, List As String, Stlpec As String, Posledny As Long

Cesta = "Z:\"
Subor = "Dostupnost.xlsx"
List = "Ověření"
Stlpec = "$B:$B"

With ThisWorkbook
On Error Resume Next
.Names("POSLEDNY_R").Delete
On Error GoTo 0
.Names.Add "POSLEDNY_R", "=LOOKUP(2,1/('" & Cesta & "[" & Subor & "]" & List & "'!" & Stlpec & "<>""""),ROW($A:$A))"
Posledny = ExecuteExcel4Macro("'" & .FullName & "'!" & "POSLEDNY_R")
.Names("POSLEDNY_R").Delete
End With

MsgBox Posledny
End Sub


a nemôžem zabudnúť na moje obľúbené "dolovanie dát" cez vzorec vložený do určenej bunky, prečítaný a zmazaný (to bude asi ešte rýchlejšie):
Sub Test3()
Dim Subor As String, Cesta As String, List As String, Stlpec As String, Posledny As Long

Cesta = "Z:\"
Subor = "Dostupnost.xlsx"
List = "Ověření"
Stlpec = "$B:$B"

With ThisWorkbook.ActiveSheet.Range("A1")
.Formula = "=LOOKUP(2,1/('" & Cesta & "[" & Subor & "]" & List & "'!" & Stlpec & "<>""""),ROW($A:$A))"
Posledny = .Value
.Clear
End With

MsgBox Posledny
End Sub
citovat
#046842
Merlin99
elninoslov
Test2 a Test3 funguje skvěle, DÍKY za nápad. Uložím do sbírky
DÍKY MOC 5citovat

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