Dim rg As MSExcel.Range = ws.Cells(ws.UsedRange.Rows.Count+1,1)
改成
Dim rg As MSExcel.Range = ws.Cells(1, ws.UsedRange.Columns.Count+1)
加好友 
发短信
Post By：2018/1/3 9:26:00 [显示全部帖子]
