0

我很好奇VBA中代码的格式是什么......

从特定文件夹子集中的特定工作簿中的特定工作表中获取特定行。

例如：从 Wkbk2 的 Sheet1 中的数据填充 Wkbk1 中的 Sheet1，该数据位于某个共享驱动器中....

有任何想法吗？

编辑：

我意识到这可能是一个模糊的帖子，所以我将尝试更详细地解释。

我正在寻找允许我执行以下操作的代码。

  • 启用 WkBk 1 中的宏以从 WkBk 2 中提取数据。
  • WkBk 2 位于共享驱动器内并且已关闭。
  • 我想从 WkBk 2 中提取特定数据并将该数据填充到 WkBk 1 中的特定行中。
4

1 回答 1

1

下面的代码可以变得更准确或更高效，但它会让你开始：

Option Explicit

Sub PullFromFile()

Dim wkb as Workbook, wkbFrom as Workbook

Set wkb = ThisWorkbook '-> assuming the workbook you want to copy to has code in it
Set wkbFrom = Workbooks.Open("S:\Me\letsshare\thisfile.xlsx")

Dim wks as Worksheet
Set wks = wkbFrom.Sheets("mySpecificSheet")

Dim rng as Range
Set rng  = wks.Rows("1:3") '-> set your specific rows, here

rng.Copy wkb.Sheets("whichSheet").Range("A1") '-> adjust to your settings

wkbFrom.Close False

End Sub
于 2012-10-24T19:25:53.357 回答