与多个用户共享的宏不会复制/粘贴到工作簿中

Question

我和几个同事每两周从导出的数据中格式化报告。我想创建一个宏，我可以分发给每个人，他们所做的就是在他们导出到本地机器的数据上尽可能少的步骤运行宏。我创建了一个宏，但我无法让它工作，因为目标工作簿（thisworkbook.activeSheet）是我的“personal.xlsb”（位于“xlstart”文件夹中并承载宏），而不是它需要的工作簿（每个人每周都会更改）。主要问题是，每当我运行宏时，来自“end_of_report.xlsx”的数据将不会复制和粘贴，因为它试图粘贴到“personal.xlsb”。

例如，我是位置2，萨利是位置3。我们都需要运行1月1日至1月7日的报告，因此将运行的文件（工作簿）对于my的位置是“jan1-jan7_1.xlsx”，对于Sally的位置是“jan1-jan7_2.xlsx”，并且两者都只包含“sheet1”。

当我打开visual basic时，打开的项目是“vbaProject(jan1-jan72.xlsx)”和“vbaProject(personal.xlsb)”，下面是模块1、模块2、Sheet1、thisworkbook。模块1用于位置1，模块2用于位置2。每当我尝试运行适当的宏时，它将执行所有操作，但将复制和粘贴我在宏中打开和关闭的工作簿中的数据。

子位置_one_trans()

Application.ScreenUpdating = False
Application.Calculation = xlCalculationAutomatic

Workbooks.Open "\\FILEPATH\END_OF_REPORT.xlsx"

Dim wsCopy As Worksheet
Dim wsDest As Worksheet
Dim CopyLastRow As Long
Dim DestLastRow As Long

'Replace 1 with appropriate location
Set wsCopy = Workbooks("END_OF_REPORT.xlsx").Worksheets("1")
Set wsDest = ThisWorkbook.ActiveSheet

CopyLastRow = wsCopy.Cells(wsCopy.Rows.Count, "A").End(xlUp).Row
DestLastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1).Row

wsCopy.Range("A1:E" & CopyLastRow).Copy _
    wsDest.Range("A" & DestLastRow)
Workbooks("END_OF_REPORT.xlsx").Close SaveChanges:=False

ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range _
    ("A:A"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
    xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

Cells.Select

With Selection.Font
    .Name = "Arial"
    .Size = 12
    .Strikethrough = False
    .Superscript = False
    .Subscript = False
    .OutlineFont = False
    .Shadow = False
    .Underline = xlUnderlineStyleNone
    .ThemeColor = xlThemeColorLight1
    .TintAndShade = 0
    .ThemeFont = xlThemeFontNone
End With

.....昏暗范围选举为范围昏暗cellCurrent为范围

Set rangeSelection = Application.Selection.Columns(1).Cells
ActiveSheet.ResetAllPageBreaks

For Each cellCurrent In rangeSelection
    If (cellCurrent.Row > 1) Then
        If (cellCurrent.Value <> cellCurrent.Offset(-1, 0).Value) Then
            ActiveSheet.Rows(cellCurrent.Row).PageBreak = _
                xlPageBreakManual
        End If
    End If
Next cellCurrent
Selection.RowHeight = 36.6
Cells.EntireColumn.AutoFit
Application.WindowState = xlMaximized
ActiveWindow.Zoom = 50
ActiveSheet.Range("A1").Select
ActiveWorkbook.Save

末端接头

我应该与我的同事共享宏，这样他们只需要打开运行宏所需的工作簿，启用宏，因为他们将此宏保存到他们的“xlstart”中，然后运行宏。实际发生的情况是，当任何人运行宏时，工作表正在格式化，但复制/粘贴的数据没有将其写入正确的工作簿（即jan1-jan72.xlsx)

Answer 1

ThisWorkbook始终引用代码所在的文件。这就是为什么set wsDest=thisworkbook.activeSheet行将您的personal.xlsb设置为目标。