VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 248|回复: 2

求助vb.net操作excel问题

[复制链接]
发表于 2018-12-14 17:10:29 | 显示全部楼层 |阅读模式
10金钱
本帖最后由 SengChuary 于 2018-12-14 17:12 编辑

输入上次保存的数据保存时没数据保存,会的朋友帮忙看看代码哪里有错,非常感谢!

捕获.jpg
  1. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

  2.         Dim AppXls As Microsoft.Office.Interop.Excel.Application    '声明Excel对象
  3.         Dim AppWokBook As Microsoft.Office.Interop.Excel.Workbook    '声明工作簿对象
  4.         Dim AppSheet As New Microsoft.Office.Interop.Excel.Worksheet    '声明工作表对象
  5.         'Dim xlrange As Microsoft.Office.Interop.Excel.Range
  6.         'AppXls = New Microsoft.Office.Interop.Excel.Application     '实例化Excel对象
  7.         'AppWokBook = New Microsoft.Office.Interop.Excel.Workbook    '实例化工作簿对象
  8.         'AppSheet = New Microsoft.Office.Interop.Excel.Worksheet     '实例化工作表对象


  9.         Dim Nrec
  10.         Dim r As Integer
  11.         Dim r1 As String
  12.         Dim r2 As String
  13.         Dim r3 As String
  14.         Dim r4 As String
  15.         AppXls = CreateObject("Excel.Application") '第一层
  16.         AppWokBook = AppXls.Workbooks.Add
  17.         AppXls.Visible = False                                      '使Excel不可见
  18.         AppXls.DisplayAlerts = False                              '关闭提示消息(例如保存时的兼容性提示等)
  19.         Nrec = 1
  20.         If Dir("C:\Data" & TextBox3.Text & ".xlsx") = "" Then

  21.             AppXls.Workbooks(1).Sheets("Sheet1").Range("a1") = "序号"
  22.             AppXls.Workbooks(1).Sheets("Sheet1").Range("b1") = "日期"
  23.             AppXls.Workbooks(1).Sheets("Sheet1").Range("c1") = "时间"
  24.             AppXls.Workbooks(1).Sheets("Sheet1").Range("d1") = "数据"

  25.             AppXls.Workbooks(1).Sheets("Sheet1").Range("a2") = Nrec
  26.             AppXls.Workbooks(1).Sheets("Sheet1").Range("b2") = TextBox1.Text
  27.             AppXls.Workbooks(1).Sheets("Sheet1").Range("c2") = TextBox2.Text
  28.             AppXls.Workbooks(1).Sheets("Sheet1").Range("d2") = TextBox3.Text

  29.             AppXls.Workbooks(1).SaveAs("C:\Data" & TextBox3.Text & ".xlsx")
  30.             MessageBox.Show("File created successfully,The file is saved in the C:\Data\ Directory ", "Saved Excel ", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
  31.         Else
  32.             AppXls.Workbooks.Open("C:\Data" & TextBox3.Text & ".xlsx")
  33.             AppSheet = AppXls.Workbooks(1).Sheets("Sheet1")
  34.             'AppSheet.Activate() 'AppSheet对象指向AppWokBook对象中的表“Sheet1”
  35.             r = AppXls.Workbooks(1).Sheets("Sheet1").UsedRange.Rows.Count
  36.             r1 = "a" & r + 1
  37.             r2 = "b" & r + 1
  38.             r3 = "c" & r + 1
  39.             r4 = "d" & r + 1
  40.             AppXls.Workbooks(1).Sheets("Sheet1").Range(r1) = r
  41.             AppXls.Workbooks(1).Sheets("Sheet1").Range(r2) = TextBox1.Text
  42.             AppXls.Workbooks(1).Sheets("Sheet1").Range(r3) = TextBox2.Text
  43.             AppXls.Workbooks(1).Sheets("Sheet1").Range(r4) = TextBox3.Text

  44.             'AppXls.Workbooks(1).Saved("C:\Data" & TextBox3.Text & ".xlsx")

  45.             MessageBox.Show("Saved in folder file, saved file!!! ", "Saved Excel ", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)

  46.         End If

  47.         '使用完毕必须关闭EXCEL,并退出
  48.         AppXls.ActiveWorkbook.Close(SaveChanges:=True)
  49.         AppXls.Quit() '结束EXCEL对象  
  50.         AppXls = Nothing '释放xlApp对象



  51.     End Sub
复制代码


date_time.rar (90.93 KB, 下载次数: 6)

点评

海!外直播 t.cn/RxlBL8s 禁闻视频 t.cn/RJ7ga9F 前天看了一份调查CCTV在全国的收视率,东三省最高87%,然后依次下降到广东的5%。我看得笑起来了,活脱脱的一个经济倒排序,看得越多脑子越残!不如看这个..  发表于 2018-12-16 20:47
发表于 2018-12-24 14:57:16 | 显示全部楼层
所有的"C:\Data"应该改为:"C:\Data\";
'AppXls.Workbooks(1).Saved("C:\Data" & TextBox3.Text & ".xlsx")应该为:AppXls.Workbooks(1).SaveAs("C:\Data\" & TextBox3.Text & ".xlsx")
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2019-1-24 15:14

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表