vba获取系统时间并自动写到一个指定的excel文件里

很简单，如果你是直接在EXCEL的UserForm里面做的，那么就一句代码：
Private Sub CommandButton1_Click()
Cells(1, "A") = Format(Now(), "yyyy-mm-dd,hh:mm:ss") '在A1写入年-月-日，时：分：秒
Range("A2") = Format(Now(), "yyyy-mm-dd") '在A2写入年-月-日
Cells(3,1) = format(Now(),"hh:mm:ss") '在A3写入时：分：秒
End Sub

VBA中窗体出现时触发事件，使用UserForm_Initialize()，类似VB中的Form_load()

VBA中的文本框是Textbox，而VB中的是text

日期都可以用Date函数来获得，默认是YYYY/M/D格式，如果一定要显示固定格式，可以format函数，例如Formt(Date,"yyyy-m-d")

故下面代码可实现题目中的要求——（假设日期框是textbox1）

Private Sub UserForm_Initialize()
TextBox1Text = Formt(Date,"yyyy-m-d")

End Sub

---