MS Excel

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

Zaslat odpověď >

Stalker(8.6.2020 21:37)#046831

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

Merlin99(8.6.2020 22:56)#046832

Ahoooj Stalker
Funguje to perfektněěě a to se hodí
děkujuu mooc

citovat

elninoslov(9.6.2020 19:12)#046840

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 Subcitovat

Merlin99(9.6.2020 22:08)#046842

elninoslov
Test2 a Test3 funguje skvěle, DÍKY za nápad. Uložím do sbírky
DÍKY MOC

citovat

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

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje