J
Jade
Hello everyone,
Does anyone know the proper method to transfer data directly from a
word userform to an excel spreadsheet.
I have the code below but am having no success...any feedback to point
me in the right direction as to what I'm doing wrong or how this could
be achieved would be great. Thanks.
Sub Do()
On Error Resume Next
Set Xl = GetObject("Excel.Application")
Set wb = Xl.Workbooks("Activities.xls")
If Err <> 0 Then Set wb = Xl.Workbooks.Open("c:\My Documents
\Activities.xls"): Err.Clear
wb.Worksheets("Sheet3").Range("A" &
Rows.Count).End(xlUp).Offset(1).Value = UserForm2.txtBy.Value
wb.Worksheets("Sheet3").Range("A" &
Rows.Count).End(xlUp).Offset(0, 1).Value = UserForm2.cmbVote.Value
Xl.Visible = False: AppActivate Xl.Caption
wb.ActiveSheet.Save
Set wb = Nothing: Set Xl = Nothing
End Sub
Does anyone know the proper method to transfer data directly from a
word userform to an excel spreadsheet.
I have the code below but am having no success...any feedback to point
me in the right direction as to what I'm doing wrong or how this could
be achieved would be great. Thanks.
Sub Do()
On Error Resume Next
Set Xl = GetObject("Excel.Application")
Set wb = Xl.Workbooks("Activities.xls")
If Err <> 0 Then Set wb = Xl.Workbooks.Open("c:\My Documents
\Activities.xls"): Err.Clear
wb.Worksheets("Sheet3").Range("A" &
Rows.Count).End(xlUp).Offset(1).Value = UserForm2.txtBy.Value
wb.Worksheets("Sheet3").Range("A" &
Rows.Count).End(xlUp).Offset(0, 1).Value = UserForm2.cmbVote.Value
Xl.Visible = False: AppActivate Xl.Caption
wb.ActiveSheet.Save
Set wb = Nothing: Set Xl = Nothing
End Sub