Excel VBA宏復制單元格並粘貼到另一個

Question

我向您道歉...

我是一個狂熱的Excel用戶，但不熟悉VBA。 任何幫助表示贊賞。

1. 我需要用戶以ddmmyyyy格式輸入日期。
2. 打開基於該ddmmyyyy信息的工作簿（將其與文件名連接）。
3. 復制該工作簿（AN1：AS1）中特定范圍的單元格。
4. 將復制的單元格粘貼到另一個工作簿中。 它應該粘貼在用戶輸入的日期旁邊。

這是我到目前為止嘗試過的代碼：

dim input as string
input = inputbox("Insert date in format ddmmyyyy")
Workbooks.open (""\\vmp-avayaacc\reports\servicedesk\Josh\Agent By Skillset Performance" & input & "1155.csv"")
Workbooks("(""\\vmp-avayaacc\reports\servicedesk\Josh\Agent By Skillset Performance" & input & "1155.csv"")).Worksheets("Sheet1").Range("AN1:AS1").Copy _
    Workbooks("http://sharepoint.coh.org/SiteDirectory/ITS/BO/Dashboard.xls").Worksheets("Sheet1").Range("A1")

有人可以幫我做這個工作嗎？ 謝謝。

Answer 1

您可以將最后一行更改為Range("A2") ：

Workbooks(""\\vmp-avayaacc\reports\servicedesk\Josh\Agent By Skillset Performance" & input & "1155.csv"").Worksheets("Sheet1").Range("AN1:AS1").Copy _
Workbooks("http://sharepoint.coh.org/SiteDirectory/ITS/BO/Dashboard.xls").Worksheets("Sheet1").Range("A2")

然后將其前面的日期添加到單元格A1中：

Workbooks("http://sharepoint.coh.org/SiteDirectory/ITS/BO/Dashboard.xls").Worksheets("Sheet1").Range("A1").Value=input

希望這可以幫助。

Answer 2

將此代碼復制到已啟用宏的工作表的VBA窗口中，然后F5執行該代碼或將其作為宏分配給按鈕或其他控件對象：

  Public Sub CopyCells()
      Dim wkb         As Excel.Workbook
      Dim wks         As Excel.Worksheet
      Dim wkb2        As Excel.Workbook
      Dim wks2        As Excel.Worksheet
      Dim strMSG      As String

      strMSG = InputBox("Insert date in format ddmmyyyy")

      Set wkb = Excel.Workbooks.Open("\\vmp-avayaacc\reports\servicedesk\Josh\Agent By Skillset Performance" & strMSG & "1155.csv")

      Set wkb2 = Excel.Workbooks.Open("http://sharepoint.coh.org/SiteDirectory/ITS/BO/Dashboard.xls")

      Set wks = wkb.Worksheets("Sheet1"): wks.Activate

      wks.Range("AN1:AS1").Copy

      Set wks2 = wkb2.Worksheets("Sheet1")

      wks2.Range("A1").PasteSpecial xlPasteAll

      Set wks = Nothing: Set wkb = Nothing

      set wks2 = nothing: set wkb2 = nothing
  End Sub