请教师傅们

button按钮

当我点击此按钮时可以达到以下效果

1.复制项目Attachments文件夹的（表.xlsx ） 到当B文件夹并重命名

2.命名方式为，当前行的款号列的值

3. B文件夹的路径在网络上面

谢谢

参考，网络什么意思，什么路径。

http://www.foxtable.com/help/topics/0342.htm

哪不要管第3条

刚刚你发的帮助文件里面没有动态重命名

第2条是关键

FileSys.CopyFile(projectPath & "Attachments\\test.xls", "C:\\test\\" & Tables("表A").current("第一列") & ".xls",True)

谢谢

请问能不能让重命名后的xls工作簿的A表的B3单元格的值等于Tables("表A").current("第一列") ，E3单元格的值等于current("第二列")

打开excel，然后设置值。

Dim dpath As String = "C:\\test\\" & Tables("表A").current("第一列") & ".xls"
FileSys.CopyFile(projectPath & "Attachments\\test.xls", dpath,True)
Dim Book As New XLS.Book(dpath) \'定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
sheet(2, 1).Value = Tables("表A").current("第一列")
sheet(2, 4).Value = Tables("表A").current("第二列")
book.save(dpath)

Failed to open storage file  运行错误

请问这是什么意思

意思是你的 fpath 的路径不正确，找不到对应的文件。

弹出msgbox(fpath)

谢谢

前面的问题解决了，但是又来了一个新的问题