如何保存、新建文本文件

Question

用vba亚set exl=createobject("execel.application")
好像是这样 有点忘了

Answer 1

Dim oWord As Object,oExcel as Object
Dim oDoc As Object
Set oWord = CreateObject("Word.Application")
Set oExcel=CreateObject("Excel.Sheet")   ’增加一个Excel表单
Set oDoc = oWord.Documents.Add    '增加一个word文档
……
……                          ‘在这里操作oWord或者oExcel对象就可以了
oWord.saveas "xxxx"           '保存
oExcel.saveas "xxxx"          ‘保存大概就是这样了：）