Demo entry 6402409

пкпкекеекуе

   

Submitted by anonymous on May 24, 2017 at 21:26
Language: VB.net. Code size: 495 Bytes.

Sub DataListCopy()
    Application.ScreenUpdating = False
    Dim ipath As String, iipath As String
    Dim vVar As Variant
    ipath = ThisWorkbook.Path
    iipath = ipath + "\Book2.xlsx"
    Workbooks.Open (iipath)
      vVar = Worksheets(1).Range("A1:H9").Value
      Workbooks("Book1.xlsm").Activate
      Worksheets(1).Range("A1:H9") = vVar
      Application.CutCopyMode = False
    Workbooks("Book2.xlsx").Close savechanges:=False
    Application.ScreenUpdating = True
End Sub

This snippet took 0.00 seconds to highlight.

Back to the Entry List or Home.

Delete this entry (admin only).