Home > Microsoft > [VBA]シートコピー

[VBA]シートコピー

Private Sub copy_all()
    Dim i As Integer

    For i = 1 To 41
        'Worksheets.Add After:=Sheets(Sheets.Count)  '最後にシート作成
        Workbooks("true.xls").Worksheets("書換中").Copy After:=Workbooks("detabase.xls").Sheets("使い方")
        Workbooks("detabase.xls").ActiveSheet.Name = Workbooks("true.xls").Worksheets(1).Cells(i, 4)
        Workbooks("detabase.xls").ActiveSheet.Range("C1") = Workbooks("true.xls").Worksheets(1).Cells(i, 4)
        Workbooks("detabase.xls").ActiveSheet.Range("G2") = "(追加)"
    Next
End Sub

更新@2011.01.04 23:40

タグ: , ,

関連する投稿

Comments:0

Comment Form
Remember personal info

Trackbacks:0

Trackback URL for this entry
http://qooga.jb-jk.net/wp/2009/04/vba_sheet_copy/trackback/
Listed below are links to weblogs that reference
http://qooga.jb-jk.net/wp[VBA]シートコピー from MOT:主にプログラム勉強メモ部屋

Home > Microsoft > [VBA]シートコピー

Search
Option
  • Twitter
  • 絵板
Feeds
commercial
Mobile
Meta
Tag Cloud
TOP10
commercial

Return to page top