Question

我很想知道VBA中的代码格式是什么......

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

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

有什么想法吗？

编辑：

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

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

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

Answer 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

VBA从未打开的工作簿中获取共享驱动器中的信息

1 个答案: