主题：粘贴品名生成结果是对的，选择文件生成的结果就不对，实在找不到原因了

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:粘贴.rar

粘贴品名生成结果是对的，选择文件生成的结果就不对，实在找不到原因了

选择文件的结果，和粘贴品名的结果不一样，正确的结果应该是粘贴品名数据的结果，目录下有一个示例文件

第一个测试选择文件，目录下有一个文件，右面会显示结果        第二个测试是复制目录下文件的所有品名，粘贴到左面的table，点显示，右面table出现结果           第二个测试的结果是对的，第一个测试不对

For Each r As Row In Tables("销售临时").GetCheckedRows
    Dim book As new XLS.Book(Vars("name"))
    Dim sheet As XLS.Sheet = book.Sheets("表1")
    'Sheet(r("编号"),1).Value=r("品名")
    'Sheet(r("编号"),2).Value=r("封装")
    'Sheet(r("编号"),3).Value=r("数量")
    Sheet(r("编号"),4).Value=r("单价")
    'Sheet(r("编号"),5).Value=r("金额")
    Sheet(r("编号"),6).Value=r("区域")
    Sheet(r("编号"),7).Value=r("电话")
    Sheet(r("编号"),8).Value=r("仓库")
    Sheet(r("编号"),9).Value=r("备注")
    book.Save(Vars("name"))
Next
msgbox("添加完成!!")

我向表里写，写上不呢？name我定义了一个全部变量

选择文件时加入了一句代码Vars("name")= dlg.FileName

你说的这些都没有错，我只能想出来用全局变量，不知道用什么好，现在表里什么也没写上