複製不帶格式~只要數值

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

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

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

2^#

發表於 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

學習才能提升自己

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 255
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

3^#

發表於 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