急求，如何用EXCEL VBA 打开网站上的数据库，并将想要的数据记录写入EXCEL中，本人愿意将所有分数捐出，

EXCEL与VB连接方法：

Dim xlsApp

On Error Resume Next

Set xlsApp = GetObject(, "excel.application")

On Error GoTo 0

If IsEmpty(xlsApp) Then

MsgBox "excel没打开"

Exit Sub

Else

xlsApp.activesheet.cells(1, 1).Value = "这是一个演示"

'在这里可以对当前工作表进行其他 *** 作

End If

Excel VBA填写网页上的内容的步骤：

1、首先打开Excel 2007工作表，点击想要把数据导入的位置，然后在菜单栏找到第五项"数据“，点击，在“获取外部数据”项下找到“自网站”并点击。

2、这时d出来”新建 Web 查询“对话框，可以在“地址”一栏键入要添加数据的网页的地址。

3、添加完成后，点击“转到（G）”，下面会出来要添加网页的内容和黄色箭头，单击要选择的表旁边的黄色箭头，可以看到点击后黄色箭头变成绿色的对号，这表示内容已经选中了，然后单击“导入（I）”。

4、d出来”导入数据“对话框，设置完成点击“确定”。

5、Excel表中显示“正在获取数据……”。

6、数据获取完成，之前选中的网页内容全部导入了Excel工作表里。

---