哪位有用VB新建工作簿并新建工作表的源码

新鲜8

哪位有用VB新建工作簿并新建工作表重命名的源码

注：是用VB创建

新鲜8

有没有高手呀     
自己顶

情迷法兰西0

2. Private Sub Form_Load()
   
3. Dim excel As Object
   
4. Set excel = GetObject("", "excel.application")
   
5. If Err Then Set excel = CreateObject("excel.application")
   
6. excel.Visible = 1 '如果我能看得见
   
7. excel.workbooks.Add
   
8. excel.Activesheet.Name = "俺要改名"
   
9. End Sub
   

Private Sub Form_Load()<br /> Dim excel As Object<br /> Set excel = GetObject("", "excel.application")<br /> If Err Then Set excel = CreateObject("excel.application")<br /> excel.Visible = 1 '如果我能看得见<br /> excel.workbooks.Add<br /> excel.Activesheet.Name = "俺要改名"<br /> End Sub<br />