Excel - Export VBA Vyřešeno
Napsal: 27 pro 2009 14:04
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