我用VB.NET 写的程序 需要复制表格内容到微信聊天窗口发送,之前用Excel库实现的,发现电脑没有安装表格软件无法使用,如何使用EPPLUS或者OPOI库实现同样的功能,是复制表格的内容到剪切板,然后再粘贴到微信聊天窗口。
' 打开Excel文件
Dim excelApp As New Excel.Application()
Dim workbook As Excel.Workbook = excelApp.Workbooks.Open(OpenFileDialog1.FileName)
Dim worksheet As Excel.Worksheet = workbook.Sheets(3)
If 行数2 = 1 Then
worksheet.Range(复制1).Copy() ' 选择复制1区域并复制到剪切板
Threading.Thread.Sleep(500) ' 延时500毫秒
SendKeys.Send("^v") ' 模拟按键CTRL+V
Threading.Thread.Sleep(500) ' 延时500毫秒
SendKeys.Send("{ENTER}") ' 按下回车键
' 关闭Excel文件
workbook.Close(False)
excelApp.Quit()
' 释放资源
System.Runtime.InteropServices.Marshal.ReleaseComObject(worksheet)
System.Runtime.InteropServices.Marshal.ReleaseComObject(workbook)
System.Runtime.InteropServices.Marshal.ReleaseComObject(excelApp)
' 清空剪切板
Clipboard.Clear()
End If