用VB6 为OLE中EXCEL赋值问题？ 急急加急！

Question

如果让OLE1中sheet1工作表A1的值等于OLE2中sheet1工作表A1的值用
OLE1.object.Sheets("sheet1").Range("A1") =OLE2.object.Sheets("sheet1").Range("A1") 
就可以解决，如果让OLE1中sheet1工作表A1：B5区域的值等于OLE2中sheet1工作表A1：B5区域的值该用什么代码？谢谢！

Answer 1

OLE1.object.Sheets("sheet1").Range("A1") =OLE2.object.Sheets("sheet1").Range("A1") 
 如果这个可以
不知你试了没有
OLE1.object.Sheets("sheet1").Range("A1:B5") =OLE2.object.Sheets("sheet1").Range("A1:B5") 

Answer 2

 VB 这个可以从表1 COPY 到表2Dim ex As Object
Dim wb As Object
Dim sh As Object
Private Sub Command1_Click()
Dim i As Integer, j As Integer, G As Integer
Dim fn As Long, strT As String, Arr() As String Set ex = CreateObject("Excel.Application")             '启动部件
 Set wb = ex.Workbooks.Open("C:\1.xls")     '打开EXCEL指定文件    Sheets("Sheet1").Select '表1 COPY 到表2
     Range("A1:A5").Select
     Selection.Copy
 
    Sheets("Sheet2").Select
     Range("A1").Select
     ActiveSheet.Paste
  'wb.Close SaveChanges:=True    '关闭文件后,直接保存不提问
  'ex.Quit
  ex.Visible = True
  Set ex = Nothing
  Set wb = Nothing
  Set sh = Nothing
  MsgBox "Copy完成"
End Sub