我已经编写了一个代码,其中将数据写入到对文件名和路径名进行硬编码的csv文件中,是否可以使按钮将文件保存到用户特定的位置?帮助将不胜感激。谢谢下面是我所做的代码
Public Sub exportCSV()
MyRes.MoveFirst
strCsvFile = "D:\Mycsv.csv"
fHndl = FreeFile
Open strCsvFile For Output As fHndl
out2 = MyRes.GetFieldNameAt(1)
Print #fHndl, out2
MyRes.MoveFirst
While Not MyRes.IsEOF
out = MyRes.GetField("ID")
' Debug.Print out2
Print #fHndl, out
MyRes.MoveNext
Wend
MsgBox ("Downloaded")
Close #fHndl
End Sub
您需要先插入它,然后再分配文件名。例如
MyRes.MoveFirst
CommonDialog1.InitDir = "C:\MyStartFolder"
CommonDialog1.Filter = "CSV Files (*.csv)|*.csv|All Files (*.*)|*.*"
CommonDialog1.ShowSave
strCsvFile = CommonDialog1.FileName
fHndl = FreeFile
您应检查返回的文件名是否有效。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句