vb 向DataGridView粘贴excel数据

2015-10-24 07:06:43 514 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

在DataGridView控件上实现列标头象Excel带数据筛选功能 'VB.NET 2008 环境 '新建一个项目后，只需在Form1中拉一个DataGridView，一个ComboBox，然后将下面代码复制粘贴即可，其它什么也不用做 Public Class Form1 Dim SelectedCol As Integer = 0, IsFindit As Boolean = True Private Sub Form1_ 阅读详情

在excel中复制了一行或者一个区域的值如何将他粘贴到DataGridView中我试了无论在excel中选取多少值只能粘贴到DataGridView的一个单元格中，这个问题怎么解决

...全文

Matplotlib字体警告终结者：为什么总提示DejaVu Sans？5种场景解决方案大全本文深入解析Matplotlib中常见的DejaVu Sans字体警告问题，并提供5种典型场景的完整解决方案。从理解字体系统的三层架构和缓存机制，到解决中文显示、远程服务器部署、TeX渲染、缓存优化及生产环境配置等实际问题，帮助开发者彻底摆脱字体警告困扰，实现稳定可靠的数据可视化。阅读详情

derrbuex

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

derrbuex 2015-10-25

打赏
举报

引用 4 楼 derrbuex 的回复:

[quote=引用 3 楼 ajianchina 的回复:] 你可以注册一个热键就像ctrl+v，然后在WndProc中拦截这个热键，拦截之后就执行我给的这段代码。或者你干脆就用一个按钮，点击按钮执行也行，你就将该函数内的代码贴过去就行了。

我试过了没反应我把代码放在一个按钮下在excel上复制了一个区域然后切换到 vb程序点击按钮没有反应[/quote] 而且有选中datagridview中的单元格

derrbuex 2015-10-25

打赏
举报

引用 3 楼 ajianchina 的回复:

你可以注册一个热键就像ctrl+v，然后在WndProc中拦截这个热键，拦截之后就执行我给的这段代码。或者你干脆就用一个按钮，点击按钮执行也行，你就将该函数内的代码贴过去就行了。

我试过了没反应我把代码放在一个按钮下在excel上复制了一个区域然后切换到 vb程序点击按钮没有反应

derrbuex 2015-10-25

打赏
举报

这个不行的我自己解决了还是谢谢

ajianchina 2015-10-24

打赏
举报

你可以注册一个热键就像ctrl+v，然后在WndProc中拦截这个热键，拦截之后就执行我给的这段代码。或者你干脆就用一个按钮，点击按钮执行也行，你就将该函数内的代码贴过去就行了。

derrbuex 2015-10-24

打赏
举报

引用 1 楼 ajianchina 的回复:

从剪贴板取得数据，然后按行列粘贴到datagridview


Private Sub CopyExcelToGrid()
	If datagridview.CurrentCell Is Nothing Then
		Return
	End If
	Dim insertRowIndex As Integer = datagridview.CurrentCell.RowIndex
	'从剪贴板中取得格式本文数据
	Dim pasteText As String = Clipboard.GetText()
	If String.IsNullOrEmpty(pasteText) Then
		Return
	End If
	pasteText = pasteText.Replace(" ", " ")
	pasteText = pasteText.Replace(" "C, " "C)
	pasteText.TrimEnd(New Char() {" "C})
	Dim lines As String() = pasteText.Split(" "C)
	Dim isHeader As Boolean = True
	For Each line As String In lines
		If isHeader Then
			isHeader = False
			Continue For
		End If
		Dim vals As String() = line.Split(" "C)
		If vals.Length - 1 <> datagridview.ColumnCount Then
			Throw New ApplicationException("列数错误")
		End If

		Dim row As DataGridViewRow = datagridview.Rows(insertRowIndex)
		row.HeaderCell.Value = vals(0)
		For i As Integer = 0 To row.Cells.Count - 1
			row.Cells(i).Value = vals(i + 1)
		Next
		insertRowIndex += 1
	Next

	Dim iData As IDataObject = Clipboard.GetDataObject()
	If iData.GetDataPresent(DataFormats.Text) Then
		Dim str As String = DirectCast(iData.GetData(DataFormats.Text), [String])
	End If
End Sub

额...这段代码具体怎么用放在哪个部分，新手不太明白

ajianchina 2015-10-24

打赏
举报

从剪贴板取得数据，然后按行列粘贴到datagridview


Private Sub CopyExcelToGrid()
	If datagridview.CurrentCell Is Nothing Then
		Return
	End If
	Dim insertRowIndex As Integer = datagridview.CurrentCell.RowIndex
	'从剪贴板中取得格式本文数据
	Dim pasteText As String = Clipboard.GetText()
	If String.IsNullOrEmpty(pasteText) Then
		Return
	End If
	pasteText = pasteText.Replace(" ", " ")
	pasteText = pasteText.Replace(" "C, " "C)
	pasteText.TrimEnd(New Char() {" "C})
	Dim lines As String() = pasteText.Split(" "C)
	Dim isHeader As Boolean = True
	For Each line As String In lines
		If isHeader Then
			isHeader = False
			Continue For
		End If
		Dim vals As String() = line.Split(" "C)
		If vals.Length - 1 <> datagridview.ColumnCount Then
			Throw New ApplicationException("列数错误")
		End If

		Dim row As DataGridViewRow = datagridview.Rows(insertRowIndex)
		row.HeaderCell.Value = vals(0)
		For i As Integer = 0 To row.Cells.Count - 1
			row.Cells(i).Value = vals(i + 1)
		Next
		insertRowIndex += 1
	Next

	Dim iData As IDataObject = Clipboard.GetDataObject()
	If iData.GetDataPresent(DataFormats.Text) Then
		Dim str As String = DirectCast(iData.GetData(DataFormats.Text), [String])
	End If
End Sub

vb 向DataGridView粘贴excel数据

相关推荐