vb.net 往EXECL中插入行

你可以使用以下代码来在 Excel 中插入行：

' 创建 Excel 应用程序对象
Dim excelApp As New Excel.Application()

' 打开 Excel 文件
Dim workbook As Excel.Workbook = excelApp.Workbooks.Open("C:\example.xlsx")

' 获取要插入行的位置
Dim worksheet As Excel.Worksheet = workbook.Sheets("Sheet1")
Dim row As Excel.Range = worksheet.Range("A2")

' 在指定位置插入行
row.EntireRow.Insert()

' 设置行数据
row.Offset(0, 0).Value = "New Row"
row.Offset(0, 1).Value = 1
row.Offset(0, 2).Value = 2

' 保存并关闭 Excel 文件
workbook.Save()
workbook.Close()
excelApp.Quit()

其中，`EntireRow.Insert` 方法用于在指定位置插入行，`Offset` 方法用于设置行数据。

相关问题

vb.net 往excel中插入图片并且图片大小自适应

你可以使用以下代码来将图片插入到Excel中，并自适应大小：

' 创建 Excel 应用程序对象
Dim excelApp As New Excel.Application()

' 打开 Excel 文件
Dim workbook As Excel.Workbook = excelApp.Workbooks.Open("C:\example.xlsx")

' 获取要插入图片的单元格
Dim worksheet As Excel.Worksheet = workbook.Sheets("Sheet1")
Dim cell As Excel.Range = worksheet.Range("A1")

' 插入图片
Dim shape As Excel.Shape = worksheet.Shapes.AddPicture("C:\example.png", _
    Microsoft.Office.Core.MsoTriState.msoFalse, _
    Microsoft.Office.Core.MsoTriState.msoCTrue, _
    cell.Left, cell.Top, -1, -1)

' 设置图片大小自适应
shape.ScaleHeight(1, Microsoft.Office.Core.MsoTriState.msoTrue)
shape.ScaleWidth(1, Microsoft.Office.Core.MsoTriState.msoTrue)

' 保存并关闭 Excel 文件
workbook.Save()
workbook.Close()
excelApp.Quit()

其中，`AddPicture` 方法用于插入图片，`ScaleHeight` 和 `ScaleWidth` 方法用于设置图片大小自适应。

vb.net 往EXECL中插入列

你可以使用以下代码来在 Excel 中插入列：

' 创建 Excel 应用程序对象
Dim excelApp As New Excel.Application()

' 打开 Excel 文件
Dim workbook As Excel.Workbook = excelApp.Workbooks.Open("C:\example.xlsx")

' 获取要插入列的位置
Dim worksheet As Excel.Worksheet = workbook.Sheets("Sheet1")
Dim column As Excel.Range = worksheet.Range("B1")

' 在指定位置插入列
column.EntireColumn.Insert()

' 设置列标题
column.Value = "New Column"

' 保存并关闭 Excel 文件
workbook.Save()
workbook.Close()
excelApp.Quit()

其中，`EntireColumn.Insert` 方法用于在指定位置插入列，`Value` 属性用于设置列标题。