用VB6.0中的OLE打开各种文件_金钟常鸣

个人资料

微博

正文字体大小：大中小

用VB6.0中的OLE打开各种文件

(2019-10-22 14:43:10)

标签：

分类： VBA

点“OLE”控件，放在窗体上：

Private Sub Command1_Click() '打开PowerPoint

OLE1.CreateLink "H:\日常工作\变速器动力经济性计算\变速器动力性和经济性匹配技术.ppt"

OLE1.Refresh

End Sub

Private Sub Command2_Click()

OLE1.Delete

End Sub

Private Sub Command3_Click() '打开EXCEL文件

OLE1.CreateLink "J:\QQ\2019年产品技术培训计划.xlsx"

OLE1.Refresh

OLE1.object.Sheets(1).Cells(5, 2) = "OKO"

Text1.Text = OLE1.object.Sheets(1).Cells(5, 3)

End Sub

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report