返回列表 上一主題 發帖

[發問] 如何依照清單順序開檔後編輯檔案

回復 1# linlin00


    Workbooks.Open要完整的路徑和檔名,但 Workbooks("活頁簿名稱")?不用路徑,?只要檔名就可以
如下程式解釋:
  1.     For i = 1 To 2
  2.         fpath = ThisWorkbook.ActiveSheet.Cells(i, 1) '路徑 "C:\Documents and Settings\Administrator\My Documents\"
  3.         ffile = ThisWorkbook.ActiveSheet.Cells(i, 2) '檔名 "vbatest2.xls"
  4.         Workbooks.Open (fpath & ffile)
  5.         Workbooks("ffile").Sheets ("工作表1")...
  6.         ...
  7.         ...其內容自行填補
  8.         ...
  9.         ...
  10.         Workbooks("ffile").Close True
  11.     Next
複製代碼

TOP

        靜思自在 : 君子立恆志,小人恆立志。
返回列表 上一主題