转到excel中的下一行

问题描述

我有一个问题，

使用此代码，我将一些文本写入Excel工作表，然后将其打印出来.

效果很好

但是我想保存文件，并在下一个空行中向工作表添加更多数据

现在它将进入第1行cel a en b

下次必须转到第2 a en b行，依此类推

下一个空行.

 导入 Microsoft.Office.Core
导入 Microsoft.Office.Interop

公共 类 Form1
    私有工作表 As  对象

    私人 子 Form1_Load( ByVal 发​​件人 As 系统.对象， ByVal  e  As  System.EventArgs)句柄  MyBase  .Load
        InitializeComponent()
         Dim  AppExcel  As  对象
         Dim 工作簿 As  对象
        AppExcel = CreateObject("  Excel.Application" )


        workBook = AppExcel.Workbooks.Open(My.Application.Info.DirectoryPath& "  \ test.xls" )
        AppExcel.Visible = 错误
        工作表= workBook.worksheets

        AppExcel.Visible = 真实


        工作表("  blad1" ).Cells( 1 ， 1 ).value = Form2.TextBox1.Text
         工作表("  blad1" ).Cells( 1 ， 2 ).value = Form2.TextBox2.Text



        工作表("  blad1" ).PrintOut()




         Dim  oXL  As 应用
         Dim  oWB  As  Excel.Workbook
         Dim  oSheet  As  Excel.Workbook
         Dim 或 As  Excel.Range


        workBook.Saved = 错误


        ' 确保释放对象引用.
        oRng = 什么都没有
        oSheet = 没什么
        oWB = 没什么
        AppExcel.Quit()
        oXL = 没什么

        GC.Collect()

        我 .Close()

    结束 子
结束 类 

解决方案

这篇关于转到excel中的下一行的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！