从本地Excel复制并粘贴到在线Excel的宏

时间:2019-04-10 15:51:49

标签: excel vba excel-online

请确认是否有可能...

我有一个由5人组成的团队。我们每个人都有用作项目跟踪程序的本地excel文件。我们希望在OneDrive上的Excel Online中使用主项目跟踪器进行高层协作,但将继续单独使用我们的本地跟踪器来更新有关每个项目的更多详细信息。

我了解Excel Online无法运行宏。但是,我们的本地文件是否有可能每个运行一个宏,以将我们每周的项目更新自动复制并粘贴到Excel Online中的此主跟踪器中?

我还没有发现任何东西。我想知道是否有可能做到这一点,或者是否有人能为我们所需的解决方案提供更好的解决方案。

下面是将代码从一个工作簿复制并粘贴到另一个工作簿的代码。如何更改它以复制并粘贴到Excel Online Workbook?如果可能的话。

Sub Copy_Paste_Below_Last_Cell()
'Find the last used row in both sheets and copy and paste data below existing data.

Dim wsCopy As Worksheet
Dim wsDest As Worksheet
Dim lCopyLastRow As Long
Dim lDestLastRow As Long

  'Set variables for copy and destination sheets
  Set wsCopy = Workbooks("New Data.xlsx").Worksheets("Export 2")
  Set wsDest = Excel Online Workbook

  '1. Find last used row in the copy range based on data in column A
  lCopyLastRow = wsCopy.Cells(wsCopy.Rows.Count, "A").End(xlUp).Row

  '2. Find first blank row in the destination range based on data in column A
  'Offset property moves down 1 row
  lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1).Row

  '3. Copy & Paste Data
  wsCopy.Range("A2:D" & lCopyLastRow).Copy _
    wsDest.Range("A" & lDestLastRow)

0 个答案:

没有答案