ashan0418

回復 4# xoofer

略做修改，您試試!!

1. Sub fpath()
   
2.     Dim total As Integer
   
3.     Dim fpath As String
   
4.    
   
5.     For i = 1 To 2
   
6.         fpath = ThisWorkbook.ActiveSheet.Cells(i, 1)
   
7.         Workbooks.Open (fpath)
   
8.     Next
   
9. End Sub

複製代碼