VBA如何返回单元格地址到数据库

lrz_9327

各位，最近利用VBA开发一个招聘系统，现在有一个问题需要请教大家。已知我需要做一个二维表格，如下图；

	数学	语文	英语
A		OK
B	OK
C			OK

为了直观表现作对比，我将设置ABC三个等级，对应项分别为数学，语文，英语。
每个人具体每项都有唯一的评价，例如数学能力为B级，我将在此项打上OK。
同理语文A级OK，英语C级OK。

我现在想利用VBA将单元格地址存储在Mysql中，不知该如何操作？

谢谢大家！

魂断蓝桥

Option Explicit

Sub a()
Dim arr, i, j, SQL$
Dim cnn As Object
Set cnn = CreateObject("ADODB.Connection")
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
arr = [a1].CurrentRegion
For i = 3 To UBound(arr)
    For j = 2 To 4
        If arr(i, j) <> "" Then
            SQL = "INSERT INTO [Sheet3$g1:i] ( 姓名,科目,等级) VALUES('" & [B1] & "','" _
                        & arr(2, j) & "','" & arr(i, 1) & "')"
            cnn.Execute (SQL)
        End If
    Next
Next
End Sub