標題: 複製不帶格式~只要數值 [打印本頁]

---

作者: imzues    時間: 2011-4-12 17:16     標題: 複製不帶格式~只要數值

請教各位大大，這樣寫哪邊有問題
不太會寫程式~請教各位


Sub Ex()
    Dim MySheet As Worksheet

    Set MySheet = ActiveSheet

    With Workbooks.Open("d:\test\外部資料.xls")
   
    With Sheets("4月").Range("M9:AF9")
   
        .MySheet.Range("B6").End(xlDown).Offset(1, 0) = .Value
      
        .Close 0

    End With

    End With

'
End Sub

---

作者: hugh0620    時間: 2011-4-12 17:51

GBKEE 大大在我問的相同問題的回覆
Sub Ex()
    With Sheet1.Range("K4")
        Sheet1.Range("E4").End(xlDown).Offset(1, 0) = .Value
    End With
End Sub

---

作者: Hsieh    時間: 2011-4-12 18:16

回復 1# imzues


    Sub Ex()
    Dim MySheet As Worksheet

    Set MySheet = ActiveSheet'當前作用中的工作表設給變數

    With Workbooks.Open("d:\test\外部資料.xls")"開啟檔案，此時作用中工作表為開啟檔案後的工作表，不要跟MySheet混淆了
   
    With Sheets("4月").Range("M9:AF9")'這會指定到外部資料.xls的Sheets("4月").工作表中M9:AF9範圍
   
        .MySheet.Range("B6").End(xlDown).Offset(1, 0) = .Value'此行就會產生錯誤，因為外部資料.xls的Sheets("4月").工作表中M9:AF9不可能包含到 MySheet，MySheet的物件階層是SHEET，而此區段中.的敘述必須是SHEET階層下的物件
      
        .Close 0  '外部資料.xls的Sheets("4月").工作表中M9:AF9範圍不可能圍關檔動作


    End With

    End With

'
End Sub

1.     Sub Ex()
   
2.     Dim MySheet As Worksheet
   
3. 
   
4.     Set MySheet = ActiveSheet'當前作用中的工作表設給變數
   
5. 
   
6. With Workbooks.Open("d:\test\外部資料.xls")   
   
7.     With Sheets("4月").Range("M9:AF9")'這會指定到外部資料.xls的Sheets("4月").工作表中M9:AF9範圍  
   
8.         MySheet.Range("B6").End(xlDown).Offset(1, 0).Resize( , .Count) = .Value      
   
9.     End With
   
10.         .Close 0   
    
11. End With
    
12. End Sub

複製代碼

---

作者: imzues    時間: 2011-4-13 09:56

MySheet.Range("B6").End(xlDown).Offset(1, 0).Resize( , .Count) = .Value      

請問一下大大RESIZE這括號裡的指的是什麼?

---

作者: GBKEE    時間: 2011-4-13 14:04

回復 4# imzues
MySheet.Range("B6").End(xlDown).Offset(1, 0).Resize(列數 ,欄數) = .Value

---

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