嗨，胡安·卡洛斯，

如果您仍在查找，这里是一个示例-代码如下。 不确定如何共享excel示例本身，因此如果要重新创建，请按以下说明进行操作。 但是我认为，如果您相当熟悉Excel/VBA的工作以及与数据库的交互，下面的VBA代码将显示您所需的一切。

在HANA中

1. 运行HANA脚本
   1. NB：我假设对象位于模式EXCEL_DEMO

在Excel中

1. 在Excel中创建表格Sheet1
   1. 输入字段（从A3开始）
   2. 选择A3：E4
   3. 在菜单上，单击：插入/表格
   4. 在弹出窗口中检查"我的表有标题"
2. 在新创建的表中选择任何单元格
   1. 选择工具栏上的"设计"标签（"表格工具"组）
   2. 在名称框（工具栏，左上方）中输入" TAB_EXCEL_SIMPLE_DEMO"
3. 添加用于过滤的命名单元格
   1. 选择单元格H3
   2. 在"名称框"（位于编辑栏的左侧）中，键入" VAR_CATEGORY_FILTER"

在Excel/VBA中

1. 在Excel中打开VBA（菜单开发人员/Visual Basic）
   1. 如果在菜单上未显示"开发人员"，请右键单击功能区菜单，选择"自定义功能区"，然后选中"开发人员"
2. 双击" Sheet1"（最好只打开一个EXCEL文档）
   1. 这样，您可以直接在" []"内寻址表（请参见代码）
3. 粘贴VBA代码
   1. 请记住，将顶部的常量更改为适合您的HANA服务器的值

再次在Excel中-添加两个按钮

1. 在表格上方添加" LOAD"按钮
   1. 在"开发人员/插入/按钮"菜单上
   2. 选择" LoadSimpleDemo"宏
   3. 右键单击按钮，然后选择"编辑文本"-键入" LOAD"
   4. 按下按钮，应加载数据
   5. 在VAR_CATEGORY_FILTER中输入A，B或C，然后再次按" LOAD"按钮，以查看如何过滤数据
2. 在表格上方添加"保存"按钮
   1. 在"开发人员/插入/按钮"菜单上
   2. 选择" SaveSimpleDemo"宏
   3. 右键单击按钮，然后选择"编辑文本"-键入"保存"
   4. 在表格底部添加值/行（只需在最后一行的下方开始输入）
      1. NB：将ID字段留空！
   5. 按"保存"按钮

EXCEL的外观如下：

添加新数据时，不应手动填充以灰色标记的列

HANA脚本：

---------------------------------

放置表格EXCEL_SIMPLE_DEMO;

创建列表EXCEL_SIMPLE_DEMO

（

" ID"整数不为null由默认身份标识生成

，"类别" CHAR（1）不为空

，" NAME" VARCHAR（20）不为空

，" VALUE"整数不为空

，"已创建"时间戳记不为空

，主键（" ID"）

，UNIQUE（"名称"）

）;

插入EXCEL_SIMPLE_DEMO（" CATEGORY"，" NAME"，" VALUE"，" CREATED"）值（" A"，" ITEM A1"，10，current_timestamp）；

插入EXCEL_SIMPLE_DEMO（" CATEGORY"，" NAME"，" VALUE"，" CREATED"）值（" A"，" ITEM A2"，100，current_timestamp）；

插入EXCEL_SIMPLE_DEMO（" CATEGORY"，" NAME"，" VALUE"，" CREATED"）值（'A'，'ITEM A3'，1000，current_timestamp）；

插入EXCEL_SIMPLE_DEMO（" CATEGORY"，" NAME"，" VALUE"，" CREATED"）值（" B"，" ITEM B1"，20，current_timestamp）；

插入EXCEL_SIMPLE_DEMO（" CATEGORY"，" NAME"，" VALUE"，" CREATED"）值（" B"，" ITEM B2"，200，current_timestamp）；

插入EXCEL_SIMPLE_DEMO（" CATEGORY"，" NAME"，" VALUE"，" CREATED"）值（" B"，" ITEM B3"，2000，current_timestamp）；

插入EXCEL_SIMPLE_DEMO（" CATEGORY"，" NAME"，" VALUE"，" CREATED"）值（" C"，" ITEM C1"，40，current_timestamp）；

