Vba 将Excel数据上载到DB2

我有一个问题。为了将excel电子表格数据上传到DB2数据库，有没有办法更改下面的代码？下面的代码将数据从DB2下载到excel电子表格

我想将数据下载到excel，在excel中进行操作，最后上传到数据库

Sub-CreateQueryTableWithParameters（）
将qryTable设置为QueryTable
Dim rngDestination As范围
作为字符串的Dim strConnection
作为字符串的Dim strSQL
附页（“第1页”）
.激活
.范围（“A:XFD”）.清除
以
'定义连接字符串和目标范围。
strConnection=“ODBC；DSN=RDBWC；UID=；PWD=；DBALIAS=RDBWC；”
设置rngDestination=Sheet1.范围（“A1”）
'创建参数查询。
strSQL=“选择*”
strSQL=strSQL&“来自PDB2I.DI\u NOS\u OST\u MVT\u 01”
'创建查询表。
Set qryTable=Sheet1.QueryTables.Add（strConnection，rngdestation）
'填充查询表。
qryTable.CommandText=strSQL
qryTable.CommandType=xlCmdSql
qryTable。刷新错误
末端接头

请参阅。第五个答案显示了如何执行INSERT语句。请注意，必须对Excel工作表中要上载（或更新）的每一行执行INSERT语句