• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Kopírování

Zaslal/a Lugr 6.11.2020 19:05

Kluci poraďte mi prosím co dělám špatně při kopírování aniž bych musel zdroj otevřít.

Chtěl jsem něco jednoduchého, ale asi jsem to domatlal.

Sub Import()

' Import dat z jiného souboru

Dim Cesta As String
Dim Soubor As String
Dim List As String
Dim Zdroj As String
Dim Nazev As String

Cesta = "C:\Users\Downloads"
Nazev = "Zdroj.xlsx"
List = "List1"

Soubor = Cesta & "\" & Nazev

If Dir(Soubor) = "" Then MsgBox "Soubor " & Soubor & " neexistuje!", vbCritical: Exit Sub

Zdroj = "='" & Cesta & "\" & "[" & Nazev & "]" & List & "'!"

Sheets("List1").Range("A1:B2").Value = Zdroj.Range("A1:B2").Value
Sheets("List1").Range("D3:E4").Value = Zdroj.Range("D3:E4").Value

End Sub

Příloha: 48804_test-kopirovani.zip (15kB, staženo 19x)

Zaslat odpověď >

---

elninoslov(6.11.2020 21:55)#048808

Sub Import()

' Import dat z jiného souboru

Dim Cesta As String
Dim Soubor As String
Dim List As String
Dim Zdroj As String
Dim Nazev As String

Cesta = "C:\Users\Downloads"
Nazev = "Zdroj.xlsx"
List = "List1"

Soubor = Cesta & "\" & Nazev

If Dir(Soubor) = "" Then MsgBox "Soubor " & Soubor & " neexistuje!", vbCritical: Exit Sub

Zdroj = "='" & Cesta & "\" & "[" & Nazev & "]" & List & "'!"

With Sheets("List1").Range("A1:B2")
.Formula = Zdroj & "A1:B2"
.Value = .Value
End With

With Sheets("List1").Range("D3:E4")
.Formula = Zdroj & "D3:E4"
.Value = .Value
End With
End Subcitovat

Lugr(6.11.2020 22:22)#048809

elninoslov

Ty žiješ? Super, děkuji moc.citovat

elninoslov(7.11.2020 2:26)#048811

OT: Ani nie. Chrbtica ...citovat

Lugr(7.11.2020 7:26)#048813

elninoslov napsal/a:

OT: Ani nie. Chrbtica ...

Tak to mě mrzí, vím o čem mluvíš, já už jsem po dvou operacích plotýnek.

Brzy se uzdrav.citovat

Lugr(7.11.2020 22:06)#048816

Můžu mít ještě prosbu?

Při přenosu prázdných buněk mám v cíli nulu místo prázdné buňky.citovat

elninoslov(8.11.2020 9:05)#048817

Zdroj = "=IF('" & Cesta & "\" & "[" & Nazev & "]" & List & "'!?="""","""",'" & Cesta & "\" & "[" & Nazev & "]" & List & "'!?)"

With Sheets("List1").Range("A1:B2")
.Formula = Replace(Zdroj, "?", "A1")
.Value = .Value
End With

With Sheets("List1").Range("D3:E4")
.Formula = Replace(Zdroj, "?", "D3")
.Value = .Value
End Withcitovat

Lugr(8.11.2020 9:33)#048818

Paráda, děkuji.

Jen jsem si myslel, že se v tom začínám orientovat a je to dobré, už tomu zase nerozumím.

Moc děkuji elninoslov. citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje