主题：reachtone 老师请进 ～ 【ok 了】

 您的 以excel文件作为数据源的例子  的按钮代码中
          ts = ts & s.Replace("$","").Trim("'") & "|"      改为：
          ts = ts & dlg.FileName.split("\")(dlg.FileName.split("-:special:1:-).length-1) & " 中的表: " & s.Replace("$","").Trim("'") & "|"

后
     
会发现： 在同一数据源下，选择不同的Excel工作簿，都会提示“xx数据源已经存在”，但是ListBox中显示的是：不同的工作簿名 和 第一次显示的第一个工作簿的表名。 总感觉～   说不出的味道。
既然提示了，怎样保持原工作簿和表名不变？ 也就是怎样判断数据源已经存在呢？ 提示之后不执行代码向ListBos写东西了。 
上面怎么会乱码呢：

此主题相关图片如下：未命名.jpg

谢谢C版 R版  我做成这样的了， 但是同数据源还是会提示，但是不影响正确执行，可以对数据源重命名来加载同个或不同的数据源。还是R版说的用目录树好看写～ 
另外，我还很少使用全局变量，不是很熟悉，一般都是用一个标签或文本框来替代，只是多写几行代码了。

此主题相关图片如下：未命名2.jpg

就是方便查阅～ 啊！
我就是通过这样拿大家的例子不断摆弄（你说的钻研），使自己玩弄代码水平不断提高的（当然也还属于菜鸟级别的），呵呵，我可是玩狐表之前没有一点点基础的（不会任何语言），连易表（听说很容易上手的）基本都不会 。

呵呵 ， 我还没有完成，昨天都是在命令窗口测试的，忘了把最后的代码放到按钮中了（又要重写了），图片中下面两个按钮是空的，上面那个ok的按钮，也只是完成对数据源名称的文本框应用ok了。 再说，你看图片数据源名mm5 本来是同一个工作簿下的表，但选择另一个工作簿时，却把工作簿的名称替换掉了，其他没变？还要增加几个判断， 我晕了啊～   有空等下次来劲的时候再继续做吧。

思路是这样的： 显示：数据源名称，工作簿名 和 工作表名，就是一楼的代码！ 另加个文本框将每次显示的保存，增加数据源时再判断保存的文本框里是否有同名的，处理后再显示到ListBox中。

不过，还是感觉R版的目录树的想法更好～～～