Один способ - открыть другую книгу и вставить данные, например,
.
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, чтобы использовать оператор вставки с TSQL, чтобы создать соединение см.