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 に答える