我想知道是否可以将在Excelsheet“ say excel1”中的用户表单上输入的数据传输到位于SharePoint中的工作簿Excel文件中?
我已经附上了我试图制作用户表单的代码,但是我能够在同一张Excel工作表中执行操作,但是无法将数据传输到SharePoint中的其他Excel工作表中。
在这里,我想在用户单击第一个Excel工作表时创建宏,用户窗体应打开,用户填写该表单并将数据保存到Excel工作表中,该数据应直接转到SharePoint Excel工作簿。
感谢您的回复!
Private Sub btnend_Click()
Unload Me
End Sub
Private Sub btnsave_Click()
Dim ssheet As Worksheet 'giving Name to the sheet
Set ssheet = Worksheets("Sheet1") 'selecting the worksheet to Transfer data
Dim nr
nr = ssheet.Cells(Rows.Count, 1).End(xlUp).Row 'giving row Count to collect data from userform
nr = nr + 1
ssheet.Cells(nr, 1) = CDate(Me.tbDate)
ssheet.Cells(nr, 2) = Me.tbLS
ssheet.Cells(nr, 3) = Me.tbProject
ssheet.Cells(nr, 4) = Me.tbbase
ssheet.Cells(nr, 5) = Me.tbrequest
ssheet.Cells(nr, 6) = Me.tbtask
ssheet.Cells(nr, 7) = Me.tbtools
End Sub
Private Sub UserForm_Initialize()
Me.tbDate = Date
'fill boxes
End Sub