Assuming you are using VB5/6:
- It is easier to start using early binding (setting a reference) and
declaring your object as the correct type. eg.
Dim MSExcel As Excel.Application
Dim WB As Excel.Workbook
etc
That way you get Intellisense to help you with syntx

- Here, do you mean that excel or your VB form is not visible ?
With msexcel
Visible = False
Workbooks.Open "d:\DYNAMICS\PDB\RPT.xls", , False
End With
MSExcel.Visible<Me.Visible=False

- Here MSExcel IS the application, so just use MSExcel
With msexcel.Application

- Make sure you alway use fully qualified object:
e.g.
Dim WB As Excel.Workbook
Set WB=Workbooks.Open ("d:\DYNAMICS\PDB\RPT.xls", , False)
With WB
With .Worksheets(1)
.Cells(2,1).Value=
.Cells(2,2).Value=
End with
.SaveAs Filename
End With

- It's not closing because you are not tell Excel to close. You need to add
WB.Close
Set WB=Nothing
MSExcel.Quit
Set MSExcel=nothing

As it seems that you are using VB.Net, I can't tell if the syntax is
correct, but the logic is.

NickHK

"xz739" wrote in
message ...

i have created a excel workbook in vb,below are the codes:

private sub report ()
Dim sfilename As String
Dim spath As String
Dim dtecurrent As Date
Dim msexcel As Object
dtecurrent = Now
Set msexcel = CreateObject("Excel.Application")

With msexcel
Visible = False
Workbooks.Open "d:\DYNAMICS\PDB\RPT.xls", , False
End With

With msexcel.Application
ActiveWorkbook.ActiveSheet.Select
Cells(2, 1) = Time
Cells(2, 2) = Date
End With
sfilename = Format(dtecurrent, "mmddyyyy HHMMSS") & ".xls"

spath = System.BasePath & "\htrdata\" & sfilename

msexcel.ActiveWorkbook.SaveAs spath 'Saves the file with the path

msexcel.Visible = True

Set msexcel = Nothing
end sub
*********
in the program i call the function period,because the excel run in
background,so the problem is every time it will add a windows process,
how can i close the process in the function?


--
xz739
------------------------------------------------------------------------
xz739's Profile:
http://www.excelforum.com/member.php...o&userid=37053
View this thread: http://www.excelforum.com/showthread...hreadid=567780