以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]将表数据转换到Excel时怎么一写内容就出错呢？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=84679)
--  作者：新福星
--  发布时间：2016/5/7 14:12:00
--  [求助]将表数据转换到Excel时怎么一写内容就出错呢？
将一个表里数据按模板格式写入数据。可以按要求格式形成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()
--  作者：Hyphen
--  发布时间：2016/5/7 14:19:00
--  
什么错误提示？上传例子说明