在此Workbook.Sheets（1）.Range（newRange）.Value中无法识别newRange As Range。

Question

I want to assign values from one spreadsheet to this one and it works when I give the range of cells in the macro (like Range("A3:J4")), but not when I try to manually select the destination cells.

So this works:

Private Sub CommandButton1_Click()
Dim OpenFileName As String
Dim wb As Workbook
'Select and Open workbook

OpenFileName = Application.GetOpenFilename("DATA,*.txt")
If OpenFileName = "False" Then Exit Sub
    Set wb = Workbooks.Open(OpenFileName)

    'Get data EXAMPLE    
    ThisWorkbook.Sheets(5).Range("A3:J4").Value = wb.Sheets(1).Range("A3:J4").Value
    wb.Close

But this doesn't work:

Private Sub CommandButton1_Click()
Dim OpenFileName As String
Dim wb As Workbook
'Select and Open workbook

OpenFileName = Application.GetOpenFilename("DATA,*.txt")
If OpenFileName = "False" Then Exit Sub
    Set wb = Workbooks.Open(OpenFileName)

    Dim newRange As Range
    Set newRange = Range(ActiveCell, ActiveCell.Offset(1, 9))

    'Get data EXAMPLE  
    ThisWorkbook.Sheets(5).Range(newRange).Value = wb.Sheets(1).Range("A3:J4").Value
    wb.Close

Answer 1

In the second instance, you are treating newRange as if it was a string var of the Range.Address property . You can use it directly.

'this assumes that 'newRange' is on Sheets(5)
ThisWorkbook.Sheets(5).newRange.Value = wb.Sheets(1).Range("A3").Resize(newRange.Rows.Count, newRange.Columns.Count).Value
'alternative use as the cell range address
ThisWorkbook.Sheets(5).Range(newRange.address).Value = wb.Sheets(1).Range("A3").Resize(newRange.Rows.Count, newRange.Columns.Count).Value

When using direct value transfer, the ranges have to be the same size.

Answer 2

I think you're looking for the Selection -property? Try

Set newRange = Selection

For more info: https://msdn.microsoft.com/en-us/library/office/ff840834.aspx

Afterwards reference the newRange.address on the other sheet:

Worksheets("TargetSheetName").Range(newRange.address)