返回列表 上一主題 發帖

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

minture3

帖子
50 
主題
8 
精華
0 
積分
54 
點名
0  
作業系統
windows7 
軟體版本
EXCEL 2007 
閱讀權限
20 
性別
男 
註冊時間
2015-3-24 
最後登錄
2015-7-13 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-4-30 17:26 | 只看該作者

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

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

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

工作表:

完成後希望如此:


請教程式碼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
複製代碼
收藏 分享

        靜思自在 : 能幹不幹，不如苦幹實幹。
返回列表 上一主題