麻烦楼主删帖

Monki0115

我用着visual studio 2013 ultimate.
我想update datagridview 里的data去已经存在的excel file.
因为会持续性的update,所以不可以固定rows 和 columns.

---

1. If My.Computer.FileSystem.FileExists("d:\test1.xlsx") Then
   
2. 
   
3.             Try
   
4. 
   
5.                 Dim xls As New Excel.Application
   
6.                 Dim Wbook As Excel.Workbook
   
7.                 Dim Wsheet As Excel.Worksheet
   
8. 
   
9.                 xls.Workbooks.Open("d:\test1.xlsx")
   
10.                 Wbook = xls.ActiveWorkbook
    
11.                 Wsheet = Wbook.ActiveSheet
    
12. 
    
13. 
    
14.                 Dim i As Integer = 0
    
15. 
    
16.                 If lastrow >= 10 Then
    
17.                     Dim curRow As Integer = lastrow + 1
    
18.                     For rowlength As Integer = 0 To DataGridView1.Rows.Count - 1
    
19.                         For columnlength As Integer = 0 To DataGridView1.Columns.Count - 1
    
20.                             Wsheet.Cells(curRow, columnlength + 1).Value =
    
21.                                 DataGridView1.Rows(rowlength).Cells(columnlength).Value
    
22. 
    
23.                         Next
    
24.                     Next
    
25.                 End If
    
26. 
    
27.                 Wbook.Save()
    
28.                 xls.closed()
    
29. 
    
30.             Catch ex As Exception
    
31.                 MsgBox(ex.ToString)
    
32.             End Try
    

复制代码

Monki0115

问题是它会要求overwrite而不是update 原来的文件。
摆脱帮帮我

zechs

Wbook.DisplayAlerts = False

在save前加这句，试试看。

Monki0115

'DisplayAlerts ' on type 'Workbook' not found.
出现这个error ~ 不过还是谢谢你

zechs

xls.DisplayAlerts = False

这个呢？

Monki0115

一样 no found 哦 ~

燕子不会飞

试试看把lastrow 改成 objExcel.ActiveCell.Row + 1 看看

你需要的是不是只要有新data进来，就自动加新data不影响旧data？？？

我的理解能力比较不好

http://technet.microsoft.com/en-us/library/ee692869.aspx

Monki0115

你的意思是这样么？
我是把 lastrow dim as object 哦·
差不多意思，总之要把旧data保留，然后把新data加进去.

1. If My.Computer.FileSystem.FileExists("d:\test1.xlsx") Then
   
2. 
   
3.             Try
   
4. 
   
5.                 Dim xls As New Excel.Application
   
6.                 Dim Wbook As Excel.Workbook
   
7.                 Dim Wsheet As Excel.Worksheet
   
8. 
   
9.                 xls.Workbooks.Open("d:\test1.xlsx")
   
10.                 Wbook = xls.ActiveWorkbook
    
11.                 Wsheet = Wbook.ActiveSheet
    
12. 
    
13. 
    
14.                 Dim i As Integer = 0
    
15. 
    
16.                 If lastrow >= 10 Then
    
17.                     Dim curRow As Integer = lastrow.ActiveCell.Row + 1
    
18.                     For rowlength As Integer = 0 To DataGridView1.Rows.Count - 1
    
19.                         For columnlength As Integer = 0 To DataGridView1.Columns.Count - 1
    
20.                             Wsheet.Cells(curRow, columnlength + 1).Value =
    
21.                                 DataGridView1.Rows(rowlength).Cells(columnlength).Value
    
22. 
    
23.                         Next
    
24.                     Next
    
25.                 End If
    
26. 
    
27.               
    

复制代码

可是还是有error

TSHsoft

记录最后一笔资料是第几个row在第一个row或者一个特定地方，下次update的时候就读取最后一笔资料到哪个row了，然后再从那个row过后继续update咯～

tohkl14

你是用MICROSOFT的LIBRARY还是THIRD PARTY的？建议你用EPPLUS。。。