VBA实现数据从一个表格导入到桌面上另外一个表格

ztsss161511

大神们，本人菜鸟，主要想实现以下功能：
点击按钮后，数据由“当班.xlsx”导入到“台帐.xlsx”（A4:I17），数据顺序继续往下粘贴，不覆盖“台账“”中其他数据，日期就是点击按钮时刻的当前的日期。
“台帐.xlsx”就在桌面（C:\Users\Max\Desktop）和路径有关系吗？还是导入时候把台帐全部打开。

leirongqin

看附件   点按钮就可以

gwjkkkkk

Sub TEST()
    Dim arr, brr, i&, j&, iRow&, R&, strFileName$
    Application.ScreenUpdating = False
    With Range("A1").CurrentRegion
        arr = Intersect(.Offset(), .Offset(3))
    End With
    ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2) + 2)
    strFileName = GetDesktopPath & "台帐.xlsx"
        Workbooks.Open (strFileName)
        iRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
        R = iRow - 3
        For i = 1 To UBound(arr)
           R = R + 1
           brr(i, 1) = R: brr(i, 2) = Format(Now(), "yyyy.m.d")
           For j = 1 To UBound(arr, 2)
              brr(i, j + 2) = WorksheetFunction.Round(arr(i, j), 2)
           Next j
        Next i
        Cells(iRow, 1).Resize(UBound(brr), UBound(brr, 2)) = brr
        With [a1].CurrentRegion
            .HorizontalAlignment = xlCenter
            .Borders.LineStyle = xlContinuous
            .EntireColumn.AutoFit
            .EntireRow.AutoFit
        End With
        ActiveWorkbook.Close True
    Application.ScreenUpdating = True
    Beep
End Sub
Function GetDesktopPath()
   GetDesktopPath = CreateObject("Wscript.Shell").specialfolders("Desktop") & "\"
End Function

gwjkkkkk

请保证桌面上有台帐.xlsx的文件，然后运行程序，请参考。。。

ztsss161511

感谢大佬们！~~~