将Excel中的用户表单发送到其他工作簿?
问题描述:
我很新的VB编码和在Excel中创建窗体。我在Excel中创建了一个非常简单的表单,该表单现在捕获用户数据并保存到表单工作簿中的表单中。有没有办法对命令按钮进行编码,以便将用户数据保存到单独的保存在网络服务器上的工作簿中?将Excel中的用户表单发送到其他工作簿?
答
一种方式是打开其他工作簿,并插入数据,例如
Sub ExtractData()
Dim nwb As Workbook
Set nwb = Workbooks.Open("\\Your\Server\Path\YourFile.xlsx")
With nwb.Sheets(1)
.Range("A1").Value = YourForm.Textbox1.Text
.Range("B1").Value = YourForm.Textbox2.Text
.Range("C1").Value = YourForm.Textbox3.Text
End With
nwb.Close True
End Sub
您还可以使用ADO使用Insert语句与TSQL,创建连接see this
+1
辉煌!非常感谢您的帮助。 – Nillus 2012-02-16 18:25:52
是的,它是。张贴保存的代码片段 – Raystafarian 2012-02-16 17:52:14