Board logo

標題: [發問] 如何把整張報告表含CheckBox選項一同複製資料轉寫到另一工作表 [打印本頁]
作者: sillykin    時間: 2013-9-12 20:24     標題: 如何把整張報告表含CheckBox選項一同複製資料轉寫到另一工作表

本帖最後由 sillykin 於 2013-9-12 20:25 編輯

如何把整張報告表含CheckBox選項一同複製資料轉寫到另一工作表
作者: GBKEE    時間: 2013-9-12 20:41

回復 1# sillykin
你有試過用錄製巨集嗎?
作者: luhpro    時間: 2013-9-12 21:31

如何把整張報告表含CheckBox選項一同複製資料轉寫到另一工作表
sillykin 發表於 2013-9-12 20:24
  1.   With Sheets("報告表")
  2.     .Activate
  3.     .Copy After:=Sheets(Sheets.Count)
  4.   End With

  6.   With Sheets(Sheets.Count)
  7.     .Name = "複製的報告表"
  8.   End With
複製代碼
作者: sillykin    時間: 2013-9-12 22:38

謝謝大大的回覆.及指導..
我的意思是重新開一個新的工作表提檔案複製過去
作者: sillykin    時間: 2013-9-13 00:10

回復 4# sillykin


    能否在請教..複製資料到另一張工作表..然後在重新另存新檔..檔名以[B6]+[B3]欄位來命名..是否可行呢????
作者: GBKEE    時間: 2013-9-13 05:49

回復 5# sillykin
基本的工作表複製為何不錄製巨集看看語法,自己多練習.
作者: sillykin    時間: 2013-9-13 07:55

巨集試過了..
Range("A1:K73").Select
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
        , Transpose:=False
    ActiveWindow.SmallScroll Down:=63
但是CHECKBOX沒複製過去
作者: GBKEE    時間: 2013-9-13 08:46

回復 7# sillykin
是要複製整張工作表,CheckBox才可複製到
  1. Sub Ex()
  2.     Dim xPath As String
  3.     xPath = "d:\"
  4.     Workbooks("報告.xls").Sheets("報告表").Copy
  5.     With ActiveWorkbook
  6.       '  .SaveAs (xPath & .ActiveSheet.[b6] & .ActiveSheet.[b3])
  7.         .ActiveSheet.Name = .ActiveSheet.[b6] & .ActiveSheet.[b3]
  8.     End With
  9. End Sub
複製代碼
作者: sillykin    時間: 2013-9-13 19:23

謝謝大大的指導..我會用心學的..



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