VBGood网站全文搜索 Google

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

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 486|回复: 6

[求助] 关于关闭EXCEL进程的问题

[复制链接]
发表于 2018-7-5 18:27:54 | 显示全部楼层 |阅读模式
10金钱
Private Sub Command1_Click()
On Error GoTo erropen
Dim i As Integer, j As Integer
Dim xlApp, xlBook
CommonDialog1.CancelError = True
CommonDialog1.DialogTitle = "指定要接收的Txt文件"
CommonDialog1.Filter = "文本文件(*.xls)|*.xls|所有文件(*.*)|*.*"
CommonDialog1.InitDir = App.Path
CommonDialog1.ShowOpen
Label1.Caption = CommonDialog1.FileName
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
Set xlBook = xlApp.Workbooks.Open(Label1.Caption)

For i = 3 To xlBook.Worksheets("Sheet1").UsedRange.Rows.Count '行总数
  If xlBook.Worksheets("Sheet1").Cells(i, 1).Value = "" Then MsgBox "制作“电动工具台卡”的每条记录都需要“工具名称”。", vbOKOnly, "成功输出": Label1.Caption = "": Exit Sub
  If xlBook.Worksheets("Sheet1").Cells(i, 4).Value = "" Then MsgBox "制作“电动工具台卡”的每条记录都需要“工具名称”。", vbOKOnly, "成功输出": Label1.Caption = "": Exit Sub
Next i

If xlApp.Worksheets("Sheet1").Range("A1").Cells(3, 1) <> "" Then
    For i = 3 To xlBook.Worksheets("Sheet1").UsedRange.Rows.Count '行总数
      Dim AA As String, BB As String '开始向WORD输入数据
      Dim wordApp
      Dim Word
      Set wordApp = CreateObject("Word.Application")
      Set Word = wordApp.Documents.Open(App.Path & "\台帐模板\电动工具台卡维修记录.doc")
      wordApp.Visible = False

      wordApp.Selection.MoveDown Unit:=wdLine, Count:=1
      wordApp.Selection.TypeText Text:=xlBook.Worksheets("Sheet1").Cells(i, 1).Value
      wordApp.Selection.MoveRight Unit:=wdCell
      wordApp.Selection.MoveRight Unit:=wdCell
      wordApp.Selection.TypeText Text:=xlBook.Worksheets("Sheet1").Cells(i, 2).Value
      wordApp.Selection.MoveRight Unit:=wdCell
      wordApp.Selection.MoveRight Unit:=wdCell
      wordApp.Selection.TypeText Text:=xlBook.Worksheets("Sheet1").Cells(i, 3).Value
      wordApp.Selection.MoveRight Unit:=wdCell
      wordApp.Selection.MoveRight Unit:=wdCell
      wordApp.Selection.TypeText Text:=xlBook.Worksheets("Sheet1").Cells(i, 4).Value
      wordApp.Selection.MoveRight Unit:=wdCell
      wordApp.Selection.MoveRight Unit:=wdCell
      wordApp.Selection.TypeText Text:=xlBook.Worksheets("Sheet1").Cells(i, 5).Value
      wordApp.Selection.MoveRight Unit:=wdCell
      wordApp.Selection.MoveRight Unit:=wdCell
      wordApp.Selection.TypeText Text:=xlBook.Worksheets("Sheet1").Cells(i, 6).Value
      wordApp.Selection.MoveRight Unit:=wdCell
      wordApp.Selection.MoveRight Unit:=wdCell
      wordApp.Selection.TypeText Text:=xlBook.Worksheets("Sheet1").Cells(i, 7).Value
      wordApp.Selection.MoveRight Unit:=wdCell
      wordApp.Selection.MoveRight Unit:=wdCell
      wordApp.Selection.TypeText Text:=xlBook.Worksheets("Sheet1").Cells(i, 8).Value
      wordApp.Selection.MoveRight Unit:=wdCell
      wordApp.Selection.MoveRight Unit:=wdCell
      wordApp.Selection.TypeText Text:=xlBook.Worksheets("Sheet1").Cells(i, 9).Value
   
      Word.SaveAs App.Path & "\制作后的台帐\电动工具台卡\" & xlBook.Worksheets("Sheet1").Cells(i, 1).Value & "(" & xlBook.Worksheets("Sheet1").Cells(i, 4).Value & ")" & ".doc"
      Word.Close
      Set Word = Nothing
      wordApp.Quit
      Set wordApp = Nothing
    Next i
    MsgBox "“电动工具台卡”输出完毕", vbOKOnly, "成功输出": Label1.Caption = "": Exit Sub
  Else
    MsgBox "没有找到电动工具台帐列表相关数据,即将退出", vbOKOnly, "提示": Label1.Caption = "": Exit Sub
End If

xlBook.Close
Set xlBook = Nothing
xlApp.Quit
Set xlApp = Nothing

erropen:
End
End Sub

突然发现,运行完成后,进程中仍有仍有EXCEL,请求帮助。

问专家.rar

36.35 KB, 下载次数: 45

有问题的代码

 楼主| 发表于 2018-7-12 21:31:58 | 显示全部楼层
自解:
.......
Next i
    MsgBox "“电动工具台卡”输出完毕", vbOKOnly, "成功输出": Label1.Caption = "": Exit Sub
    xlBook.Close
    Set xlBook = Nothing
    xlApp.Quit
    Set xlApp = Nothing
  Else
    MsgBox "没有找到电动工具台帐列表相关数据,即将退出", vbOKOnly, "提示": Label1.Caption = "": Exit Sub
End If

erropen:
End
回复

使用道具 举报

 楼主| 发表于 2018-7-12 21:32:10 | 显示全部楼层
自解:
.......
Next i
    MsgBox "“电动工具台卡”输出完毕", vbOKOnly, "成功输出": Label1.Caption = "": Exit Sub
    xlBook.Close
    Set xlBook = Nothing
    xlApp.Quit
    Set xlApp = Nothing
  Else
    MsgBox "没有找到电动工具台帐列表相关数据,即将退出", vbOKOnly, "提示": Label1.Caption = "": Exit Sub
End If

erropen:
End
回复

使用道具 举报

 楼主| 发表于 2018-7-12 21:32:44 | 显示全部楼层
自解:
.......
Next i
    MsgBox "“电动工具台卡”输出完毕", vbOKOnly, "成功输出": Label1.Caption = "": Exit Sub
    xlBook.Close
    Set xlBook = Nothing
    xlApp.Quit
    Set xlApp = Nothing
  Else
    MsgBox "没有找到电动工具台帐列表相关数据,即将退出", vbOKOnly, "提示": Label1.Caption = "": Exit Sub
End If

erropen:
End
回复

使用道具 举报

 楼主| 发表于 2018-7-12 21:34:03 | 显示全部楼层
自解:
.......
Next i
    MsgBox "“电动工具台卡”输出完毕", vbOKOnly, "成功输出": Label1.Caption = "": Exit Sub
    xlBook.Close
    Set xlBook = Nothing
    xlApp.Quit
    Set xlApp = Nothing
  Else
    MsgBox "没有找到电动工具台帐列表相关数据,即将退出", vbOKOnly, "提示": Label1.Caption = "": Exit Sub
End If

erropen:
End
回复

使用道具 举报

 楼主| 发表于 2018-7-12 21:34:52 | 显示全部楼层
xlBook.Close及以下三条放到Else上即可
回复

使用道具 举报

 楼主| 发表于 2018-7-12 21:35:22 | 显示全部楼层
Else
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2018-10-17 03:11

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