標題: [發問] 指定EXCEL~ 將資料匯出 [打印本頁]

---

作者: hugh0620    時間: 2012-3-8 11:42     標題: 指定EXCEL~ 將資料匯出

Dear 大大們

我在已開的檔案中~ 要將資料匯到指定的檔案中~ (以前沒寫過這樣的方式)

下面是我寫的程式碼~ 但是要貼到指定的檔案中時~ 確發生錯誤~ 請大大指導一下~

1. Private Sub CommandButton1_Click()
   
2. 
   
3. patch = Application.GetOpenFilename("Microsoft Excel 活頁簿 (*.xls), *.xls")
   
4. If patch = False Then
   
5.     Exit Sub
   
6. Else
   
7.         With ThisWorkbook
   
8.              Sheet6.Range("A10:N10").Select
   
9.              Sheet6.Range(Selection, Selection.End(xlDown)).Copy
   
10.             
    
11.             With Workbooks.Open(patch)
    
12.             Paste .Sheet1.Range("A65536").End(xlUp).OFFST(1, 0)
    
13.            End With
    
14.         End With
    
15. End If
    
16. End Sub

複製代碼

---

作者: hugh0620    時間: 2012-3-8 12:53

回復 1# hugh0620

呵呵~ 原來不困難
只要寫成下面這樣就可以了~

1. Private Sub CommandButton1_Click()
   
2. 
   
3. patch = Application.GetOpenFilename("Microsoft Excel 活頁簿 (*.xls), *.xls")
   
4. If patch = False Then
   
5.     Exit Sub
   
6. Else
   
7.     Sheet6.Range("A10:N10").Select
   
8.     Sheet6.Range(Selection, Selection.End(xlDown)).Copy Workbooks.Open(patch).Sheets(1).Range("A65536").End(xlUp).Offset(1, 0)
   
9. End If
   
10. 
    
11. End Sub

複製代碼

---

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