Excel -Macro-基于date值复制和粘贴数据

我发现了下面的代码，它工作的很好; 但是，我必须手动更改月份，以便它转到第二个工作簿上的右侧工作表。 由于床单在几个月内，我怎样才能使它自动更改为当前月份？

Sub AlarmSheet() Dim wkb As Workbook, wks As Worksheet, LastRow As Long Dim FilePath As String, FileName As String Dim ws As Worksheet, blnOpened As Boolean 'Change these variables as desired... FilePath = "B:\CARECENT\28 Day\" 'change path here FileName = "Installs_Removals_2016.xlsm" 'change name here Call ToggleEvents(False) Set ws = ThisWorkbook.Sheets("SHA") 'change source sheet name here If WbOpen(FileName) = True Then Set wkb = Workbooks(FileName) blnOpened = False Else If Right(FilePath, 1) <> Application.PathSeparator Then FilePath = FilePath & Application.PathSeparator End If Set wkb = Workbooks.Open(FilePath & FileName) blnOpened = True End If Set wks = wkb.Sheets("June") 'change destination sheet name here LastRow = wks.Cells.Find(what:="*", after:=wks.Cells(1, 1), searchorder:=xlByRows, searchdirection:=xlPrevious).Row + 1 wks.Cells(LastRow, "A").Value = ws.Cells(63, "B").Value wks.Cells(LastRow, "B").Value = ws.Cells(6, "B").Value wks.Cells(LastRow, "C").Value = ws.Cells(7, "B").Value wks.Cells(LastRow, "I").Value = ws.Cells(9, "B").Value '& "," & ws.Cells(10, "B").Value & "," & ws.Cells(11, "B").Value wks.Cells(LastRow, "J").Value = ws.Cells(10, "B").Value wks.Cells(LastRow, "N").Value = ws.Cells(11, "B").Value wks.Cells(LastRow, "O").Value = ws.Cells(15, "B").Value wks.Cells(LastRow, "P").Value = ws.Cells(60, "B").Value If blnOpened = True Then wkb.Close SaveChanges:=True End If 'If MsgBox("Clear values?", vbYesNo, "CLEAR?") = vbYes Then 'Call ClearData End If Call ToggleEvents(True) End Sub 

Answer 1

您可以用Format(Date, "mmmm")replace“June”，这会给你当前date的月份。