Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
或可自編代碼解決(Tables("Sheet1")已建立),如:
DataTables("Sheet1").DataRows.Clear()
Dim r As Row
Dim Book As New XLS.Book("C:\book1.xls")
Dim Sht As XLS.Sheet = Book.Sheets(0)
with Tables("Sheet1")
.Redraw = False
For i As Integer = 1 To Sht.Rows.Count
if Sht(i, 0).Value > 0 then
r = Tables("Sheet1").AddNew
r("fz") = Sht(i, 0).Value
r("xh") = Sht(i, 1).Value
end if
Next
.Redraw = True
End with
对文本格式中的单元格在字段前加一个分号即可。没有导入数据的单元格式不对,我有遇到这个问题。