主题：引用EXCEL数据赋值的按钮代码

希望实现，把这个路径的表格的SHEET1的 A列不为空的内容，全部赋值到表A的第一列中，代码怎么写

 

D:\123.xls

你好，用模拟 复制 粘贴 的代码 是不是更简洁快速？那个怎么写？

Sheet.Rows.Count -1 这个值会不会很大，我记得表格的行往下拖很长的？会影响计算吗？

 

Dim Book As New XLS.Book(路径1)

Dim Sheet As XLS.Sheet = Book.Sheets(0)

For n As Integer = 1 To sheet.Rows.count - 1

       Dim r As Row = Tables("表A").addnew()

       r("第一列")= sheet(n,0).value    

Next

Dim Book1 As New XLS.Book(路径2)

Dim Sheet1 As XLS.Sheet = Book1.Sheets(0)

For n1 As Integer = 1 To sheet.Rows.count - 1

        Dim r1 As Row = Tables("表A").addnew()

        r1("第二列")= sheet1(n1,0).value

Next

 

 

再请问下，按这个代码，运行的效果如下图左侧，如何实现右侧的效果？

 

此主题相关图片如下：捕获1.jpg

版主 我看你写 if 语句时， 经常不带 then,没有影响吗

谢谢，测试一直很正常，但今天用这个方法 把SAP导出的 xls文件数据进行导入，提示失败。SAP导出的 xls文件有什么特殊的地方，需要针对调整代码吗？

此主题相关图片如下：捕获2.jpg

 

我又发现SAP导出的xls文件，直接打开时，会有这个提示，是不是FOXTABLE默认不信任这个 认为不安全的文件，是否可以修改成信任？

 

 

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

点击浏览该文件:123.xls

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

点击浏览该文件:123.txt

 

 

老师，可能是xls文件的问题，这SAP导出的原本是个 unicode文本，保存时改成的XLS后缀，这样的xls是不是不能处理，

 

或者 若是把 txt文本里的内容 用类似 EXCEL的这种代码 赋值到表中，能实现吗，

 

 Dim strs As String = FileSys.ReadAllText(路径...txt)  '调用文本文件

  strs = strs.Replace(vblf,"")               '将读取的文本文件中的换行符(vblf)清除掉,仅保留回车符.

  Dim rs() As String = strs.Split(vbcr)      '将读取的文本文件内容拆分成一个数组,数组中每个元素对应中文本文件中的一行内容

  For i As Integer = 7 To rs.Length - 1        '从第8行开始取数

   Dim cs() As String = rs(i).Split(vbtab)   '将每行文本内容拆分成单个的值.

      Dim dr As DataRow = DataTables("表A").Addnew()

      dr("BOM1_物料编码") = cs(0)

      Next

 

再请教下，我按帮助文件改写的代码，很规则的文本文件测试成功，但我这个需要导入的文本文件 每行的前面和 每行数据之间 有不知道是空格还是 tab符号，则导入失败，请问下 这个该怎么处理。文本就和16楼的附件类似