带宏的SharePoint+Excel

我正在尝试找出如何将Excel电子表格从映射驱动器移动到SharePoint

我们有一个工程部门，该部门使用此电子表格保存工作和工作编号的活动列表

它分解如下：

用户打开作业跟踪电子表格并输入信息 在最后一个选项卡上，有一个红色按钮，指向另一个Excel工作簿，该工作簿提供下一个可用的作业编号，并在作业跟踪电子表格中生成，红色按钮位于该工作簿中

单击红色按钮时运行的代码：

Private Sub CommandButton1_Click()
    Dim JTS As String
    Dim yRow, UseRow
    Dim Msg, Style, Title, Help, Ctxt, Response, Msg1, Msg2, Msg3

    UnProtect_Files

    If Worksheets("HANDOVER").Range("Job_No") <> "" Then GoTo JobFill1
    If Len(Worksheets("HANDOVER").Range("C4")) < 1 Then GoTo WhereCust1

    JTS = "P:\Job Tracking\Job Tracking Spreadsheet.xls"

    On Error GoTo Lock1

    OpBkNow:
    Workbooks.Open (JTS)

    'Look for available Job# in Job Tracking Spreadsheet

    For yRow = 23 To 10000
    If Workbooks("Job Tracking Spreadsheet.xls").Worksheets("Proposed-Active").Cells(yRow, 2) = "" Then UseRow = yRow: Exit For Next yRow
    'This should never happen, but if there is no available Job#, print msg and exit sub
    If UseRow < 23 Or UseRow > 10000 Then GoTo RowNtFnd


    'Make changes to Job Tracking Spreadsheet
    ThisWorkbook.Worksheets("Formulas").Range("B98") = Workbooks("Job Tracking Spreadsheet.xls").Worksheets("Proposed-Active").Cells(UseRow, 1)
    Workbooks("Job Tracking Spreadsheet.xls").Worksheets("Proposed-Active").Cells(UseRow, 2) = ThisWorkbook.Worksheets("HANDOVER").Range("C4")
    ThisWorkbook.Worksheets("HANDOVER").Range("Job_No") = ThisWorkbook.Worksheets("Formulas").Range("B98")
    Workbooks("Job Tracking Spreadsheet.xls").Worksheets("Proposed-Active").Cells(UseRow, 3) = ThisWorkbook.Worksheets("HANDOVER").Range("D7")

    GoTo QuitSb2

    RowNtFnd:
    Msg = "There are no available Job Numbers in the Job Tracking Spreadsheet.  You will need to manually add one."
    Style = vbOKOnly: Title = "Job Number Not Found": Help = "": Ctxt = 0
    Response = MsgBox(Msg, Style, Title, Help, Ctxt)

    QuitSb2:
    Workbooks("Job Tracking Spreadsheet.xls").Close SaveChanges:=True
    GoTo QuitSb1

    WhereCust1:
    'No Owner Name Given
    Msg = "An entry in the CUSTOMER field is required when generating a Job Number!"
    Style = vbOKOnly: Title = "Need Customer Info - Try Again": Help = "": Ctxt = 0
    Response = MsgBox(Msg, Style, Title, Help, Ctxt)
    GoTo QuitSb1

    JobFill1:
    'There is already a generated job number
    Msg1 = "A Job Number ("
    Msg2 = Worksheets("HANDOVER").Range("Job_No")
    Msg3 = ") has already been generated for this job!"

    Msg = Msg1 & Msg2 & Msg3
    Style = vbOKOnly: Title = "Job Number Exists": Help = "": Ctxt = 0
    Response = MsgBox(Msg, Style, Title, Help, Ctxt)
    GoTo QuitSb1

    Lock1:
    'There is already a generated job number
    Msg1 = "The Job Tracking spreadsheet is currently in use.  "
    Msg2 = "Please try to generate a Job Number later."
    Msg = Msg1 & Msg2
    Style = vbOKOnly: Title = "File In Use": Help = "": Ctxt = 0
    Response = MsgBox(Msg, Style, Title, Help, Ctxt)
    GoTo QuitSb1

    QuitSb1:

    'RER 3-29-05 remove auto file create as per Scott Penatzer request
    'Create_New_File

    Protect_Files
End Sub

换一种方式做这一切可能更容易，但最终企业希望我什么都不做。SharePoint上的多个文档是否可以相互通信并完全避免网络共享？请尽快通知我

---

非常感谢。是的，您可以让文件通过SharePoint进行通信。转到SharePoint中的库，从功能区中单击“在资源管理器中打开”。这将为您提供文件的文件夹位置。您应该能够像映射驱动器位置一样引用该URL，并打开/更新/保存SharePoint文件。祝你好运

欢迎来到Stackoverflow。使用Ctrl-K格式化代码块，并添加一些换行符和缩进。你更有可能得到这样的答案。祝你好运，谢谢。我制作的格式反映了它是代码。希望现在有人能更好地帮助我。我愿意接受所有建议，只是尝试在SharePoint中实现这一点。