- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关于Excel导出的模板问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89040)
-- 发布时间：2016/8/14 17:00:00
-- [求助]关于Excel导出的模板问题
Dim fl As String = "d:\\test.xls"
Tables("T101").SaveExcel(fl, "73487")
Dim Book As New XLS.Book(fl)
Dim s As XLS.Sheet = book.Sheets(0)
For j As Integer = 0 To s.Cols.Count - 1
If s(0, j).Text = "设备状态" Then
For i As Integer = 1 To s.Rows.Count - 1
If s(i, j).Text = "0" Then
s(i, j).Value = "正常"
ElseIf s(i, j).Text = "1" Then
s(i, j).Value = "不正常"
End If
Next
End If
Next
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
使用这个代码可以用数据字典的正常和不正常来代替0和1，可是我想它按照做好的Excel模板来生成，请问那么应该怎样改呢？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:运行维护管理表明细.xlsx |
-- 发布时间：2016/8/14 17:06:00
--
编写事件代码即可
http://www.foxtable.com/webhelp/scr/1953.htm
http://www.foxtable.com/webhelp/scr/1955.htm