2012-10-24 77 views
0

我很好奇,從未拆封的工作簿信息什麼的代碼在VBA的格式...VBA獲得從共享驅動器

文件夾的特定子集之內從一個特定的工作簿獲得從一個特定的特定紙張行。

例如:從Wkbk2 Sheet 1中的數據,其是在一個共享的驅動某處Wkbk1填充Sheet 1中....

任何想法?

編輯:

我意識到這可能是一個模糊的職位,所以我要去嘗試進一步詳細解釋。

我正在尋找一個代碼,允許我執行以下操作。

  • 啓用從WkBk 1宏來從WkBk 2.
  • WkBk 2位於一個共享驅動器內,並關閉拉數據。
  • 我想從WkBk 2從中選擇特定的數據並填充到數據的特定行中WkBk 1
+1

你的問題到底是什麼?你試過什麼了? – LittleBobbyTables

+0

@LittleBobbyTables我會盡力解釋更好。我的宏到目前爲止有一些基礎知識,但我需要將數據從共享驅動器複製到打開的工作簿。我想複製FROM的工作簿已關閉。假設我的共享驅動器是S:\ Me \ letsshare \ thisfile。這是我想要從中拉出的文件所在的位置,並且從「thisfile」中我想從特定工作表拉取特定行。我不知道我應該用哪個函數來啓動這個過程... – kmiao91

回答

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 
+0

你是先生,是聖人。今天幫我解決了我的兩個問題... – kmiao91