返回列表 上一主題 發帖

複製不帶格式~只要數值

Hsieh

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 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

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

  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
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 人的眼睛長在前面，只看到別人的缺點，絲毫看不到自己的缺點。
返回列表 上一主題