Hi tpcervelo,
That's quite easy. Try something based on:
Code:
'Note: This code requires a reference to the Excel object model
Dim xlApp As New Excel.Application
Dim xlWkBk As Excel.Workbook
Dim StrWkbk As String, StrWkSht As String, i As Long
StrWkbk = "workbook path & filename"
' eg: StrWkbk = "C:\Users\tpcervelo\Documents\Test.xls"
StrWkSht = "Sheet Name"
Set xlWkBk = xlApp.Workbooks.Open(FileName:=StrWkbk, AddtoMRU:=False)
With xlWkBk
With .Worksheets(StrWkSht)
i = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(i, 1).Value = "word field 1"
.Cells(i, 2).Value = "word field 2"
.Cells(i, 3).Value = "word field 3"
.Cells(i, 4).Value = "word field 4"
.Cells(i, 5).Value = "word field 5"
.Cells(i, 6).Value = "word field 6"
.Cells(i, 7).Value = "word field 7"
.Cells(i, 8).Value = "word field 8"
End With
.Save
.Close
End With
xlApp.Quit
Set xlWkBk = Nothing: Set xlApp = Nothing