[求助]新建记事本名等于当前行第一列的值,记事本录入当前单元格的字符
Dim s As String = CurrentTable.value
Dim str As String = "D:\" & Tables("表A").Current("第一列") & ".txt"
If FileSys.DirectoryExists(str) = False Then
FileSys.WriteAllText("D:\记事本名等于表A的第一列值.txt", s, False)
End If
例如当前位置在表A的第一行的第二列(物资部)
第一列 第二列
第一行 记账 物资部
求助,生成
1、 记账.txt
2、 记账.txt 记事本里录入 物资部
狐表不能升级,高版本打不开,代码辛苦贴出来,感谢
[此贴子已经被作者于2023/5/6 9:37:57编辑过]