如何使用VBA将数据从一个excel工作表中的用户表单传输到共享点中其他excel文件的工作簿中?

时间:2018-08-10 07:10:02

标签: excel vba excel-vba sharepoint

我想知道是否可以将在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

0 个答案:

没有答案