主题：[求助]实现导出某一列自动增加

Dim Book1 As New XLS.Book(ProjectPath & "Attachments\IGN - Document_Lines.xls") 

Dim fl1 As String = ProjectPath & "Reports\IGN - Document_Lines.csv"

Dim Sheet1 As XLS.Sheet = Book1.Sheets(0)

Sheet1(2,0).Value = "<整合源>"  

Sheet1(2,1).Value = "22" 

Sheet1(2,3).Value = "0"     我就想在这里开始第2列第一行初始为0，下面接着是1 这样递增，需要怎么实现呢

Sheet1(2,4).Value = "1" 

Sheet1(2,5).Value = "202" 

Book1.Build() '生成报表

Book1.Save(fl1) 

Dim Proc1 As New Process 

Proc1.File = fl1

Proc1.Start()