Dim xlBook As Excel.Workbook
Dim sheet As Worksheet
' Open the destination Excel workbook.
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("D:\Book1.xls")
xlApp.Visible = True
Set sheet = xlApp.Worksheets("Sheet1")
Range("A3").Select
ActiveCell.FormulaR1C1 = "购货方:" & Text1(0).Text
Range("D3").Select
ActiveCell.FormulaR1C1 = "供货方:" & Text1(10).Text
xlApp.Visible = False
' Clean up everything.
xlBook.SaveAs "c:\v.xls"
xlBook.Close False
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
这样处理,结果在进程里EXECL就关不掉了,求教
3 个解决方案
#1
xlapp.Quit
#2
xlapp.Quit已经有了
#3
以下是测试OK的
Dim a As ImageSize
Set xlapp = CreateObject("Excel.Application") '创建EXCEL应用类
xlapp.Visible = True '设置EXCEL可见
Set xlbook = xlapp.Workbooks.Open("D:\vb\mode\test.xls") '打开EXCEL工作簿
Dim xR As Range
Dim intFreeFile As Integer
intFreeFile = FreeFile
Sql = "select * from product "
Set xlsheet = xlbook.Worksheets(1) '打开EXCEL工作表
xlsheet.Activate
conn.Open ConnectString
rs.Open Sql, conn, 1, 1
i = 2
Do While Not rs.EOF
newsortid = rs("id")
newsortname = rs("englishname")
xlsheet.Cells(i, 1) = newsortname
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
xlapp.Worksheets.PrintPreview
xlapp.DisplayAlerts = False
xlsheet.SaveAs FileName:="d:\mode\xls\" & Date & ".xls"
MsgBox "已成功导出到D盘mode文件夹内!", vbExclamation + vbOKOnly, "导出成功"
xlapp.Quit
Set xlapp = Nothing
Dim a As ImageSize
Set xlapp = CreateObject("Excel.Application") '创建EXCEL应用类
xlapp.Visible = True '设置EXCEL可见
Set xlbook = xlapp.Workbooks.Open("D:\vb\mode\test.xls") '打开EXCEL工作簿
Dim xR As Range
Dim intFreeFile As Integer
intFreeFile = FreeFile
Sql = "select * from product "
Set xlsheet = xlbook.Worksheets(1) '打开EXCEL工作表
xlsheet.Activate
conn.Open ConnectString
rs.Open Sql, conn, 1, 1
i = 2
Do While Not rs.EOF
newsortid = rs("id")
newsortname = rs("englishname")
xlsheet.Cells(i, 1) = newsortname
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
xlapp.Worksheets.PrintPreview
xlapp.DisplayAlerts = False
xlsheet.SaveAs FileName:="d:\mode\xls\" & Date & ".xls"
MsgBox "已成功导出到D盘mode文件夹内!", vbExclamation + vbOKOnly, "导出成功"
xlapp.Quit
Set xlapp = Nothing
#1
xlapp.Quit
#2
xlapp.Quit已经有了
#3
以下是测试OK的
Dim a As ImageSize
Set xlapp = CreateObject("Excel.Application") '创建EXCEL应用类
xlapp.Visible = True '设置EXCEL可见
Set xlbook = xlapp.Workbooks.Open("D:\vb\mode\test.xls") '打开EXCEL工作簿
Dim xR As Range
Dim intFreeFile As Integer
intFreeFile = FreeFile
Sql = "select * from product "
Set xlsheet = xlbook.Worksheets(1) '打开EXCEL工作表
xlsheet.Activate
conn.Open ConnectString
rs.Open Sql, conn, 1, 1
i = 2
Do While Not rs.EOF
newsortid = rs("id")
newsortname = rs("englishname")
xlsheet.Cells(i, 1) = newsortname
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
xlapp.Worksheets.PrintPreview
xlapp.DisplayAlerts = False
xlsheet.SaveAs FileName:="d:\mode\xls\" & Date & ".xls"
MsgBox "已成功导出到D盘mode文件夹内!", vbExclamation + vbOKOnly, "导出成功"
xlapp.Quit
Set xlapp = Nothing
Dim a As ImageSize
Set xlapp = CreateObject("Excel.Application") '创建EXCEL应用类
xlapp.Visible = True '设置EXCEL可见
Set xlbook = xlapp.Workbooks.Open("D:\vb\mode\test.xls") '打开EXCEL工作簿
Dim xR As Range
Dim intFreeFile As Integer
intFreeFile = FreeFile
Sql = "select * from product "
Set xlsheet = xlbook.Worksheets(1) '打开EXCEL工作表
xlsheet.Activate
conn.Open ConnectString
rs.Open Sql, conn, 1, 1
i = 2
Do While Not rs.EOF
newsortid = rs("id")
newsortname = rs("englishname")
xlsheet.Cells(i, 1) = newsortname
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
xlapp.Worksheets.PrintPreview
xlapp.DisplayAlerts = False
xlsheet.SaveAs FileName:="d:\mode\xls\" & Date & ".xls"
MsgBox "已成功导出到D盘mode文件夹内!", vbExclamation + vbOKOnly, "导出成功"
xlapp.Quit
Set xlapp = Nothing