Új hozzászólás Aktív témák

• #6015 ulrik19 tag Delila_1 #6014

  Új Válasz 2010-01-12 17:49:25 #6015

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  ulrik19

  tag

  válasz Delila_1 #6014 üzenetére

  igen, én is finomítottam még egy kicsit a kódon (érdemes használni a Set-et)

  Sub masolas_adat()
  Dim alapfile As Workbook, adatok As Workbook
  
  Set alapfile = ThisWorkbook
  Set adatok = Workbooks.Open("C:\Production_Daily.xls")
  
  alapfile.Sheets("Data").Range("A47") = adatok.BuiltinDocumentProperties("Creation date").Value
  adatok.Sheets(1).Columns("A:G").Copy
  alapfile.Sheets("IDE_MASOLD").Range("A1").PasteSpecial Paste:=xlValues
  
  adatok.Close
  End Sub

Új hozzászólás Aktív témák