16,554
社区成员
发帖
与我相关
我的任务
分享
...全文
请发表友善的回复…
发表回复
wuyq11 2010-12-14
- 打赏
- 举报
Dim myexcel As New Excel.Application()
Dim mybook As Excel.Workbook
Dim mysheet As Excel.Worksheet
mybook = myexcel.Workbooks.Add("ExcelFilename")
mysheet = mybook.Worksheets("sheet1")
mysheet.Activate()
mysheet.Range("A1").Select()
DataGridView.SelectAll()
Dim t As New System.Windows.Forms.DataObject
t = dv.GetClipboardContent()
System.Windows.Forms.Clipboard.SetDataObject(t)
mysheet.PasteSpecial(Format:="文本", Link:=False, DisplayAsIcon:=False)
http://topic.csdn.net/u/20100624/20/de221a39-af88-4b73-9d12-24f33eb47761.html
Dim mybook As Excel.Workbook
Dim mysheet As Excel.Worksheet
mybook = myexcel.Workbooks.Add("ExcelFilename")
mysheet = mybook.Worksheets("sheet1")
mysheet.Activate()
mysheet.Range("A1").Select()
DataGridView.SelectAll()
Dim t As New System.Windows.Forms.DataObject
t = dv.GetClipboardContent()
System.Windows.Forms.Clipboard.SetDataObject(t)
mysheet.PasteSpecial(Format:="文本", Link:=False, DisplayAsIcon:=False)
http://topic.csdn.net/u/20100624/20/de221a39-af88-4b73-9d12-24f33eb47761.html
zqwz123 2010-12-14
- 打赏
- 举报
不要Google baidu
zj_312 2010-12-14
- 打赏
- 举报
Google
