staticbob
Well-known Member
- Joined
- Oct 7, 2003
- Messages
- 1,079
Guys,
I am calling Excel from a .NET application I am writing. The VBA code should work in both environments.
I have a UserControl in .NET that contains lots of textboxes and comboboxes.
For each tbox or cbox in .NET, I have a named range in Excel. I am trying to take the text from my .NET controls and write to the named ranges. Can anybody see any problems with this code ???
Thanks in advance !
Bob
I am calling Excel from a .NET application I am writing. The VBA code should work in both environments.
I have a UserControl in .NET that contains lots of textboxes and comboboxes.
For each tbox or cbox in .NET, I have a named range in Excel. I am trying to take the text from my .NET controls and write to the named ranges. Can anybody see any problems with this code ???
Thanks in advance !
Bob
Code:
Dim xl As Excel.Application
xl = New Excel.Application
Dim wkbk As Excel.Workbook
Dim wkst As Excel.Worksheet
xl.DisplayAlerts = False
xl.Visible = False
wkbk = xl.Workbooks.Open("C:\PWBV3 Forms\PWBV3_RFI.xls") 'usetemplatepath & doctype
wkst = wkbk.Sheets(1)
For Each ctl As Control In Ucont 'this is my usercontrol
For Each nm As Excel.Name In wkbk.Names
If StrComp(nm.Name, ctl.Name, CompareMethod.Text) = 0 Then
If TypeOf ctl Is TextBox Then
nm.RefersToRange.Value = CType(ctl, TextBox).Text
ElseIf TypeOf ctl Is ComboBox Then
nm.RefersToRange.Value = CType(ctl, ComboBox).Text
End If
End If
Next