请教如何生成excel的图表（解决马上给分）

Question

不会吧，没有人答....只好自己再写了...up

Answer 1

建立一下formOption Explicit
Dim Exl As Excel.Application
Dim xlwb As Excel.WorkbookSub Print()Set xlwb = Exl.Workbooks.Open(App.path + "\aaa.xls")   '先建立一个aaa.xls 文件'填入数据   Exl.Range("a1").Formula = "部门："
   Exl.Range("b1").Formula = "你好"
   Exl.Range("c1").Formula = "日期"
'-----------------------------------------------------------------------------------------Exl.Visible = True
Set Exl = Nothing
Screen.MousePointer = 0
End Sub