[求助]将表数据转换到Excel时怎么一写内容就出错呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

将一个表里数据按模板格式写入数据。可以按要求格式形成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

wb.save

wb.close

Dim Proc As New Process

Proc.File = File_name

Proc.Start()

主题：[求助]将表数据转换到Excel时怎么一写内容就出错呢？