MS Excel

Ahoj,
1.xlsx soubor s daty
2.xlsm soubor s userform kde chci data zobrazit
Jak to mám prosím udelat_
dekuji

Začátečník(11.11.2025 10:00)#057587

1. Jaká data se mají načítat? Vždy jen 3 řádky z prvního sloupce do tří TextBoxů?
2. bude se s daty nějak dále manipulovat?

ji026441 napsal/a:

Jak to mám udělat_

a) otevřít soubor s daty
b) naplnit textboxy požadovanými buňkami

např. do kódu formuláře pro akci tlačítka vložit:Private Sub CommandButton1_Click()
Dim wb As Workbook, ws As Worksheet
Dim filePath As String

' Cesta k externímu souboru
filePath = "C:\Cesta\k\souboru.xlsx"

' Otevření externího souboru
Set wb = Workbooks.Open(filePath)
Set ws = wb.Sheets(1) ' První list

' Načtení hodnot z prvních tří řádků sloupce A
Me.TextBox1.Value = ws.Range("A1").Value
Me.TextBox2.Value = ws.Range("A2").Value
Me.TextBox3.Value = ws.Range("A3").Value

' Zavření souboru bez uložení
wb.Close SaveChanges:=False
End Sub
citovat

€Ł мσşqμΐτσ(12.11.2025 14:04)#057588

Nebo takhle,
s menším probliknutím obrazovky, jinak logika stejná jak u "Začátečníka"

Příloha: zip

57588_test.zip (21kB, staženo 2x)

citovat

elninoslov(12.11.2025 15:08)#057589

Najrýchlejšie to bude asi s pomocným vzorcom. Potom ešte cez ADO.
Private Sub CommandButton2_Click()
Dim Cesta As String, Subor As String, Vzorec As String, Hodnoty()

Cesta = ThisWorkbook.Path & "\"
Subor = "1.xlsx"

Vzorec = "'" & Cesta & "[" & Subor & "]List1'!A1"
With wsTMPdata.Range("A1:A3")
.Formula = "=IF(" & Vzorec & "="""",""""," & Vzorec & ")"
Hodnoty = .Value2
.ClearContents
End With
TextBox1 = Hodnoty(1, 1)
TextBox2 = Hodnoty(2, 1)
TextBox3 = Hodnoty(3, 1)
End Sub

Příloha: zip

57589_2.zip (17kB, staženo 0x)

citovat

Téma: zobrazení dat z jiného souboru

Uživatelské menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje