主题：[求助]关于使用控件名称命名文件问题

想要把控件textbox： "TB代号"  的值作为生成新excel表格的名称，该如何做，字符如何连接，恕我愚钝，请老师指导

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\机械管理使用情况表.xls")   ’这是模板
Dim dh As WinForm.TextBox = e.Form.Controls("TB代号")
Dim fl As String = ProjectPath & "                机械管理使用情况表.xls"      ’请问这里该怎么写才能把textbox的value作为新文件的名字？？
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿

 

 

 

Dim fl As String = ProjectPath & dh.value & ".xls"

 

如何保存文件时再添加一个以年份为名字的文件夹呢，怎么加都不对，请老师指正

Dim d1 As Date = Date.Today
Dim fl As String = ProjectPath  & d1.year & \ & dh.value & ”.xls"

 

请问：

Dim d1 As Date = Date.Today
1、如何创建以当前年份为名的的文件价，我看帮助都是直接输入路径所以不知道怎么改；

  FileSys.CreateDirectory("C:\MyFolder")

2、如何把文件放进该文件夹里，由于是动态的 ”d1.year” 每年不一样，所以路径该怎么表示？

 

请老师们教一下我这个笨小孩

非常感谢老师，就是这个，格式了解不够全面，又涨知识了，还有一点请教一下：

 

Dim dh As WinForm.TextBox = e.Form.Controls("TB代号")
Dim d1 As Date = Date.Today

Dim  Book As New XLS.Book(ProjectPath  & d1.year & "\" & dh.value & "机械管理使用情况表.xls" )

 

在已经生成了该文件后，引用该地址时该表达式似乎有问题，找不到存储位置，在保存后调用该文件夹里文件时地址该怎么写？

某窗口的按钮click事件中，首先用此方法生成以年份为名的文件夹存放以代号为名的excel表格：

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\机械管理使用情况表.xls")
Dim dh As WinForm.TextBox = e.Form.Controls("TB代号")
Dim d1 As Date = Date.Today
Dim fl As String = ProjectPath & d1.year & "\" & dh.value & "机械管理使用情况表.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿

 

再次打开窗口时afterload事件，希望窗口中的table能读取该地址的excel表格：

 

Dim dh As WinForm.TextBox = e.Form.Controls("TB代号")
Dim d1 As Date = Date.Today

Dim  Book As New XLS.Book(ProjectPath  & d1.year & "\" & dh.value & "机械管理使用情况表.xls" )  

 

’原本直接引用某表地址时可运行，改为该代码后就出现：

.NET Framework 版本：2.0.50727.7905
Foxtable 版本：2016.7.29.1
错误所在事件：窗口,机械管理记录导入窗口,AfterLoad
详细错误信息：
打开存储文件失败。

Dim  Sheet As XLS.Sheet = Book.Sheets("机械使用情况表")

Tables("机械使用情况表").StopRedraw()
'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim nms() As  String = {"机械使用情况1","机械使用情况2","机械使用情况3","机械使用情况4","机械使用情况5","机械充电情况1","机械充电情况2","机械充电情况3","机械充电情况4","机械充电情况5","保养维护情况1","保养维护情况2","保养维护情况3"}
'注意下面的循环变量从6开始,而不是从0开始,因为Excel表的前6行是标题
For n As Integer = 6 To Sheet.Rows.Count -1
    Dim r As  Row = Tables("机械使用情况表").AddNew()
    For  m As  Integer = 0 To nms.Length - 1
        If Tables("机械使用情况表").Cols(nms(m)).IsBoolean Then
            r(nms(m)) = IIF(Sheet(n,m).Value=1,True ,False)
        Else
            r(nms(m)) = Sheet(n,m).Value
        End If
    Next
Next
Tables("机械使用情况表").ResumeRedraw()

不能这么引用吗？？？请老师解答

 

感谢老师的肯定，我对老师们的敬业精神以及彪悍大脑一直都是五体投地、敬仰不已，中秋佳节老师们辛苦了~~~

 

不过老师请看上一层的说明，实际是这样的，我是动态更新每次载入的excel表，是在已经生成了该文件的基础上（用窗口A生成，用报表输出指定名称的文件到某地址），然后打开窗口B调用该地址的excel文件，由于绑定的控件 dh（以后值是不断变化的） 值在两个窗口中相同，所以想定义一个BOOK然后引用已经用A生成的excel文件地址，将文件导入窗口进行数据管理，B中保存用的是生成报表覆盖原表的方法，形成一个循环，下次打开后就是又是覆盖后的excel表了。这个设计是我根据我要实现的功能设计的，在直接引用路径时已经成功了（如  ProjectPath & "Attachments\机械管理使用情况表.xls" ），但是想实现随dh.value动态变化没有成功，问题就是上一层指出的导入时用此方法引用显示“打开存储文件失败”，所以我想是不是引用方法不对~~

Dim  Book As New XLS.Book(ProjectPath  & d1.year & "\" & dh.value & "机械管理使用情况表.xls" )  

 

~~老师，这样解释是否可以~~~~原谅我刚动手不到一个月，作为菜鸟虽然前几章内容都浏览了一遍，但是用起来还是有点丢东忘西，就像写单词苹果却只记得“Ap？le”，这种感觉~~~~，所以感觉有时提的问题事后看起来略蠢~~~请老师原谅我的“菜鸟综合症”，我在努力了

 

 

 

 

该文件请放到名为2016的文件夹里测试  ProjectPath  & d1.year & "\" & dh.value & "机械管理使用情况表.xls"

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:c-01机械管理使用情况表.xls

老师，提示“文件还没生成呢”，可是明明已经生成了啊~~~问题在哪里呢~~~例子上一楼已经上传了，在项目文件夹里已经有一个名为“2016”的文件夹存放名为“c-01机械管理使用情况表.xls”的文件了，确定选择的也是代号c-01的设备啊~~~~哪里有问题呢，请老师解答

感谢老师，我会继续努力学习的。通过调试，该模块已经较为完美的完成了，实现了单窗口复数excel表的存储、命名、管理和调用，每个设备都能生成一套完整的excel管理文件，自己设计的果然还是很有成就感，当然主要还是老师教得好