请问如何用VB把两个excel表格中的各一列输入数组

Question

例如把表一的E列输入A()中，把表二的F列输入B（）中，要求有程序代码！
可能是我说的不清楚，我要求是两个excel表格，准确的说是两个文件，不是一个表里两个sheet！，麻烦大侠再帮帮我！先谢谢了！

Answer 1

'问题补充看到了，下面是修改后的代码。
Private Sub Command1_Click()
Dim S() As String, i As Integer, j As Integer
Dim Rows1() As String, Rows2() As String
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Set xlApp = CreateObject("Excel.Application")

'以下读入1.xls中的Sheet1内的E列数据到数组Rows1()
Set xlBook = xlApp.Workbooks.Open("c:\1.xls") '把它改成具体文件名称

Set xlSheet = xlBook.Worksheets("Sheet1")
ReDim Rows1(1 To 200) '最大列数自己定义
For i = 1 To UBound(Rows1)
Rows1(i) = xlSheet.Cells(i, 5)
Next
xlBook.Close (True)
xlApp.Quit

'以下读入2.xls中的Sheet1内的F列数据到数组Rows2()
Set xlBook = xlApp.Workbooks.Open("c:\2.xls") '把它改成具体文件名称
Set xlSheet = xlBook.Worksheets("Sheet1")
ReDim Rows2(1 To 200) '最大列数自己定义
For i = 1 To UBound(Rows2)
Rows2(i) = xlSheet.Cells(i, 6)
Next
xlBook.Close (True)
xlApp.Quit

Set xlBook = Nothing
Set xlBook = Nothing
Set xlApp = Nothing '释放xlApp对象
MsgBox "已经把2个Excel文件有关的值赋给了数组！", vbInformation, "提示"
Unload Me
End Sub

Answer 2

这个不太清楚啊