Mefisto...diabeł czy anioł?

jak zmieniæ makro do eksportu czê¶ci danych, ¿eby pozostawi³ formu³y w kolumnie J M N oraz zapisa³ siê w katalogu AA z nazw± pliku sk±d eksportuje dane.

Sub Export()
Dim skrDoc As Workbook
Dim arkDoc As Worksheet
Dim skrZrd As Workbook
Set skrZrd = ActiveWorkbook
'plik = Application.GetOpenFilename(FileFilter:="Skoroszyty Excel (*.xls),*.xls", Title:="Wybierz plik")
'Open plik For Output As #1

'If plik = "False" Then Exit Sub

Set skrDoc = Workbooks.Open("c:\aa.xls")

On Error GoTo brakArkusza
Set arkDoc = skrDoc.Sheets("2009")
On Error GoTo 0
skrZrd.Sheets("surowce").Range("a1:o3").Copy arkDoc.Range("A1")

skrZrd.Sheets("surowce").Range("a4:o40").Copy
arkDoc.Range("A4:o40").PasteSpecial Paste:=xlPasteValues
skrZrd.Sheets("surowce").Range("a4:l40").Copy
arkDoc.Range("A4:o40").PasteSpecial Paste:=xlPasteFormats

'skrDoc.Sheets("Dane").Range("A1:B9").Copy arkZrd.Range("A1")
'akrDoc.Range("A1:B9").Copy srkZrd.Sheets("Arkusz").Range("A1")

exitFromProc:
skrZrd.Close True
Exit Sub

brakArkusza:

MsgBox "W wybranym pliku brak jest arkusza ""2009""!"
Resume exitFromProc

Close plik

End Sub

Kazik

SZAMPAÑSKIEJ NOCY SYLWESTROWEJ
  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • katkaras.opx.pl