求写VBS，导出文件名为我所要求格式，详见附件

自由心　发表于：2016-01-17 15:40:47 　

求写VBS，导出文件名为我所要求格式

说明如下截图，详见附件

朱先生发表于：2016-01-17 16:54:22

If Nz(strFileName) = "" Then strFileName = Format(Now(), "yyyymmdd_hhmm") & ".txt"

在上一句前加入

YYYY = Mid(Now(), 1, 4)
MM = Mid(Now(), 6, 2)
DD = Mid(Now(), 9, 2)
HMM = Mid(Now(), 11, 4)

试试看

落尘_小新发表于：2016-01-17 16:54:54

导出按钮调用的函数第二个参数就是文件名。

在调用该函数时写上第二个参数就行了。

Private Sub cmdOut_Click()
Call funExportToTxt(Me.Child22, Format(Now(), "yyyymmdd_hhmm") & "_导出为.txt")
End Sub

或者直接把

If Nz(strFileName) = "" Then strFileName = Format(Now(), "yyyymmdd_hhmm") & ".txt"

这句修改为如下即可

If Nz(strFileName) = "" Then strFileName = Format(Now(), "yyyymmdd_hhmm") & "_导出为.txt"

朱先生发表于：2016-01-17 18:32:36

自由心发表于：2016-01-18 09:05:44

多谢三楼 @朱先生的解答

结帖

总记录：4篇页次：1/1 9 1 :

Access交流中心