首先需要添加COM引用：
Microsoft Excel 11.0 Object
Library
然后申明引用：
Dim xlApp As
Microsoft.Office.Interop.Excel.Application
'定义EXCEL类
Dim xlBook As
Microsoft.Office.Interop.Excel.Workbook
'定义工件簿类
Dim xlsheet As
Microsoft.Office.Interop.Excel.Worksheet
'定义工作表类
实例代码：
Dim db As String
Dim num As Integer
Dim File_New_flag As Integer
Dim i, j As Integer
db = Application.StartupPath &
"\综合数据采集仪数据库.xls"
File_New_flag = 0
On Error Resume Next
If Dir(db) = "" Then
xlApp =
New Microsoft.Office.Interop.Excel.Application
xlApp =
CreateObject("Excel.Application")
xlApp.Visible = False
xlBook =
xlApp.Workbooks.Add
xlsheet =
xlBook.Worksheets(1)
xlsheet.Name = "设计工作表3"
xlsheet =
xlBook.Worksheets(2)
xlsheet.Name = "设计工作表2"
xlsheet =
xlBook.Worksheets(3)
xlsheet.Name = "设计工作表1"
xlsheet.Cells(1, 1) = "abc"
'xlApp.Cells(1, 1) = "123"
xlBook.SaveAs(db)
xlBook.Close()
xlApp.Quit()
File_New_flag = 1
End If
If Dir(db) = "" Or Err.Number
<> 0 Then
If
MsgBox("数据库创建失败！", 48) <> vbYes
Then
Exit Sub
End
If
End If
'''''''''''''''''''''''''''''''''''''''''''
xlApp = New
Microsoft.Office.Interop.Excel.Application
xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
'设置EXCEL可见
xlBook =
xlApp.Workbooks.Open(Application.StartupPath &
"\综合数据采集仪数据库.xls") '打开EXCEL工作簿
num = xlBook.Sheets.Count
If num <= 0 Then
MsgBox("Excel无工作表！")
Else
If
File_New_flag = 1 Then
xlsheet =
xlBook.Worksheets(3)
xlsheet.Name = "设计工作表3"
For i = 1 To 100 Step 1
For j = 1 To 10 Step 1
xlsheet.Cells(i, j) = i + j
Next j
Next i
Else
File_New_flag = num + 1
xlBook.Sheets.Add()
xlsheet =
xlBook.Worksheets(1)
xlsheet.Name = "设计工作表"
& File_New_flag
For i = 1 To 100 Step 1
For j = 1 To 10 Step 1
xlsheet.Cells(i, j) = i + j
Next j
Next i
End
If
xlBook.SaveAs(db)
xlBook.Close()
xlApp.Quit()
End If
加载中，请稍候......
加载中…
喜欢