文档的导入

【文件属性】：

文件名称：文档的导入

文件大小：44KB

文件格式：XLS

更新时间：2018-03-06 06:27:56

DaoRU

VBA窗体的导入功能 Private Sub CommandButton1_Click() hh = Range("C56636").End(xlUp).Row '提取m列的末行号 If hh = 2 Then Range("B" & hh + 1) = "'001" If hh > 2 Then Range("B" & hh).AutoFill Destination:=Range("b" & hh & ":b" & hh + 1), Type:=xlFillDefault Range("C" & hh + 1) = TextBox1.Text Range("D" & hh + 1) = TextBox2.Text Range("E" & hh + 1) = TextBox3.Text Range("F" & hh + 1) = TextBox4.Text Range("G" & hh + 1) = "=SUM(RC[-3]:RC[-1])" Range("H" & hh + 1) = Now() Range("I" & hh + 1) = TextBox5.Text 'MsgBox hh End Sub