標題: [發問] 請教:選擇表單後轉寫指定範圍內的值 [打印本頁]

---

作者: minture3    時間: 2015-4-30 17:26     標題: 請教:選擇表單後轉寫指定範圍內的值

本帖最後由 minture3 於 2015-4-30 17:27 編輯

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

請教程式碼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

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)