经过反复试验，用VB读取EXCEL数据、写入EXCEL数据，步骤如下：

任务1：用VB读取EXCEL某一单元格中数据，并显示在文本框中,并可以修改后保存在原文件中。

★单击打开具体的操作步骤

这个程序的完整代码如下：

Private Sub Command1_Click()

CommonDialog1.ShowOpen

Text1.Text = CommonDialog1.FileName

End Sub

Private Sub Command2_Click()

Dim VBExcel As Excel.Application ‘定义application对象

Dim VBExcelbook As Excel.Workbook ‘定义workbook对象

Dim VBExcelsheet As Excel.Worksheet ‘定义sheet对象

‘设置EXCEL对象，打开文件并显示

Set VBExcel = Excel.Application

If Text1.Text <> “” Then

      Set VBExcelbook = VBExcel.Workbooks.Open(Text1.Text)

Else: MsgBox “请设置文件！”

      Exit Sub

End If

Dim sheetnumber As Integer

Dim sheethang As Integer

Dim sheetlie As Integer

sheetnumber = Text3.Text

sheethang = Text4.Text

sheetlie = Text5.Text

VBExcelbook.Worksheets(sheetnumber).Activate

Text2.Text = VBExcelbook.ActiveSheet.Cells(sheethang, sheetlie).Value

‘VBExcelbook.ActiveSheet.Cells(2, 1).Value = “=rand()”

‘VBExcelbook.Save

VBExcelbook.RunAutoMacros (xlAutoClose) ‘执行EXCEL关闭宏

VBExcelbook.Close (True)

VBExcel.Quit

Set VBExcelbook = Nothing

Set VBExcel = Nothing

End Sub

Private Sub Command3_Click()

Dim VBExcel As Excel.Application ‘定义application对象

Dim VBExcelbook As Excel.Workbook ‘定义workbook对象

Dim VBExcelsheet As Excel.Worksheet ‘定义sheet对象

‘设置EXCEL对象，打开文件并显示

Set VBExcel = Excel.Application

If Text1.Text <> “” Then

      Set VBExcelbook = VBExcel.Workbooks.Open(Text1.Text)

Else: MsgBox “请设置文件！”

      Exit Sub

End If

Dim sheetnumber As Integer

Dim sheethang As Integer

Dim sheetlie As Integer

sheetnumber = Text3.Text

sheethang = Text4.Text

sheetlie = Text5.Text

VBExcelbook.Worksheets(sheetnumber).Activate

VBExcelbook.ActiveSheet.Cells(sheethang, sheetlie).Value = Text2.Text

‘VBExcelbook.ActiveSheet.Cells(2, 1).Value = “=rand()”

VBExcelbook.Save

VBExcelbook.RunAutoMacros (xlAutoClose) ‘执行EXCEL关闭宏

VBExcelbook.Close (True)

VBExcel.Quit

Set VBExcelbook = Nothing

Set VBExcel = Nothing

End Sub

Private Sub Command4_Click()

End

End Sub

经过反复试验，用VB读取EXCEL数据、写入EXCEL数据，步骤如下：

任务1：用VB读取EXCEL某一单元格中数据，并显示在文本框中,并可以修改后保存在原文件中。

步骤：

1、新建一个VB工程，添加一个common dialog 控件，便于打开指定文件，如下图（图1）：

 

这样在工具栏上就多了一个common dialog控件，如下图（图2）：

 

接下来将此控件拖入表单。在界面上添加一个文本框和一个按钮，按钮caption命名为：指定文件。输入如下代码：

Private Sub Command1_Click()

CommonDialog1.ShowOpen

Text1.Text = CommonDialog1.FileName

End Sub

这样就可以指定任意EXCEL文件作为操作对象。

2、读取指定文件第1个工作表第1行第1个单元格的值，并显示在text2中。

添加文本框TEXT2，将其text属性设为空。添加一个按钮，将其caption设为“显示内容”。接下引用EXCEL类型库，如下图（图3）：

 

双击“显示内容”按钮，输入如下代码：

Private Sub Command2_Click()

Dim VBExcel As Excel.Application ‘定义application对象

Dim VBExcelbook As Excel.Workbook ‘定义workbook对象

Dim VBExcelsheet As Excel.Worksheet ‘定义sheet对象

‘设置EXCEL对象，打开文件并显示

Set VBExcel = Excel.Application

If Text1.Text <> “” Then

      Set VBExcelbook = VBExcel.Workbooks.Open(Text1.Text)

Else: MsgBox “请设置文件！”

      Exit Sub

End If

VBExcelbook.Worksheets [1].Activate

Text2.Text = VBExcelbook.ActiveSheet.Cells(1, 1).Value

End Sub

运行后出现错误提示，如下图（图4）：

 

提示为：编译错误：属性的使用无效。错误代码提示为：VBExcelbook.Worksheets [1].Activate中的Worksheets [1]属性。改为VBExcelbook.Worksheets(“sheet1″).Activate或者VBExcelbook.Worksheets(1).Activate就能正常显示了。

3、及时关闭EXCEL工作簿

上述代码中，只是打开了EXCEL，这将导致EXCEL一直在进程中，因此有必要关闭，在“显示内容”按钮中增加如下代码：

VBExcelbook.Close (True)

VBExcel.Quit

Set VBExcelbook = Nothing

Set VBExcel = Nothing

  　　VBExcelbook.RunAutoMacros (xlAutoClose) ‘执行EXCEL关闭宏

  　　VBExcelbook.Close (True) ‘关闭EXCEL工作簿　

  　　VBExcel.Quit ‘关闭EXCEL

★这个程序的完整代码