以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]能否把单元格内容批量生成以列名为文件名的HTML文件  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=104149)
--  作者：jyh7081
--  发布时间：2017/7/24 15:48:00
--  [求助]能否把单元格内容批量生成以列名为文件名的HTML文件

我想把窗口表当前行的单元格，批量生成以 列名 为文件名的HTML文件，怎么做？

 

就是选定行后，把[第一列]单元格中的内容生成  第一列.html  文件；把[第二列]单元格中的内容生成  第二列.html  文件；......

 

谢谢！
--  作者：有点甜
--  发布时间：2017/7/24 16:00:00
--  
Dim cr As Row = Tables("表A").current
For Each c As Col In cr.Table.cols
    FileSys.WriteAllText("d:\\" & c.name & ".htm", cr(c.name), False)
Next
--  作者：jyh7081
--  发布时间：2017/7/24 20:40:00
--  
      我想把生成的文件放入以当前行 [第一列] 的值为目录名的目录下，把代码中的   "d:\\"  换成  ProjectPath& "cr("第一列")\\" ，但提示出错，什么原因？

Dim cr As Row = Tables("表A").current
For Each c As Col In cr.Table.cols
    FileSys.WriteAllText(ProjectPath& "cr("第一列")\\" & c.name & ".htm", cr(c.name), False)
Next
--  作者：有点蓝
--  发布时间：2017/7/24 21:30:00
--  
FileSys.WriteAllText(ProjectPath& cr("第一列") & "\\" & c.name & ".htm", cr(c.name), False)