我的代码的前半部分工作正常，但对emptyrow2的评估维护了第一个工作簿的行数。显然，它们的数量不一样。
我不能在sub中做另一个sub（或者我可以吗？还有另一种格式可以用来做一个独立的子集吗？），但我似乎找不到重置行数本身的方法。
如何重置第二个工作簿的过程？
Option Explicit
Private Sub CommandButton1_Click()
Dim AirSN As String, OilSN As String, DashNo As Single, Torque As String, PlateDeg As String, ShimDeg As String, ClampDeg As String
Dim OilArrow As String, AirArrow As String, Coning As String, Wavi As String, Comment As String, PlotDate As Date
Dim emptyrow1 As Long, emptyrow2 As Long, Summary As Variant, Master As Variant
AirSN = Range("F11")
OilSN = Range("F7")
Torque = Range("F2")
DashNo = Range("B2")
PlateDeg = Range("F3")
ShimDeg = Range("F4")
ClampDeg = Range("F5")
OilArrow = Range("F8")
AirArrow = Range("F12")
Comment = Range("F22")
PlotDate = Range("B9")
Coning = Worksheets("Coning").Range("B12")
Wavi = Worksheets("Coning").Range("B14")
Summary = Application.GetOpenFilename(, , "Select Summary File to Open")
If Summary = False Then
MsgBox "Nothing Chosen"
Else
MsgBox "You chose " & Summary
End If
Workbooks.Open Summary
'Find next empty row in Summary Sheet
emptyrow1 = Worksheets("ALL").Cells(Rows.count, 1).End(xlUp).Offset(1, 0).Row
'Annotate Summary with new iteration
Worksheets("ALL").Cells(emptyrow1, 1).Value = DashNo
Worksheets("ALL").Cells(emptyrow1, 2).Value = AirSN
Worksheets("ALL").Cells(emptyrow1, 3).Value = OilSN
Worksheets("ALL").Cells(emptyrow1, 4).Value = AirArrow
Worksheets("ALL").Cells(emptyrow1, 5).Value = OilArrow
Worksheets("ALL").Cells(emptyrow1, 6).Value = PlateDeg
Worksheets("ALL").Cells(emptyrow1, 7).Value = ClampDeg
Worksheets("ALL").Cells(emptyrow1, 8).Value = ShimDeg
Worksheets("ALL").Cells(emptyrow1, 9).Value = Torque
Worksheets("ALL").Cells(emptyrow1, 10).Value = Coning
Worksheets("ALL").Cells(emptyrow1, 11).Value = Wavi
Worksheets("ALL").Cells(emptyrow1, 12).Value = Comment
Worksheets("ALL").Cells(emptyrow1, 13).Value = PlotDate
ActiveWorkbook.Save
ActiveWorkbook.Close
Workbooks.Open "U:\trib\_R&D Development Lab\_R&D Test Hardware\Coning-Waviness MASTER.xlsx"
'Find next empty row in Master Summary Sheet
emptyrow2 = Worksheets("MASTER").Cells(Rows.count, 1).End(xlUp).Offset(1, 0).Row
'Annotate Summary with new iteration
Worksheets("MASTER").Cells(emptyrow2, 1).Value = DashNo
Worksheets("MASTER").Cells(emptyrow2, 2).Value = AirSN
Worksheets("MASTER").Cells(emptyrow2, 3).Value = OilSN
Worksheets("MASTER").Cells(emptyrow2, 4).Value = AirArrow
Worksheets("MASTER").Cells(emptyrow2, 5).Value = OilArrow
Worksheets("MASTER").Cells(emptyrow2, 6).Value = PlateDeg
Worksheets("MASTER").Cells(emptyrow2, 7).Value = ClampDeg
Worksheets("MASTER").Cells(emptyrow2, 8).Value = ShimDeg
Worksheets("MASTER").Cells(emptyrow2, 9).Value = Torque
Worksheets("MASTER").Cells(emptyrow2, 10).Value = Coning
Worksheets("MASTER").Cells(emptyrow2, 11).Value = Wavi
Worksheets("MASTER").Cells(emptyrow2, 12).Value = Comment
Worksheets("MASTER").Cells(emptyrow2, 13).Value = PlotDate
ActiveWorkbook.Save
ActiveWorkbook.Close
End
MsgBox "Summary Updates Successful"
End Sub
答案 0 :(得分：0)
您的代码中没有明显的缺陷
但正如您已在评论中读到的那样，您必须避免依赖 Active 对象（workbook，worksheet），同时明确引用它们
所以您的代码可以按如下方式重写
Private Sub CommandButton1_Click()
Summary = Application.GetOpenFilename(, , "Select Summary File to Open")
If Summary = False Then
MsgBox "Nothing Chosen"
Else
MsgBox "You chose " & Summary
End If
Dim AirSN As String, OilSN As String, DashNo As Single, Torque As String, PlateDeg As String, ShimDeg As String, ClampDeg As String
Dim OilArrow As String, AirArrow As String, Coning As String, Wavi As String, Comment As String, PlotDate As Date
Dim emptyrow1 As Long, emptyrow2 As Long, Summary As Variant, Master As Variant
With Worksheets("Coning")
AirSN = .Range("F11")
OilSN = .Range("F7")
Torque = .Range("F2")
DashNo = .Range("B2")
PlateDeg = .Range("F3")
ShimDeg = .Range("F4")
ClampDeg = .Range("F5")
OilArrow = .Range("F8")
AirArrow = .Range("F12")
Comment = .Range("F22")
PlotDate = .Range("B9")
Coning = .Range("B12")
Wavi = .Range("B14")
End With
With Workbooks.Open(Summary)
With .Worksheets("ALL")
'Find next empty row in Summary Sheet
emptyrow1 = .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).row
'Annotate Summary with new iteration
.Cells(emptyrow1, 1).Value = DashNo
.Cells(emptyrow1, 2).Value = AirSN
.Cells(emptyrow1, 3).Value = OilSN
.Cells(emptyrow1, 4).Value = AirArrow
.Cells(emptyrow1, 5).Value = OilArrow
.Cells(emptyrow1, 6).Value = PlateDeg
.Cells(emptyrow1, 7).Value = ClampDeg
.Cells(emptyrow1, 8).Value = ShimDeg
.Cells(emptyrow1, 9).Value = Torque
.Cells(emptyrow1, 10).Value = Coning
.Cells(emptyrow1, 11).Value = Wavi
.Cells(emptyrow1, 12).Value = Comment
.Cells(emptyrow1, 13).Value = PlotDate
End With
.Close SaveChanges:=True
End With
With Workbooks.Open("U:\trib\_R&D Development Lab\_R&D Test Hardware\Coning-Waviness MASTER.xlsx")
With .Worksheets("MASTER")
'Find next empty row in Master Summary Sheet
emptyrow2 = .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).row
'Annotate Summary with new iteration
.Cells(emptyrow2, 1).Value = DashNo
.Cells(emptyrow2, 2).Value = AirSN
.Cells(emptyrow2, 3).Value = OilSN
.Cells(emptyrow2, 4).Value = AirArrow
.Cells(emptyrow2, 5).Value = OilArrow
.Cells(emptyrow2, 6).Value = PlateDeg
.Cells(emptyrow2, 7).Value = ClampDeg
.Cells(emptyrow2, 8).Value = ShimDeg
.Cells(emptyrow2, 9).Value = Torque
.Cells(emptyrow2, 10).Value = Coning
.Cells(emptyrow2, 11).Value = Wavi
.Cells(emptyrow2, 12).Value = Comment
.Cells(emptyrow2, 13).Value = PlotDate
End With
.Close SaveChanges:=True
End With
MsgBox "Summary Updates Successful"
End Sub
请注意我在With Worksheets("Coning")中附带的大部分结果都是我的猜测：检查并在必要时更改这些范围的实际参考表