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

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

 

D:\123.xls

参考：http://www.foxtable.com/webhelp/topics/2334.htm

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

2楼更简洁快速。不需要打开execl文件就可以导入数据

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

Sheet.Rows.Count 指实际使用的行数，不用的行不会计算的

 

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

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)

Dim r1 As Row

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

if  n1 < Tables("表A").rows.count

    r1 = Tables("表A").rows(n1 - 1)

else

        r1 = Tables("表A").addnew()

end if

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

Next

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

没有