怎样用VB操作Word与Excel？详细点

怎样用VB操作Word与Excel？详细点

给你两个小例子。一、控制WordPrivate Sub Command1_Click()
Dim wdApp As Application
Dim wdDoc As Word.Document
Dim OpenFile As String
Dlg1.ShowOpen
OpenFile = Dlg1.FileName
Set wdApp = CreateObject("Word.application")
Set wdDoc = wdApp.Documents.Open(OpenFile)
For i = 1 To wdDoc.Characters.Count
Text1.Text = Text1.Text + wdDoc.Characters(i)
Next
wdDoc.Close
wdApp.Quit
Set wdDoc = Nothing
Set wdApp = Nothing
End Sub 二、操作ExcelPrivate Sub Form_Click()
'在“工程/引用”中选择Microsoft Excel9.0 Object LibraryDim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工作簿类
Dim xlSheet As Excel.Worksheet '定义工作表类
'激活EXCEL应用程序
Set xlApp = CreateObject("Excel.Application")
'打开工作簿
Dim Filename As String
dlg1.ShowOpen
Filename = dlg1.Filename
Set xlBook = xlApp.Workbooks.Open(Filename)
Set xlSheet = xlBook.Worksheets(1)
Text1.Text = xlSheet.Range("A1").Value '关闭工作簿和EXCEL应用程序
xlBook.Close
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = NothingEnd Sub