VB.Net2008，我需要将一个textbox里面的内容导入到execl的一个表格中，希望大虾们能给我一个简答的源代码。
答案:1 悬赏:10 手机版
解决时间 2021-11-30 10:40
- 提问者网友：浪荡绅士
- 2021-11-29 12:28
VB.Net2008，我需要将一个textbox里面的内容导入到execl的一个表格中，希望大虾们能给我一个简答的源代码。
最佳答案
- 五星知识达人网友：夜余生
- 2021-11-29 14:03
非常简单，我给你段源码，你自己看着修改，注释也给你标清楚了。
Dim TempPath As String = System.Environment.GetFolderPath(System.Environment.SpecialFolder.Desktop) & "\月报表" & Format(Now, "yyyy年MM月dd日") & ".xls" ‘这个是设置EXCEL的文件路径，我这个是默认桌面
Dim MyExcel As New Microsoft.Office.Interop.Excel.Application() ‘实例化EXCEL
MyExcel.Application.Workbooks.Open(TempPath)’打开EXCEL
MyExcel.Visible = True '是否显示打开的EXCEL，我这个是显示
MyExcel.Cells(4, 1) = textbox1.text ‘将textbox1的内容写入到EXCEL的第4行第1列，以下相同
MyExcel.Cells(4, 2) = textbox2.text
MyExcel.Cells(4, 3) = textbox3.text
MyExcel.Cells(4, 4) = textbox4.text
Dim TempPath As String = System.Environment.GetFolderPath(System.Environment.SpecialFolder.Desktop) & "\月报表" & Format(Now, "yyyy年MM月dd日") & ".xls" ‘这个是设置EXCEL的文件路径，我这个是默认桌面
Dim MyExcel As New Microsoft.Office.Interop.Excel.Application() ‘实例化EXCEL
MyExcel.Application.Workbooks.Open(TempPath)’打开EXCEL
MyExcel.Visible = True '是否显示打开的EXCEL，我这个是显示
MyExcel.Cells(4, 1) = textbox1.text ‘将textbox1的内容写入到EXCEL的第4行第1列，以下相同
MyExcel.Cells(4, 2) = textbox2.text
MyExcel.Cells(4, 3) = textbox3.text
MyExcel.Cells(4, 4) = textbox4.text
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