napisał: 0jack0 postów: 24
umieszczony: 24 kwietnia 2007 10:46
|
|
Witam,
Bardzo proszę o modyfikację kodu VBA tak aby po kopiowaniu i zapisaniu wartości w arkuszu (obecnie tak jest w VBA). Arkusz został zamknięty. Poza tym VBA przy kopiowanych i otwartych ponad 500 arkuszach strasznie zpowalnia. Bardzo proszę o instrukcję która wyelinimuje spowolnienie wykonywania kodu.
Sub Zapisz()
Dim ile_arkuszy As Integer
ile_arkuszy = ActiveWorkbook.Sheets.Count
LastRow = ActiveSheet.UsedRange.Rows.Count
For i = 1 To ile_arkuszy
ActiveWorkbook.Sheets(i).Activate
LastRow = ActiveSheet.UsedRange.Rows.Count
Range(Cells(1, 1), Cells(LastRow, 35)).Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
ChDir "d:\temp\"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
Cells(2, 7).Value & ".xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Windows("Zeszyt1.xls").Activate
ActiveWorkbook.Sheets(i).Activate
Next i
End Sub |
|
wstecz 1 dalej wszystkich stron: 1
|