...要求点击command1都能将那个OLE文件复制粘贴到C:\

发布网友发布时间：2024-08-17 10:11

共2个回答

热心网友时间：2024-08-29 11:35

你把一楼的CmdSave改为Command1，文件路径改一下即可：

Private Sub Command1_Click()
Dim FileNum As Integer
FileNum = FreeFile  '取文件号
Open "c:\" & Dir(OLE1.SourceDoc) For Binary As #FileNum '用OLE的源文件名保存到c:
OLE1.SaveToFile FileNum  '保存文件
Close #FileNum  '关闭文件
End Sub

热心网友时间：2024-08-29 11:32

Private sub CmdSave_click( )

Dim FileNum as integer

FileNum=FreeFile ‘取文件号

Open “TEST.OLE” For Binary as #FileNum ‘打开要保存的文件

OLE1.SaveToFile FileNum ‘保存至文件

Close #FileNum ‘关闭文件

End sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com