作者：绿色风
分类：
时间：2022-08-18
浏览：90
楼主
wise |
Q:如何编写取得临时文件名自定义函数？
A：ALT+F11→插入模块→输入以下代码：
- Public Const MAX_PATH = 260
- Public Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA" (ByVal lpszPath As String, ByVal lpPrefixString As String, _
- ByVal wUnique As Long, ByVal lpTempFileName As String) As Long
- Public Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
- Public Function GetTempFile() As String
- Dim lngRet As Long
- Dim strBuffer As String, strTempPath As String
- strBuffer = String$(MAX_PATH, 0)
- lngRet = GetTempPath(Len(strBuffer), strBuffer)
- If lngRet = 0 Then Exit Function
- strTempPath = Left$(strBuffer, lngRet)
- strBuffer = String$(MAX_PATH, 0)
- lngRet = GetTempFileName(strTempPath, "tmp", 0&, strBuffer)
- If lngRet = 0 Then Exit Function
- lngRet = InStr(1, strBuffer, Chr(0))
- If lngRet > 0 Then
- GetTempFile = Left$(strBuffer, lngRet - 1)
- Else
- GetTempFile = strBuffer
- End If
- End Function
|
2楼
微风入林 |
抢沙发 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一