Snasui Excel Forum

Code: Select all

ption Explicit

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim wb As Variant
Dim iname As String
Dim iid As String
Dim iage As Integer

'get value from object to variable
iname = TextBox1
iid = TextBox2
iage = TextBox3
Set wb = Workbooks.Open("C:\db.xls", False, False)
'wb("db.xls").Activate
ActiveWorkbook.Worksheets("Sheet1").Select
With [a65535].Offset.End(xlUp)
        .Offset(1, 0) = iname
        .Offset(1, 1) = iid
        .Offset(1, 2) = iage
End With
wb.Close True
MsgBox "à¾ÔèÁ¢éÍÁÙÅàÊÃç¨áÅéÇ"
Application.ScreenUpdating = True
End Sub

Private Sub UserForm_Click()

End Sub

Code: Select all

TextBox1=""
TextBox2=""
TextBox3=""