以文本方式查看主题

-  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=125206)
--  作者：kaituozhe
--  发布时间：2018/9/22 10:12:00
--  Excel报表

以下代码黄色部分提示错误，应该怎么修改？

Dim Book As New XLS.Book \'定义一个Excel工作簿

Dim Ws As MSExcel.WorkSheet = Book.WorkSheets.Add(After:=Wb.WorkSheets("同期对比"))
Ws.Name = "本期数据"
--  作者：有点蓝
--  发布时间：2018/9/22 10:20:00
--  
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets.Add(After:=Wb.WorkSheets("同期对比"))
Ws.Name = "本期数据"

XLS.Book不是vba的用法，不要混用
[此贴子已经被作者于2018/9/22 10:19:53编辑过]
--  作者：kaituozhe
--  发布时间：2018/9/22 10:45:00
--  

Dim shrs As List (of String) = dt.DataTable.GetValues("收货人","收货人 is not null")

Dim Ws As XLS.Sheet = Book.Sheets.Add("" & shrs(n) & "")

上述黄色代码怎么能够排除这些非法字符

上述代码提示如下

.NET Framework 版本：2.0.50727.8935
Foxtable 版本：2018.9.9.1
错误所在事件：自定义函数DaoChuHuoYunQingDan
详细错误信息：
调用的目标发生了异常。
非法的表单名称（必须是1到31个字符之内并且不能包含下列字符：: * [ ] / \\ or ?）。
--  作者：有点蓝
--  发布时间：2018/9/22 10:59:00
--  
n不能大于集合的数量-1
--  作者：kaituozhe
--  发布时间：2018/9/24 16:29:00
--  
Dim Book As New XLS.Book("c:\\reports\\test.xls") \'定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
Dim Style As XLS.Style = Book.NewStyle() \'定义新样式
Style.ForeColor = Color.Red \'设置样式的字体颜色
Sheet(0,0).Style = Style
Sheet(0,0).Value = "邮件"
Sheet(0,0).Hyperlink = "Mailto:zjtdr@21cn.net"
Sheet(1,0).Formula = "=1+3"
Book.Save("c:\\reports\\test.xls")
Dim Proc As New Process
Proc.File = "c:\\reports\\test.xls"
Proc.Start()
上述代码只能对没有打开的表，填写内容设置格式，假如上述表已经打开，怎么通过代码填写数据？
--  作者：有点甜
--  发布时间：2018/9/25 9:23:00
--  
以下是引用kaituozhe在2018/9/24 16:29:00的发言：
上述代码只能对没有打开的表，填写内容设置格式，假如上述表已经打开，怎么通过代码填写数据？

 

已经打开的表格，无法操控。你可以先关闭，再填写数据，再打开

 

http://www.foxtable.com/webhelp/scr/2126.htm

 

http://www.foxtable.com/webhelp/scr/2713.htm