将Excel中的用户表单发送到其他工作簿？

Question

我很新的VB编码和在Excel中创建窗体。我在Excel中创建了一个非常简单的表单，该表单现在捕获用户数据并保存到表单工作簿中的表单中。有没有办法对命令按钮进行编码，以便将用户数据保存到单独的保存在网络服务器上的工作簿中？

Answer 1

一种方式是打开其他工作簿，并插入数据，例如

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