[發問] 請教:選擇表單後轉寫指定範圍內的值

minture3

請教前輩解答
小弟在工作表中做了一個按鈕
點選按鈕後選擇檔案
並將檔案中的資料轉寫到工作表中
資料型式如下"(資料型式固定要從A8抓到由M8開始的最後一格)

下載 (45.95 KB)

2015-4-30 17:22

工作表:

下載 (97.64 KB)

2015-4-30 17:23

完成後希望如此:

下載 (162.97 KB)

2015-4-30 17:23

請教程式碼11:16應該如何修正

1. Sub 選擇活頁簿之後轉寫()
   
2.     Dim myName As Variant, myBook As Workbook
   
3.     Dim copyRange As Range, pasteRange As Range, myList As Variant
   
4.     myList = Application.GetOpenFilename( _
   
5.         FileFilter:="小計用活頁簿,*.xlsx", _
   
6.         Title:="請選擇要統整的活頁簿", _
   
7.         MultiSelect:=True)
   
8.     If IsArray(myList) = False Then
   
9.         MsgBox "尚未選取任何檔案"
   
10.     Else
    
11.         For Each myName In myList
    
12.             Set pasteRange = Range("K8:W438")
    
13.             Set myBook = Workbooks.Open(Filename:=myName)
    
14.             Set copyRange = copyRange("A8:M27")
    
15.             copyRange.Copy pasteRange
    
16.             myBook.Close
    
17.         Next
    
18.     End If
    
19. End Sub

複製代碼