Welcome to ShenZhenJia Knowledge Sharing Community for programmer and developer-Open, Learning and Share
menu search
person
Welcome To Ask or Share your Answers For Others

Categories

I am looking for a macro that copies a specific range of cells from one workbook to a new workbook. The macro would copy cells A1:HC5 from "Workbook1", and paste into the same cells (A1:HC5) of "Workbook2". Thanks for any guidance!

See Question&Answers more detail:os

与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…
thumb_up_alt 0 like thumb_down_alt 0 dislike
1.0k views
Welcome To Ask or Share your Answers For Others

1 Answer

This should work:

Sub test()
   Dim wbk As Workbook

   strFirstFile = "C:source.xls"
   strSecondFile = "C:destination.xls"

      Range("A1:HC35").Copy

   Set wbk = Workbooks.Open(strSecondFile)
   With wbk.Sheets("Sheet1")
      Range("A1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
      False, Transpose:=False
   End With 
End Sub

与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…
thumb_up_alt 0 like thumb_down_alt 0 dislike
Welcome to ShenZhenJia Knowledge Sharing Community for programmer and developer-Open, Learning and Share
...