下面的代码是从excel里面调用outlook模板发邮件,第4行是模板位置,现在只会写绝对地址,如何才能写成同excel文件下的test.oft呢?用ThisWorkbook.Path不果,不知道真确应该如何写?
Sub EmailWithOutlook()
Dim oApp As Object, oMail As Object
Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp.CreateItemFromTemplate("C:\test.oft"")
With oMail
.Display
End With
Set oMail = Nothing
Set oApp = Nothing
End Sub
第1个回答 2011-05-04
application.Workbooks.Open 文件路径
application.Workbooks(文件名).Close true或false表示是否保存
复制就是application.Workbooks("文件名").sheets("表名").range(源单元格地址).copy ActiveSheet.range(目标单元格地址)
你可以用Set xlApp = CreateObject("Excel.Application")来建立一个看不到的Excel应用程序对象,然后用xlApp 来替代上面的Application,就会看不到打开的过程了。
application.Workbooks(文件名).Close true或false表示是否保存
复制就是application.Workbooks("文件名").sheets("表名").range(源单元格地址).copy ActiveSheet.range(目标单元格地址)
你可以用Set xlApp = CreateObject("Excel.Application")来建立一个看不到的Excel应用程序对象,然后用xlApp 来替代上面的Application,就会看不到打开的过程了。