// 新規ワークブックの作成 var workbook = new GrapeCity.Documents.Excel.Workbook(); // リソースから"Home inventory.xlsx"テンプレートファイルを読み込む GrapeCity.Documents.Excel.Workbook source_workbook = new GrapeCity.Documents.Excel.Workbook(); var source_fileStream = this.GetResourceStream("xlsx\\Home inventory.xlsx"); source_workbook.Open(source_fileStream); // グリッド線を隠す workbook.ActiveSheet.SheetView.DisplayGridlines = false; workbook.ActiveSheet.Range["A1"].Value = "ソースワークブックの最初のシートからコンテンツをコピー"; workbook.ActiveSheet.Range["A1"].Font.Color = Color.Red; workbook.ActiveSheet.Range["A1"].Font.Bold = true; var pasteOption = new PasteOption(); pasteOption.PasteType = PasteType.Default | PasteType.RowHeights | PasteType.ColumnWidths; source_workbook.ActiveSheet.GetUsedRange().Copy(workbook.ActiveSheet.Range["A2"], pasteOption); workbook.ActiveSheet.Range["C21"].Value = "ソースワークブックの２番目のシートからコンテンツを切り取る"; workbook.ActiveSheet.Range["C21"].Font.Color = Color.Red; workbook.ActiveSheet.Range["C21"].Font.Bold = true; // ソースワークブックの２番目のシートの内容を切り取り、現在のシートのC22に貼り付ける source_workbook.Worksheets[1].Range["2:15"].Cut(workbook.ActiveSheet.Range["C22"]); // ２つのワークブックのテーマを同じにする workbook.Theme = source_workbook.Theme; // xlsx ファイルに保存 workbook.Save("CutCopyRangeBetweenWorkbooks.xlsx");
' 新規ワークブックの作成 Dim workbook As New Workbook ' リソースから"Home inventory.xlsx"テンプレートファイルを読み込むを読み込む Dim source_workbook As New Excel.Workbook Dim source_fileStream = GetResourceStream("Home inventory.xlsx") source_workbook.Open(source_fileStream) ' グリッド線を隠す workbook.ActiveSheet.SheetView.DisplayGridlines = False workbook.ActiveSheet.Range!A1.Value = "ソースワークブックの最初のシートからコンテンツをコピー" workbook.ActiveSheet.Range!A1.Font.Color = Color.Red workbook.ActiveSheet.Range!A1.Font.Bold = True ' ソースワークブックからアクティブワークシートの内容をコピーし、現在のシートのA2に貼り付ける Dim pasteOption As PasteOption = New PasteOption() pasteOption.PasteType = PasteType.Default Or PasteType.RowHeights Or PasteType.ColumnWidths source_workbook.ActiveSheet.GetUsedRange().Copy(workbook.ActiveSheet.Range!A2, pasteOption) workbook.ActiveSheet.Range!C21.Value = "ソースワークブックの２番目のシートからコンテンツを切り取る" workbook.ActiveSheet.Range!C21.Font.Color = Color.Red workbook.ActiveSheet.Range!C21.Font.Bold = True ' ソースワークブックの２番目のシートの内容を切り取り、現在のシートのC22に貼り付ける source_workbook.Worksheets(1).Range("2:15").Cut(workbook.ActiveSheet.Range!C22) ' ２つのワークブックのテーマを同じにする workbook.Theme = source_workbook.Theme ' xlsx ファイルに保存 workbook.Save("CutCopyRangeBetweenWorkbooks.xlsx")