我想知道是否可以将Excel表格中的用户表单上输入的数据(例如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