附件内做了做了个textbox窗体,但要做到以下的功能. 在textbox中输入内容添加时,并自动输入到1.xls,2.xls,.3xls中,能不能做到不打开1,2,3.xls时能够完成赋值.又或都需打开时1,2,3.xls完成输入后,再实现自动保存.
- Private Sub add_Click()
- Dim wb As Workbook, mypth As String, k%
- Application.ScreenUpdating=False
- For k = 1 To 3
- mypth = ThisWorkbook.Path & "" & k & ".xls"
- Workbooks.Open Filename:=mypth
- Set wb = ActiveWorkbook
- With wb.Sheets(1).Cells(5, 1)
- .Offset(0, 1) = TextBox1.Text
- .Offset(0, 17) = TextBox2.Text
- .Offset(0, 20) = TextBox3.Text
- End With
- wb.Close SaveChanges:=True
- Set wb = Nothing '释放内存
- Next k
- UserForm_Initialize '清空文本框内容
- Application.ScreenUpdating=true
- End Sub
复制代码你懂的
|