ワークシートのコピー

ワークシートをワークブック内でコピーするには、IWorksheetインタフェースのCopyメソッドを使用します。

	コードのコピー
// GcSpreadSheet ワークブックにアクセスします。 GrapeCity.Spreadsheet.IWorkbook workbook = GcSpreadSheet1.Workbook; // アクティブシートを取得します。 GrapeCity.Spreadsheet.IWorksheet activeWorksheet = GcSpreadSheet1.Workbook.ActiveSheet; // データを設定します。 activeWorksheet.Cells[0, 0].Value = 123; activeWorksheet.Cells[0, 1].Value = 456; activeWorksheet.Cells[0, 2].Value = 789; // アクティブシートを現在のワークブックの末尾にコピーします。 activeWorksheet.Copy(1); GrapeCity.Spreadsheet.IWorksheet copy_worksheet = workbook.Worksheets[1]; copy_worksheet.Name = "Copy of " + activeWorksheet.Name;

コードのコピー

// GcSpreadSheet ワークブックにアクセスします。    
GrapeCity.Spreadsheet.IWorkbook workbook = GcSpreadSheet1.Workbook; 

// アクティブシートを取得します。  
GrapeCity.Spreadsheet.IWorksheet activeWorksheet = GcSpreadSheet1.Workbook.ActiveSheet; 

// データを設定します。
activeWorksheet.Cells[0, 0].Value = 123; 
activeWorksheet.Cells[0, 1].Value = 456; 
activeWorksheet.Cells[0, 2].Value = 789; 

// アクティブシートを現在のワークブックの末尾にコピーします。
activeWorksheet.Copy(1); 

GrapeCity.Spreadsheet.IWorksheet copy_worksheet = workbook.Worksheets[1]; 
                            
copy_worksheet.Name = "Copy of " + activeWorksheet.Name;

	コードのコピー
' GcSpreadSheet ワークブックにアクセスします。 Dim workbook As GrapeCity.Spreadsheet.IWorkbook = GcSpreadSheet1.Workbook ' アクティブシートを取得します。 Dim activeWorksheet As GrapeCity.Spreadsheet.IWorksheet = GcSpreadSheet1.Workbook.ActiveSheet ' データを設定します。 activeWorksheet.Cells(0, 0).Value = 123 activeWorksheet.Cells(0, 1).Value = 456 activeWorksheet.Cells(0, 2).Value = 789 ' アクティブシートを現在のワークブックの末尾にコピーします。 activeWorksheet.Copy(1) Dim copy_worksheet As GrapeCity.Spreadsheet.IWorksheet = workbook.Worksheets(1) copy_worksheet.Name = "Copy of " & activeWorksheet.Name

コードのコピー

' GcSpreadSheet ワークブックにアクセスします。
Dim workbook As GrapeCity.Spreadsheet.IWorkbook = GcSpreadSheet1.Workbook
                            
' アクティブシートを取得します。                     
Dim activeWorksheet As GrapeCity.Spreadsheet.IWorksheet = GcSpreadSheet1.Workbook.ActiveSheet
                            
' データを設定します。                            
activeWorksheet.Cells(0, 0).Value = 123
activeWorksheet.Cells(0, 1).Value = 456
activeWorksheet.Cells(0, 2).Value = 789
                            
' アクティブシートを現在のワークブックの末尾にコピーします。
activeWorksheet.Copy(1)
                            
Dim copy_worksheet As GrapeCity.Spreadsheet.IWorksheet = workbook.Worksheets(1)

copy_worksheet.Name = "Copy of " & activeWorksheet.Name