Office VBA用WinAPI实现“另存为”对话框
来源:互联网 发布:端口穿透 编辑:程序博客网 时间:2024/06/11 09:19
Private Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long
Private Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
Dim OFName As OPENFILENAME
Private Function ShowSave() As String
OFName.lStructSize = Len(OFName)
OFName.hwndOwner = Application.Hwnd
OFName.lpstrFilter = "X Files (*.x)" + Chr$(0) + "*.x" + Chr$(0) + "XMesh Files (*.xms)" + Chr$(0) + "*.xms" + Chr$(0) + "All Files (*.*)" + Chr$(0) + "*.*" + Chr$(0)
OFName.lpstrFile = Space$(254)
OFName.nMaxFile = 255
OFName.lpstrFileTitle = Space$(254)
OFName.nMaxFileTitle = 255
OFName.lpstrInitialDir = "C:/"
OFName.lpstrTitle = "另存为"
OFName.flags = 0
If GetSaveFileName(OFName) Then
ShowSave = Trim$(OFName.lpstrFile)
Else
ShowSave = ""
End If
End Function
Private Sub btnLoadSkinWeight_Click()
MsgBox ShowSave
End Sub
- Office VBA用WinAPI实现“另存为”对话框
- ie js实现打开另存为对话框,
- MFC:用另存为对话框保存文件
- 打开/另存为对话框
- “文件另存为。。。”对话框
- mfc屏蔽另存为对话框
- Microsoft Office VBA ActiveX编程的JScript实现
- VBA-office的自动化
- office VBA开发视频教程
- Office Excel VBA编程
- VB、Office与VBA
- office VBA 学习
- [Office] VBA Practice
- 单击链接弹出另存为对话框
- 添加打开和另存为对话框
- 单击链接弹出另存为对话框
- MFC弹出另存为文件对话框
- VBA中WINAPI 函数应用集锦
- Sybase服务无法启动
- J2ME(CLDC/MIDP) FAQ
- 怎么使用SSL
- 科技图书翻译思想指南(上篇)
- 禁止网页被抄袭技巧
- Office VBA用WinAPI实现“另存为”对话框
- J2ME-CLDC/MIDP 资源
- 使用委托在多个窗体间传值
- 对于C#中委托和事件的理解
- Session机制的本质
- 新婚之夜,我手抚老婆两腿之间问:这是什么?
- PL/SQL报无效的窗口句柄的解决办法
- 互联网的力量——从南方周末.系统.巨人.征途事件启迪
- Linux下安装JDK1.6,Eclipse