请问在VB里怎么自动创建一个EXCEL文件,并打开保存啊?(我是新手,请多指教)

Question

谢谢
如果有源代码,最好让我看看

Answer 1

Dim xlApp As Excel.Application
    Dim xlworkBook  As Excel.Workbook
Dim xlsheet As Excel.Worksheetet xlApp = CreateObject("Excel.application")
    Set xlworkBook = xlApp.Workbooks.Open(strFilePath)
    Set xlsheet = xlworkBook.Worksheets(strSheet)
xlworkBook.Close SaveChanges:=False
    Set xlworkBook = Nothing
    xlApp.Quit
    Set xlApp = Nothing

Answer 2

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
set xlApp = CreateObject("Excel.application")
Set xlworkBook = xlApp.Workbooks.Open(文件路径)
Set xlSheet = xlBook.Sheets(1)
'填入想要填入Excel中的内容
'如xlSheet.Cells(0,0) ="aaaaaa"
xlSheet.Application.Visible = True
xlBook.Windows(1).Visible = True
xlBook.Save
Set xlBook = Nothing