将一个表里数据按模板格式写入数据。可以按要求格式形成Excel文件,但是一写入内容就出错了。下列程序中目前封住的语句后,这个程序运行正常。可以按照模板要求形成Excel文件。解开封住的语句,就出错了。解开的语句就是往Excel写内容的。如何解决?谢谢
另外怎么无法传图片了?
Dim cb2 As WinForm.ComboBox = e.Form.Controls("ComboBox2")
Dim wjm As String,wjm1 As String
Dim bm3 As String= e.Form.Name & "_table3"
Dim File_name As String
wjm=ProjectPath & "安全岗位模板.xls"
File_name=报表目录 & cb2.value & "安全奖.xls"
FileSys.CopyFile(wjm,File_Name,True)
Dim Sheet As XLS.Sheet
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(File_Name)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("模板")
Dim Rg As MSExcel.Range
Dim Rg1 As MSExcel.Range
Dim i As Integer=0
rg= Ws.Range("1:27") '以这个指定的单元格为基准
Dim drs As List(Of DataRow)
Dim dws As List(Of String)=DataTables(bm3).GetValues("单位")
For Each dw As String In dws
ws = Wb.WorkSheets.Add(Before:=Wb.WorkSheets("模板"))
Ws.Name = dw
i=0
drs= DataTables(bm3).Select("单位='" & dw & "'")
For Each dr As DataRow In drs
rg1= Ws.Range(i*27+1 & ":" & i*27+27)
rg.copy(rg1)
'rg2= ws.Cells(i*27+1,0)
' rg2.value="单位:" & dr("单位")
'rg2= ws.Cells(i*27+1,2)
'rg2.value="职务:" & dr("职务")
'rg2=ws.Cells(i*27+1,4)
'rg2.value="姓名:" & dr("姓名")
i+=1
Next
Next
wb.save
wb.close
Dim Proc As New Process
Proc.File = File_name
Proc.Start()