Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
transfer data from word userform to excel
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
transfer data from word userform to excel
It looks like you are using late binding, so the constants you are using
would be unknow and interpreted to have a value of zero: 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(-4162).Offset(1).Value = UserForm2.txtBy.Value wb.Worksheets("Sheet3").Range("A" & Rows.Count).End(-4162).Offset(0, 1).Value = UserForm2.cmbVote.Value Xl.Visible = False: AppActivate Xl.Caption wb.Save '<=== modified Set wb = Nothing: Set Xl = Nothing End Sub If you want to close Excel, you would need to work in an xl.quit before you clear the variable. -- Regards, Tom Ogilvy "Jade" wrote: 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
word to excel data transfer help | Excel Discussion (Misc queries) | |||
how can you transfer data from excel to MS word? | Excel Discussion (Misc queries) | |||
transfer of data from Excel to MS Word | Excel Discussion (Misc queries) | |||
Transfer Excel data to Word | Excel Programming | |||
Transfer data from EXCEL to WORD | Excel Programming |