Excelレポートの生成

Question

Excelレポートに画像を挿入するには、列幅を設定し、上位10行を空のままにするにはどうすればよいですか？

は、ここに私のコードです：

If ComDset.Tables(0).Rows.Count > 0 Then 
    Try 
     With Excel 
      .SheetsInNewWorkbook = 1 
      .Workbooks.Add() 
      .Worksheets(1).Select() 

      Dim i As Integer = 1 
      For col = 0 To ComDset.Tables(0).Columns.Count - 1 
       .cells(1, i).value = ComDset.Tables(0).Columns(col).ColumnName 
       .cells(1, i).EntireRow.Font.Bold = True 
       i += 1 
      Next 

      i = 2 

      Dim k As Integer = 1 
      For col = 0 To ComDset.Tables(0).Columns.Count - 1 
       i = 2 
       For row = 0 To ComDset.Tables(0).Rows.Count - 1 
        .Cells(i, k).Value = ComDset.Tables(0).Rows(row).ItemArray(col) 
        i += 1 
       Next 
       k += 1 
      Next 

      filename = "ShiftReport" & Format(MdbDate, "dd-MM-yyyy") & ".xls" 
      .ActiveCell.Worksheet.SaveAs(filename) 
     End With 

     System.Runtime.InteropServices.Marshal.ReleaseComObject(Excel) 
     Excel = Nothing 
    Catch ex As Exception 
     MsgBox(ex.Message) 
    End Try 

    ' The excel is created and opened for insert value. We most close this excel using this system 
    Dim pro() As Process = System.Diagnostics.Process.GetProcessesByName("EXCEL") 
    For Each i As Process In pro 
     i.Kill() 
    Next 
End If 

Answer 1

Range.ColumnWidthプロパティ 返すか、指定した範囲内のすべての列の幅を設定します。読み書きバリアント。