vb数据写入excel，请问如何用vb提取excel表格中的数据有一ex

sub main()

if cells(1,"A").value="中国" then cells(1,"B")="111"

if cells(1,"A").value="美国" then cells(1,"B")="1123"

end sub

以此为例，在Excel中读取VBA程序的 *** 作步骤如下（Excel2007为例）：

1.选择”开发工具“选项卡，点击”Visual Basic“（或者用快捷键Alt+F11）

2.出现VBA编辑界面，注意看左侧，选择需要运行代码的工作表，此例为Sheet1；双击进入Sheet1相关程序编辑界面

3.在程序编辑区域，复制上上述代码

4.点击上面的三角号，运行程序

5.关闭VBA界面，返回工作表，就可以看到程序运行结果，如下图：

6.如果再次运行程序，可以用快捷键Alt+F8（或者步骤1中的”宏“），出现如下图界面，选择要运行的宏，点击执行即可。

VB读取数据库并显示出来的方法可参考下面用控件的实现方法：

ACCESS数据库，用VB6里的Data控件，选中它，设置属性：

DatabaseName 属性：连接到数据库文件

RecordSource 属性：连接数据表（可以用Select语句返回记录集）

然后使用它的：data1.Recordset.Fields(“字段名”)，就可以返回获得你说的内容了。