插入EXCEL_SIMPLE_DEMO（" CATEGORY"，" NAME"，" VALUE"，" CREATED"）值（" C"，" ITEM C2"，400，current_timestamp）；

插入EXCEL_SIMPLE_DEMO（" CATEGORY"，" NAME"，" VALUE"，" CREATED"）值（" C"，" ITEM C3"，4000，current_timestamp）；

从EXCEL_SIMPLE_DEMO中选择*；

VBA代码

---------------------------------

显式选项

将sDRIVER作为字符串=" HDBODBC32"

将sSERVERNODE设置为String =" 10.xxx.xxx.xxx:30015"

const sUID as String =" EXCEL_DEMO"

将sPWD构造为String =" password"

将oConn转换为ADODB.Connection

私有子ConnectToDB（）

昏暗的connStr作为字符串

connStr =""

connStr = connStr＆" Driver = {"＆sDRIVER＆"};"

connStr = connStr＆" ServerNode ="＆sSERVERNODE＆";"

connStr = connStr＆" UID ="＆sUID＆";"

connStr = connStr＆" PWD ="＆sPWD＆";"

设置oConn = CreateObject（" ADODB.Connection"）

oConn.Open connStr

结束子

私人子DisconnectFromDB（）

oConn.Close

设置oConn =什么

结束子

私有子ExecuteSQL（SQLStr作为字符串）

oConn.Execute SQLStr

结束子

私有子LoadDataFromTable（sTable作为字符串，obj作为ListObject，sFilter作为字符串）

像ADODB.Recordset一样昏暗

将i_ret设置为整数

设置rs =新的ADODB.Recordset

rs.CursorLocation = adUseClient

如果oConn一无所有

MsgBox"没有打开的连接！"，vbExclamation

Err.Raise 10001，" modDB.RunProcedureAsSQLStmt"，"没有与DB的开放连接"

如果结束

如果oConn.State <> 1然后

MsgBox"没有打开的连接！"，vbExclamation

Err.Raise 10001，" modDB.RunProcedureAsSQLStmt"，"没有与DB的开放连接"

如果结束

rs。打开"从EXCEL_DEMO中选择*"。 ＆sTable＆" where"＆sFilter，oConn，adOpenStatic

i_ret = rs.RecordCount

如果obj.ListRows.Count> = 1那么

obj.DataBodyRange.Delete

如果结束

如果rs.RecordCount> 0那么

obj.Range（2，1）.CopyFromRecordset rs

如果结束

rs.Close

设置rs =无效

结束子

公共子LoadSimpleDemo（）

昏暗的obj作为ListObject

昏暗的sFilter作为字符串

sFilter = Range（" VAR_CATEGORY_FILTER"）。值

如果Len（Trim（sFilter））= 0那么

sFilter =" 1 = 1"'对于所有记录始终为真的过滤器

其他

sFilter =" CATEGORY ='"＆sFilter＆"'"

如果结束

致电ConnectToDB

设置obj = Sheets（" Sheet1"）。ListObjects（" TAB_EXCEL_SIMPLE_DEMO"）

调用LoadDataFromTable（" EXCEL_SIMPLE_DEMO"，obj，sFilter）

呼叫DisconnectFromDB

结束子

公共子SaveSimpleDemo（）

昏暗的valId作为字符串

昏暗的valCategory作为字符串

昏暗的valName作为字符串

将valValue设置为字符串

将行作为范围变暗

将SQLStr变暗为字符串

致电ConnectToDB

对于[TAB_EXCEL_SIMPLE_DEMO]中的每一行。行

valId = row.Columns（1）.Value

valCategory = row.Columns（2）.Value

valName = row.Columns（3）.Value

valValue = row.Columns（4）.Value

如果不是IsNumeric（valId）那么

SQLStr =""

SQLStr = SQLStr＆"插入EXCEL_DEMO.EXCEL_SIMPLE_DEMO（"" CATEGORY""，"" NAME""，"" VALUE""，"" CREATED""）"

SQLStr = SQLStr＆"值（'"＆valCategory＆"'，'"＆valName＆"'，"＆valValue＆"，current_timestamp）"

ExecuteSQL SQLStr

如果结束

下一步

呼叫DisconnectFromDB

'重新加载

调用LoadSimpleDemo

结束子