Board logo

標題: [發問] 抓取公式中的值 [打印本頁]

作者: g93353    時間: 2012-3-27 18:48     標題: 抓取公式中的值

小弟想請問一下

小弟今天在BOOK1.xls的Hello中    抓取BOOK2.xls中的GOOBYE的cells( 1 , 1 ) 至   Hello的cells( 2, 2 )

但BOOK2.xls 中的SHEET2 的 cells( 1 , 1 ) 是EXCEL的公式 EX: =MIN(F6:F76)

小弟寫的部份程式

   Application.ScreenUpdating = False
   Application.DisplayAlerts = False
   Workbooks.Open "C:\Documents and Settings\host\桌面\BOOK2.xls"
   Workbooks("BOOK2.xls").Sheets("GOOBYE").Cells(1, 1).Copy  Workbooks("BOOK1.xls").Sheets("GOOBYE").Cells(2, 2)
   Workbooks("BOOK2.xls").Close
   Application.ScreenUpdating = True
   Application.DisplayAlerts = True

   小弟成功抓取後  發現公式也會一並被抓取
   但小弟只要抓取公式後的值而已
   所以想請問一下  有沒有只取值而不抓取公式的函數呢 ?
   麻煩請教各位了!!
作者: register313    時間: 2012-3-27 18:55

回復 1# g93353

複製全部
Workbooks("BOOK2.xls").Sheets("GOOBYE").Cells(1, 1).Copy  Workbooks("BOOK1.xls").Sheets("GOOBYE").Cells(2, 2)

複製值
Workbooks("BOOK1.xls").Sheets("GOOBYE").Cells(2, 2)=Workbooks("BOOK2.xls").Sheets("GOOBYE").Cells(1, 1)
作者: kimbal    時間: 2012-3-28 00:40

分兩行
Workbooks("BOOK2.xls").Sheets("GOOBYE").Cells(1, 1).Copy
Workbooks("BOOK1.xls").Sheets("GOOBYE").Cells(2, 2).PasteSpecial Paste:=xlPasteValues

參考一下 選擇性貼上->值, 這個功能相當有用.
當然也可用register313兄的簡單方法




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