Question

在我的Excel工作表上，我有一个命令按钮（GrabMyData），它可以抓取数据并将数据复制到工作簿（thisWB）上。现在，当我按下此命令按钮时，数据会显示在“最上面的行”上。列。但是，在excel VBA编辑器上，当我按下run / sub userform播放按钮时，数据会进入最后一行＆＃39;列上的数据，这就是我想要的。那么，为什么我的命令按钮没有执行运行/子播放按钮正在做什么？我认为他们都做同样的功能。请注意，我已将宏命令按钮正确分配给相关工作簿。请指教。

Sub GrabMyData()
  Dim myWB As Workbook
  Dim thisWB As Workbook
  Dim thisWS As Worksheet
  Dim lastRow As String

  Application.ScreenUpdating = False

  Set myWB =  Workbooks.Open("C:\Users\jjordan\Local\Microsoft\Windows\Temporary Internet Files\Content.Outlook\GTER232\TEST.csv")

  myWB.Sheets("Sheet 1").Range("A8:F17").Copy

  Set thisWB = ThisWorkbook
  Set thisWS = ThisWorkbook.Sheets("Sheet 5")

  thisWB.Activate

  lastRow = ActiveSheet.Cells(Rows.Count, "H").End(xlUp).Row

  thisWS.Range("H" & lastRow).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
With Application
    .CutCopyMode = False
    .ScreenUpdating = True
  End With

 myWB.Close


End Sub

Answer 1

您是否尝试将 thisworkbook 更改为工作簿（“工作簿名称”）？

命令按钮和运行/子用户表单按钮不同步

1 个答案: