Excel - Export VBA

[Dieesels]

Dobrý den, prosím o doplnění vba, aby pro listy, které se budou importovat, byla cesta uvedena na listu ("Cil " )

Kód: Vybrat vše

Sub export()

Dim newWks As Worksheet
Dim newWksII As Worksheet
Dim wks As Worksheet
Dim wksII As Worksheet


Cil = ActiveWorkbook.Worksheets("Pomocný").Range("B2")

Set wks = ActiveWorkbook.Worksheets("Test1")
Set wksII = ActiveWorkbook.Worksheets("Test2")

wks.Copy
Set newWks = ActiveSheet
With newWks
.SaveAs Filename:=Cil & wks.Name, FileFormat:=xlCSV
.Parent.Close savechanges:=False
End With

wksII.Copy
Set newWksII = ActiveSheet
With newWksII
.SaveAs Filename:=Cil & wksII.Name, FileFormat:=xlCSV
.Parent.Close savechanges:=False
End With


End Sub

[navstevnik]

Projdi si procedury v priloze dotazu z teto poradny viewtopic.php?f=35&t=47766