麻烦楼主删帖

[复制链接]

Monki0115

2014-11-3 01:02 PM

本帖最后由 Monki0115 于 2014-11-21 02:36 PM 编辑

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

If My.Computer.FileSystem.FileExists("d:\test1.xlsx") Then
Try
Dim xls As New Excel.Application
Dim Wbook As Excel.Workbook
Dim Wsheet As Excel.Worksheet
xls.Workbooks.Open("d:\test1.xlsx")
Wbook = xls.ActiveWorkbook
Wsheet = Wbook.ActiveSheet
Dim i As Integer = 0
If lastrow >= 10 Then
Dim curRow As Integer = lastrow + 1
For rowlength As Integer = 0 To DataGridView1.Rows.Count - 1
For columnlength As Integer = 0 To DataGridView1.Columns.Count - 1
Wsheet.Cells(curRow, columnlength + 1).Value =
DataGridView1.Rows(rowlength).Cells(columnlength).Value
Next
Next
End If
Wbook.Save()
xls.closed()
Catch ex As Exception
MsgBox(ex.ToString)
End Try

复制代码

Monki0115

2014-11-3 01:05 PM

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

zechs

2014-11-3 02:08 PM

Wbook.DisplayAlerts = False

在save前加这句，试试看。

Monki0115

2014-11-3 02:22 PM

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

zechs

2014-11-3 04:26 PM

xls.DisplayAlerts = False

这个呢？

Monki0115

2014-11-3 05:58 PM

一样 no found 哦 ~

燕子不会飞

2014-11-3 07:09 PM

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

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

我的理解能力比较不好

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

Monki0115

2014-11-3 09:52 PM

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