vb调用excel,怎么插入新的工作表?

发布网友

我来回答

共2个回答

热心网友

灞曞紑鍏ㄩ儴Dim strfile As String
Private Sub Form_Load()
strfile = App.Path
End Sub

Private Sub Command1_Click()
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Set xlsApp = Excel.Application
Set xlsBook = xlsApp.Workbooks.Open(strfile & "\1.xls")

xlsApp.Visible = False
xlsApp.Sheets.Add After:=Sheets(Sheets.Count)
xlsApp.ActiveSheet.Name = "2013骞?鏈?quot;

xlsBook.Close (True)
Set xlsApp = Nothing

End Sub

热心网友

Dim strfile As String
Private Sub Form_Load()
strfile = App.Path
End Sub

Private Sub Command1_Click()
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Set xlsApp = Excel.Application
Set xlsBook = xlsApp.Workbooks.Open(strfile & "\1.xls")

xlsApp.Visible = False
xlsApp.Sheets.Add After:=Sheets(Sheets.Count)
xlsApp.ActiveSheet.Name = "2013年8月"

xlsBook.Close (True)
Set xlsApp = Nothing

End Sub

热心网友

首先要引用EXCEL，
然后打开1.XLS这个文件。
然后调用 XLBOOK.WORSHEETS.ADD("2013年8月").追问可以详细一点吗？我是个新手啊。谢谢，怎么打开1.xls？