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书写一段调用SQL Server数据库DTS的代码，然后就可以像直接使用DTS进行数据导入一样就行Excel与SQL Server数据之间的迁移了。
方法二：可以用VB来操作EXCEL，然后一条数据一条数据的插入到数据库中，这种方法不推荐使用，因为VB操作EXCEL是非常慢的，如果数据量太大，很有可能会造成机。