標題: 關於用getopenfilename讀取xls文件的問題 [打印本頁]

---

作者: bubaby0608    時間: 2011-8-14 12:16     標題: 關於用getopenfilename讀取xls文件的問題

各位大大您好~
小弟想用getopenfilename選擇開啟一xls文件
然後選擇開啟讀取之文件寫入資料到現有的sheet1中
並關閉讀取資料之xls文件留下現有資料sheet1的excel檔案
請問各位大大該如何寫讀取之速度才會比較快呢?

---

作者: oobird    時間: 2011-8-14 14:09

1. Dim fs As String
   
2. 
   
3. fs = Application.GetOpenFilename
   
4. 
   
5. With Workbooks.Open(fs)
   
6. 
   
7. .Sheets("test1").Copy after:=ThisWorkbook.Sheets(Sheets.Count)
   
8. 
   
9. .Close
   
10. 
    
11. End With

複製代碼

---

作者: bubaby0608    時間: 2011-8-14 18:30

回復 2# oobird

感謝大大幫助~想請問有無方法可將資料直接拷貝至執行此程式碼的sheet中
因為現在執行的話是出現在於sheet1之後~新增一個sheet而進行拷貝
可否在執行後直接複製至執行的sheet中呢? 感謝!

---

作者: GBKEE    時間: 2011-8-14 18:40

回復 3# bubaby0608

1. Sub Ex()
   
2.     Dim fs As String
   
3.     fs = Application.GetOpenFilename
   
4.     If fs <> "False" Then
   
5.         With Workbooks.Open(fs)
   
6.             .Sheets(1).UsedRange.Copy ThisWorkbook.Sheets(1).[a1]
   
7.             .Close
   
8.         End With
   
9.     End If
   
10. End Sub

複製代碼

---

作者: bubaby0608    時間: 2011-8-14 18:54

回復 4# GBKEE

感謝大大回答~受教了!:)

---

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