MS Excel

Dobrý den, potřebuji načíst hodnoty z několika souborů (vždy z jednoho souboru jednu hodnotu, umístěnou vždy na stejném místě, např. D5). Název souboru (bez přípony) bude uveden ve sloupci A a hodnotu potřebuji dosadit např. do sloupce C. Můžete mi prosím někdo napsat makro, které to dokáže? Ve sloupci A bude třeba 450 řádků, a nechce se mi upravovat stejné množství odkazů. Děkuji. Případné přiměřené odměně za spolupráci se nebráním...

Zaslat odpověď >

Jeza.m(28.2.2018 16:10)citovat#039700

jen tak narychlo ...
Public Sub NACTIDATA()
Dim ex As New Application
Dim wb As Workbook
Dim wsi As Worksheet
Dim wso As Worksheet
Set wso = ActiveSheet

Application.ScreenUpdating = False

For rd = 2 To wso.UsedRange.Rows.Count
Set wb = ex.Workbooks.Open(ThisWorkbook.Path & "\" & wso.Cells(rd, 1) & ".xlsx", False, True)
Set wsi = wb.Sheets(1)
wso.Cells(rd, 3) = wsi.Range("D5")
wb.Close
Next

ex.Quit
Application.ScreenUpdating = True
End Sub

M@

bedha(28.2.2018 16:37)citovat#039701

Děkuji, jen dotaz, mohl by i po projetí makra zůstat v té buňce odkaz nikoliv ta vyhledaná hodnota? Abych mohl odkazované sešity upravovat a v hlavním sešitu pracoval vždy s aktuální hodnotou a nemusel vždy znovu projíždět makrem?

Jeza.m(1.3.2018 8:07)citovat#039711

Zkuste nahradit tento řádek
wso.Cells(rd, 3) = wsi.Range("D5")
za
wso.Cells(rd, 3).Formula = "='" & wb.Path & "\[" & wso.Cells(rd, 1) & ".xlsx]" & wsi.Name & "'!$D$5"
M@

Téma: makro - odkaz na soubor

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje