|
■No11359 (そら さん) に返信
> End With の前に行を追加してそこにﾀｲﾄﾙなどを追加したいのですが
> 行を追加するのにどうするのか分かりません
> どうかアドバイスお願いします
SpreadBuilderのサンプルから拝借しますが、
行を追加して、タイトルなどを追加って、そんな難しいですか？
それとも。私の文章の読取り不足？
必要なら、フォントサイズを変更するとかマージするなどすれば
いいです。そのようなメソッドがSpreadBuilderにあります。
※これは実際に動作させてないので、正常動作しないかも
'ワークブックのシートコレクションにシートを追加します。
Dim sb As New DataDynamics.SpreadBuilder.Workbook()
sb.Sheets.AddNew()
'列、行およびセルに対し、プロパティや値を設定します。
With sb.Sheets(0)
.Name = "Customer Call List"
.Columns(0).Width = 2 * 1440
.Columns(1).Width = 1440
.Columns(2).Width = 1440
.Rows(0).Height = 1440 / 4
'ヘッダ行
.Cell(0, 0).SetValue("会社名")
.Cell(0, 0).FontName = "MS UI Gothic"
.Cell(0, 0).FontBold = True
.Cell(0, 1).SetValue("部署名")
.Cell(0, 1).FontName = "MS UI Gothic"
.Cell(0, 1).FontBold = True
.Cell(0, 2).SetValue("電話番号")
.Cell(0, 2).FontName = "MS UI Gothic"
.Cell(0, 2).FontBold = True
'最初の行のデータ
.Cell(1, 0).SetValue("グレープシティ")
.Cell(1, 0).FontName = "MS UI Gothic"
.Cell(1, 1).SetValue("営業部")
.Cell(1, 1).FontName = "MS UI Gothic"
.Cell(1, 2).SetValue("(022) 777-8210")
'★2行目にタイトル追加
.Cell(2, 0).SetValue("タイトルだよーん")
.Cell(2, 0).FontName = "MS UI Gothic"
'★3行目以降にデータ追加
For row As integer = 3 To 10
.Cell(row, 0).SetValue("データ１")
.Cell(row, 0).FontName = "MS UI Gothic"
.Cell(row, 1).SetValue("データ２")
.Cell(row, 1).FontName = "MS UI Gothic"
.Cell(row, 2).SetValue("データ３")
Next
End With
'ワークブックをExcelファイルへ保存します。
sb.Save(Application.StartupPath & "\x.xls") MsgBox(Application.StartupPath & "\x.xls" & "へ保存しました。")
|
