Quantcast
Channel: VBForums - ASP, VB Script
Viewing all articles
Browse latest Browse all 688

How to Copy specific range column values from one excel 365 file to another using VBS

$
0
0
Hi there,

I'm trying to copy specific column values (range "M:P") from one excel 365 file to the other on the range "M:P", using VBScript.

This is what I've tried.

Code:

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Open("C:\Master.xlsx")
Set objWorkbook2 = objExcel.Workbooks.Open("C:\Copy_2022.xlsx")

Set objWorksheet = objWorkbook.Worksheets(1)
objWorksheet.Activate

Set objRange = objWorksheet.Range("M:P").EntireColumn
objRange.Copy

Set objWorksheet2 = objWorkbook2.Worksheets(1)
objWorksheet2.Activate

objWorksheet.unprotect
objWorksheet2.unprotect

objWorksheet.Range("M:P").EntireColumn.Copy objWorksheet2.Paste
objWorksheet2.Range("M:P")

objWorksheet.protect
objWorksheet2.protect

objWorkbook2.Save
objWorkbook2.Close

When the code reaches the below line I am getting the below error.

Code:

objWorksheet.Range("M:P").EntireColumn.Copy objWorksheet2.Paste
Run Time Error '1004': Paste Method Of worksheet Class Failed error

Any suggestion?

Thanks in advance for any help.

Lando

Really appreciated

Viewing all articles
Browse latest Browse all 688

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>