vb打开服务器excel文件,vb打开、操作并且关闭EXCEL

'工程-引用-将Microsoft Excel 12.0 Object Library选中，

'工程-部件-将Microsoft Common Dialog Control 6.0选中，

'在窗体上添加一个按钮Command1对象，一个CommonDialog1通用对话框对象

Private Sub Command1_Click()

CommonDialog1.CancelError = True

CommonDialog1.DialogTitle = "指定要接收的Txt文件"

CommonDialog1.Filter = "文本文件(*.xls)|*.xls|所有文件(*.*)|*.*"

CommonDialog1.InitDir = App.Path

CommonDialog1.ShowOpen

Text1 = CommonDialog1.FileName

Set xlApp = CreateObject("Excel.Application")

xlApp.Visible = True

Set xlBook = xlApp.Workbooks.Open(Text1)

If xlApp.Worksheets("Sheet1").Range("A1").Cells(2, 2) = ""

Then

xlApp.Worksheets("Sheet1").Range("A1").Cells(2, 3) = "B2空"

Else

xlApp.Worksheets("Sheet1").Range("A1").Cells(2, 3) = "B2不空"

End If

MsgBox "所要打开的Excel文件已经打开，下面将关闭"

xlBook.Save

xlApp.Quit

Set xlApp = Nothing

End

End Sub