Sub test()
Dim w1 As Worksheet, w2 As Worksheet
Application.ScreenUpdating = False
Set w1 = ActiveSheet
Workbooks.Open Filename:="C:\myfile.xls"
Set w2 = Workbooks(Workbooks.Count).Worksheets(1)
w1.Copy Before:=w2
Application.DisplayAlerts = False
w2.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
excell copy
Pomogite pojaluysta napisat proceduru:
kotoraya otkrivaet opredelenniy exel fail i zamenyaet 1-yu stranicu na stranicu kotoraya naxoditsya v aktivnoy knige.
zaranie spasibo
kotoraya otkrivaet opredelenniy exel fail i zamenyaet 1-yu stranicu na stranicu kotoraya naxoditsya v aktivnoy knige.
zaranie spasibo
Цитата:
Originally posted by MisterFix
Pomogite pojaluysta napisat proceduru:
kotoraya otkrivaet opredelenniy exel fail i zamenyaet 1-yu stranicu na stranicu kotoraya naxoditsya v aktivnoy knige.
zaranie spasibo
Pomogite pojaluysta napisat proceduru:
kotoraya otkrivaet opredelenniy exel fail i zamenyaet 1-yu stranicu na stranicu kotoraya naxoditsya v aktivnoy knige.
zaranie spasibo
Код: