將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