使用VB.NET从Excel中的特定范围复制

Question

I am currently building a program where I copy a pivot table from one workbook and copy it into another, and am currently having trouble copying the table, as the number of rows depends on how many people buys a product every month. I tried using a UsedRange on that specific range, and it didn't work. Something along these lines...

    targetSheet.Range("N3:S50").UsedRange.Copy()

Any ideas?

Answer 1

Range("A1:B2").Select
Selection.Copy

Answer 2

The following code grabs the data for a particular sheet (in this case tSheet). It then finds the upper-left cell address, copies all data, deletes everything from the spreadsheet, and then pastes it back. This has the effect of resetting the UsedRange on a particular sheet.

Dim values 'holds info on the usedRange of the current spreadsheet
Dim usedRangeAddress As String 'holds the address of the usedRange of the current spreadsheet (i.e. "A1")
usedRangeAddress = tSheet.UsedRange.Address 'get the upper most left cell address
values = tSheet.UsedRange.Value'Store values of all cells to array.     
tSheet.Cells.Delete() 'Delete all cells in the sheet     
tSheet.Range(usedRangeAddress).Value = values'Restore values to their initial locations     

So, with this, you should be able to utilize the first line of code, and then a second line to paste to your otherSheet

Dim values 'holds info on the usedRange of the current spreadsheet
values = tSheet.UsedRange.Value'Store values of all cells to array.     
otherSheet.Range(yourTargetAddress).Value = values