Here is an example of creating/updating excel worksheet, range, whatever via ADO run w/Attachmate EXTRA! 7.0 Object Library & Microsoft DAO 3.6 Object Library.
Sub Main
Dim adoConn as object
Dim TableRS as object
Dim FieldRS As Object
Dim strConString as string
Dim FileName as String
Dim MyErr as String
Set adoConn = createobject("ADODB.Connection"

Set TableRS = CreateObject("ADODB.Recordset"

Set FieldRS = CreateObject("ADODB.Recordset"

'To be used to enumerate the worksheets in Excel
Path = "Q:\Agency\"
FileName = "FDATTYB.XLS"
DataFile = Path & FileName
StrConString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & _
DataFile & ";" & _
"Extended Properties=""Excel 8.0; HDR=Yes"""
adoConn.open strConString
set TableRS = adoConn.OpenSchema(20) 'Get Sheet List
'Enumerate these by looping through the TableRS recordset as normal
Do Until TableRS.EOF
If Left(TableRS("TABLE_NAME"

,1) <> "_" Then
SheetName = TableRS("TABLE_NAME"
FieldRS.CursorLocation = 3
FieldRS.open "Select * from [" & SheetName & "]", adoConn, 2,3
NbrFlds = FieldRS.Fields.Count
For Z = 1 to NbrFlds
FldNm = FieldRS.Fields(Z-1).Name
Test = FieldRS(FldNm)
Next Z
FieldRS.Close
StrSQL = "Drop Table [Excel 8.0;Database=" & DataFile & "].[NewData]"
On Error Resume Next
adoConn.Execute strSQL
Myerr = adoConn.Errors.Count
Myerr = adoConn.Errors(0).Description
If adoConn.Errors.Count = 1 Then
strSQL = "SELECT * " & _
"INTO [Excel 8.0;Database=" & DataFile & "].[NewData]" & _
" FROM [" & SheetName & "]"
adoConn.Execute strSQL
Else
strSQL = "Insert Into [NewData$] In '" & DataFile & "' 'Excel 8.0;' Select * " & _
"FROM [" & SheetName & "] As A"
adoConn.Execute strSQL
End If
Myerr = adoConn.Errors.Count
MyErr = adoConn.Errors(0).Description
End If
TableRS.MoveNext
Loop
TableRS.close
adoConn.close
End Sub