はじめまして。今Excelファイルをダイアログボックスから指定して、あるセルから、あるセルまで
を数字で指定してコピーして、クリップボードでデータ取得、Text1.textに表示させるというプログラムに
したいのですが、2回目以降にいくら数字を変えてもtext1.textの表示が変わりません。
どなたかアドバイスをください。
以下がソースです。

Option Explicit

Dim t As Integer
Dim y As Integer
Dim tr As Integer
Dim yr As Integer
Dim tp As Integer

Dim fname



Private Sub Command1_Click()

On Error Resume Next
Dim xapp As Excel.Application
Dim xbook As Excel.Workbook
Dim xsheet As Excel.Worksheet
fname = CommonDialog1.FileName
Set xapp = CreateObject("Excel.application")
Set xbook = xapp.Workbooks.Open(fname)
Set xsheet = xbook.Worksheets(1)

t = Text3.Text
y = Text4.Text
tr = Text5.Text
yr = Text6.Text

xapp.DisplayAlerts = False

xsheet.Range(Cells(t, y), Cells(tr, yr)).Copy

Text1.Text = Clipboard.GetText()

    xapp.Quit

    Set xsheet = Nothing
    Set xbook = Nothing
    Set xapp = Nothing

End Sub


Private Sub Command2_Click()
With CommonDialog1
.FileName = ""
.Filter = "Excel file(*.xls)|*.xls|全てのファイル(*.*)|*.*"
.ShowOpen
End With

fname = CommonDialog1.FileName
Text2.Text = fname
End Sub

下記の部分をここの「Excel & Word 関係」の VBからExcel及びWordを操作する時の
注意事項（最初に必ずお読み下さい） に書いてある事と見比べてみて下さい。

> xsheet.Range(Cells(t, y), Cells(tr, yr)).Copy

> 下記の部分をここの「Excel & Word 関係」の VBからExcel及びWordを操作する時の
> 注意事項（最初に必ずお読み下さい） に書いてある事と見比べてみて下さい。
>
> > xsheet.Range(Cells(t, y), Cells(tr, yr)).Copy

ありがとうございます！！
xsheet.Range(Cells(t, y), Cells(tr, yr)).Copyのところを
xsheet.Range(xsheet.Cells(t, y), xsheet.Cells(tr, yr)).Copyにしたらうごきました。