Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1895|回复: 6

[已解决]textbox控键赋值问题!

[复制链接]
发表于 2014-6-28 23:01 | 显示全部楼层 |阅读模式
附件内做了做了个textbox窗体,但要做到以下的功能.
   在textbox中输入内容添加时,并自动输入到1.xls,2.xls,.3xls中,能不能做到不打开1,2,3.xls时能够完成赋值.又或都需打开时1,2,3.xls完成输入后,再实现自动保存.
最佳答案
2014-6-29 09:42
  1. Private Sub add_Click()
  2.     Dim wb As Workbook, mypth As String, k%
  3.    Application.ScreenUpdating=False
  4.     For k = 1 To 3
  5.         mypth = ThisWorkbook.Path & "" & k & ".xls"
  6.         Workbooks.Open Filename:=mypth
  7.         Set wb = ActiveWorkbook
  8.         With wb.Sheets(1).Cells(5, 1)
  9.             .Offset(0, 1) = TextBox1.Text
  10.             .Offset(0, 17) = TextBox2.Text
  11.             .Offset(0, 20) = TextBox3.Text
  12.         End With
  13.         wb.Close SaveChanges:=True
  14.         Set wb = Nothing    '释放内存
  15.     Next k
  16.     UserForm_Initialize    '清空文本框内容
  17.    Application.ScreenUpdating=true
  18. End Sub
复制代码
你懂的

例子.zip

50.26 KB, 下载次数: 8

发表于 2014-6-29 09:01 | 显示全部楼层
不打开文件写入数据,你说可能吗?
回复

使用道具 举报

 楼主| 发表于 2014-6-29 09:33 | 显示全部楼层
竟然不打开写入不了数据,哪 那个代码如何写呀,自动打开1.xls......后,完成赋值,保存退出
回复

使用道具 举报

发表于 2014-6-29 09:42 | 显示全部楼层    本楼为最佳答案   
  1. Private Sub add_Click()
  2.     Dim wb As Workbook, mypth As String, k%
  3.    Application.ScreenUpdating=False
  4.     For k = 1 To 3
  5.         mypth = ThisWorkbook.Path & "" & k & ".xls"
  6.         Workbooks.Open Filename:=mypth
  7.         Set wb = ActiveWorkbook
  8.         With wb.Sheets(1).Cells(5, 1)
  9.             .Offset(0, 1) = TextBox1.Text
  10.             .Offset(0, 17) = TextBox2.Text
  11.             .Offset(0, 20) = TextBox3.Text
  12.         End With
  13.         wb.Close SaveChanges:=True
  14.         Set wb = Nothing    '释放内存
  15.     Next k
  16.     UserForm_Initialize    '清空文本框内容
  17.    Application.ScreenUpdating=true
  18. End Sub
复制代码
你懂的
回复

使用道具 举报

发表于 2014-6-29 09:45 | 显示全部楼层
等效于不打开工作簿写入数据,因为代码完成是瞬间完成的,你根本不可能感觉后台在做了什么事。

例子.rar (46.98 KB, 下载次数: 5)
回复

使用道具 举报

 楼主| 发表于 2014-6-29 14:30 | 显示全部楼层
太感谢了~~
回复

使用道具 举报

 楼主| 发表于 2014-6-29 16:41 | 显示全部楼层
如果不是1,2,3.xls,,不是纯数字的,能够改成通用型的不..
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 06:34 , Processed in 0.473898 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表