问VB脚本连接函数正在引发类型不匹配错误。

EN

ReDim arrSheetNames(-1)

ReDim k(-1)

Dim strQry()


'create an excel application object
set myExcel =CreateObject("Excel.Application")

'create an excel workbook object
set myWorkBook=myExcel.WorkBooks.Open("D:\Test.xlsx")


'Get the sheetnames into an array
For i = 1 To myWorkBook.Sheets.Count
  fnPush arrSheetNames, myWorkBook.Sheets.Item(i).Name
Next


'Get th second sheet of the excel
set mysheet = myworkbook.Worksheets(arrSheetNames(0))


'Get the max row occupied in the excel file 
Row=mysheet.UsedRange.Rows.Count

'Get the max column occupied in the excel file 
Col=mysheet.UsedRange.columns.count


'To read the data from the entire Excel file
For  i= 1 to Row
    For j=1 to Col
        fnPush k,mysheet.cells(i,j).value 
    Next
Next


m = join (arrSheetNames)
msgbox m


this is where im getting only 25 rows added to the string however there are 33 elements     in the array k.  

i=0
'
For i = 0 To UBound(k) Step 1
n = n & k(i)
Next

msgbox n 


when i'm using this statement it's throwing an error for type mismatch
strQry =  join(k)


msgbox strQry



'Save the Workbook
'myExcel.ActiveWorkbook.Save

'Close the Workbook
myExcel.ActiveWorkbook.Close

'Close Excel
myExcel.Application.Quit

Set mysheet =nothing
Set myWorkBook = nothing
Set myExcel = nothing


 sub fnPush(arr, var) 
   dim uba 
   uba = UBound(arr) 
   redim preserve arr(uba+1) 
   arr(uba+1) = var 
 end sub