[發問] 如何把整張報告表含CheckBox選項一同複製資料轉寫到另一工作表

sillykin

如何把整張報告表含CheckBox選項一同複製資料轉寫到另一工作表

GBKEE

回復 1# sillykin
你有試過用錄製巨集嗎?

luhpro

如何把整張報告表含CheckBox選項一同複製資料轉寫到另一工作表
sillykin 發表於 2013-9-12 20:24

1.   With Sheets("報告表")
   
2.     .Activate
   
3.     .Copy After:=Sheets(Sheets.Count)
   
4.   End With
   
5. 
   
6.   With Sheets(Sheets.Count)
   
7.     .Name = "複製的報告表"
   
8.   End With

複製代碼

sillykin

謝謝大大的回覆.及指導..
我的意思是重新開一個新的工作表提檔案複製過去

sillykin

回復 4# sillykin


    能否在請教..複製資料到另一張工作表..然後在重新另存新檔..檔名以[B6]+[B3]欄位來命名..是否可行呢????

GBKEE

回復 5# sillykin
基本的工作表複製為何不錄製巨集看看語法,自己多練習.

sillykin

巨集試過了..
Range("A1:K73").Select
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
        , Transpose:=False
    ActiveWindow.SmallScroll Down:=63
但是CHECKBOX沒複製過去

GBKEE

回復 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

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