Dim dsExcelExport As New System.Data.DataSet
Dim daExcelExport As New System.Data.SqlClient.SqlDataAdapter
Dim Excel As New Excel.Application
Dim strExcelFile As String
Dim strFileName As String
dsExcelExport.Clear()
daExcelExport.SelectCommand = New SqlCommand
daExcelExport.SelectCommand.Connection =
dtsclass.DatabaseConnection.GetDbConnection("ACCOU NT")
daExcelExport.SelectCommand.CommandText = "select * from myInvoice"
daExcelExport.Fill(dsExcelExport)
Try
With Excel
.SheetsInNewWorkbook = 1
.Workbooks.Add()
.Worksheets(1).Select()
.Range("A1").Value = "BRANCHID"
.Range("B1").Value = "BILLCODE"
.Range("C1").Value = "BILLNAME"
.Range("D1").Value = "COCODE"
.Range("E1").Value = "CONAME"
.Range("F1").Value = "INVNO"
Dim dr As DataRow
Dim i As Integer = 2
For Each dr In dsExcelExport.Tables(0).Rows
.Range("A" & i.ToString).Value = dr("BRANCHID")
.Range("B" & i.ToString).Value = dr("BILLINGCODE")
.Range("C" & i.ToString).Value = dr("BILLINGNAME")
.Range("D" & i.ToString).Value = dr("COCODE")
.Range("E" & i.ToString).Value = dr("CONAME")
.Range("F" & i.ToString).Value = dr("INVNO")
i += 1
Next
strExcelFile = _pFilePath
.ActiveWorkbook().SaveAs(strExcelFile)
.ActiveWorkbook.Close()
End With
MessageBox.Show("File exported sucessfully.", "Exporting done",
MessageBoxButtons.OK, MessageBoxIcon.Information)
''NormalExit:
Excel.Quit()
Excel = Nothing
I think I can export the file sucesfully, However, I cannot open the excel
in the first Time, it is hang . I need to kill the process in Task Manager
and then open the excel again.
Does my procedure got anything wrong ??
thanks a lot 3 2054
Hi,
I once had the same problem, it has to do with how you close Excel, I do it
like this
Dim oXL As Excel.Application
Dim oWB As Excel.Workbook
Dim oSheet As Excel.Worksheet
' Start Excel and get Application object.
oXL = DirectCast(CreateObject("Excel.Application"),
Excel.Application)
oXL.Visible = False
' Get a new workbook.
oWB = oXL.Workbooks.Add
oSheet = DirectCast(oWB.ActiveSheet, Excel.Worksheet)
' Add the values
oSheet.Cells(row, column).Value = "Something"
' Make sure Excel is visible and give the user control
' of Excel's lifetime.
oSheet.SaveAs("c:\yourfile.xls")
oXL.Visible = True
oXL.UserControl = True
' Make sure that you release object references.
oSheet = Nothing
oWB = Nothing
oXL.Quit()
oXL = Nothing
I hope this hepls,
Greetz, Peter
--
Programming today is a race between software engineers striving to build
bigger and better idiot-proof programs, and the Universe trying to produce
bigger and better idiots. So far, the Universe is winning. (Rich Cook)
"Agnes" <ag***@dynamictech.com.hk> schreef in bericht
news:#E**************@TK2MSFTNGP10.phx.gbl... Dim dsExcelExport As New System.Data.DataSet Dim daExcelExport As New System.Data.SqlClient.SqlDataAdapter
Dim Excel As New Excel.Application
Dim strExcelFile As String Dim strFileName As String dsExcelExport.Clear() daExcelExport.SelectCommand = New SqlCommand daExcelExport.SelectCommand.Connection = dtsclass.DatabaseConnection.GetDbConnection("ACCOU NT") daExcelExport.SelectCommand.CommandText = "select * from
myInvoice" daExcelExport.Fill(dsExcelExport)
Try With Excel .SheetsInNewWorkbook = 1 .Workbooks.Add() .Worksheets(1).Select()
.Range("A1").Value = "BRANCHID" .Range("B1").Value = "BILLCODE" .Range("C1").Value = "BILLNAME" .Range("D1").Value = "COCODE" .Range("E1").Value = "CONAME" .Range("F1").Value = "INVNO"
Dim dr As DataRow Dim i As Integer = 2 For Each dr In dsExcelExport.Tables(0).Rows
.Range("A" & i.ToString).Value = dr("BRANCHID") .Range("B" & i.ToString).Value = dr("BILLINGCODE") .Range("C" & i.ToString).Value = dr("BILLINGNAME") .Range("D" & i.ToString).Value = dr("COCODE") .Range("E" & i.ToString).Value = dr("CONAME") .Range("F" & i.ToString).Value = dr("INVNO") i += 1 Next
strExcelFile = _pFilePath .ActiveWorkbook().SaveAs(strExcelFile) .ActiveWorkbook.Close() End With MessageBox.Show("File exported sucessfully.", "Exporting
done", MessageBoxButtons.OK, MessageBoxIcon.Information) ''NormalExit: Excel.Quit() Excel = Nothing
I think I can export the file sucesfully, However, I cannot open the excel in the first Time, it is hang . I need to kill the process in Task Manager and then open the excel again. Does my procedure got anything wrong ?? thanks a lot
Thanks Peter,
I had changed all my code as yours .Howerver, After Excel is generated. I
still find an EXCEL.exe in my task manager . and I am fail to open the excel
until I delete the that task
"Peter Proost" <pp*****@nospam.hotmail.com> ¼¶¼g©ó¶l¥ó·s»D:%2******************@TK2MSFTNGP15.p hx.gbl... Hi,
I once had the same problem, it has to do with how you close Excel, I do it like this
Dim oXL As Excel.Application Dim oWB As Excel.Workbook Dim oSheet As Excel.Worksheet
' Start Excel and get Application object. oXL = DirectCast(CreateObject("Excel.Application"), Excel.Application) oXL.Visible = False
' Get a new workbook. oWB = oXL.Workbooks.Add oSheet = DirectCast(oWB.ActiveSheet, Excel.Worksheet)
' Add the values oSheet.Cells(row, column).Value = "Something"
' Make sure Excel is visible and give the user control ' of Excel's lifetime. oSheet.SaveAs("c:\yourfile.xls") oXL.Visible = True oXL.UserControl = True
' Make sure that you release object references. oSheet = Nothing oWB = Nothing oXL.Quit() oXL = Nothing
I hope this hepls,
Greetz, Peter
-- Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning. (Rich Cook)
"Agnes" <ag***@dynamictech.com.hk> schreef in bericht news:#E**************@TK2MSFTNGP10.phx.gbl... Dim dsExcelExport As New System.Data.DataSet Dim daExcelExport As New System.Data.SqlClient.SqlDataAdapter
Dim Excel As New Excel.Application
Dim strExcelFile As String Dim strFileName As String dsExcelExport.Clear() daExcelExport.SelectCommand = New SqlCommand daExcelExport.SelectCommand.Connection = dtsclass.DatabaseConnection.GetDbConnection("ACCOU NT") daExcelExport.SelectCommand.CommandText = "select * from myInvoice" daExcelExport.Fill(dsExcelExport)
Try With Excel .SheetsInNewWorkbook = 1 .Workbooks.Add() .Worksheets(1).Select()
.Range("A1").Value = "BRANCHID" .Range("B1").Value = "BILLCODE" .Range("C1").Value = "BILLNAME" .Range("D1").Value = "COCODE" .Range("E1").Value = "CONAME" .Range("F1").Value = "INVNO"
Dim dr As DataRow Dim i As Integer = 2 For Each dr In dsExcelExport.Tables(0).Rows
.Range("A" & i.ToString).Value = dr("BRANCHID") .Range("B" & i.ToString).Value = dr("BILLINGCODE") .Range("C" & i.ToString).Value = dr("BILLINGNAME") .Range("D" & i.ToString).Value = dr("COCODE") .Range("E" & i.ToString).Value = dr("CONAME") .Range("F" & i.ToString).Value = dr("INVNO") i += 1 Next
strExcelFile = _pFilePath .ActiveWorkbook().SaveAs(strExcelFile) .ActiveWorkbook.Close() End With MessageBox.Show("File exported sucessfully.", "Exporting done", MessageBoxButtons.OK, MessageBoxIcon.Information) ''NormalExit: Excel.Quit() Excel = Nothing
I think I can export the file sucesfully, However, I cannot open the excel in the first Time, it is hang . I need to kill the process in Task Manager and then open the excel again. Does my procedure got anything wrong ?? thanks a lot
Hi,
maybe this can help you: http://support.microsoft.com/default...b;en-us;317109
Greetz Peter
"Agnes" <ag***@dynamictech.com.hk> schreef in bericht
news:ub**************@TK2MSFTNGP15.phx.gbl... Thanks Peter, I had changed all my code as yours .Howerver, After Excel is generated. I still find an EXCEL.exe in my task manager . and I am fail to open the
excel until I delete the that task
"Peter Proost" <pp*****@nospam.hotmail.com>
¼¶¼g©ó¶l¥ó·s»D:%2******************@TK2MSFTNGP15.p hx.gbl... Hi,
I once had the same problem, it has to do with how you close Excel, I do it like this
Dim oXL As Excel.Application Dim oWB As Excel.Workbook Dim oSheet As Excel.Worksheet
' Start Excel and get Application object. oXL = DirectCast(CreateObject("Excel.Application"), Excel.Application) oXL.Visible = False
' Get a new workbook. oWB = oXL.Workbooks.Add oSheet = DirectCast(oWB.ActiveSheet, Excel.Worksheet)
' Add the values oSheet.Cells(row, column).Value = "Something"
' Make sure Excel is visible and give the user control ' of Excel's lifetime. oSheet.SaveAs("c:\yourfile.xls") oXL.Visible = True oXL.UserControl = True
' Make sure that you release object references. oSheet = Nothing oWB = Nothing oXL.Quit() oXL = Nothing
I hope this hepls,
Greetz, Peter
-- Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to
produce bigger and better idiots. So far, the Universe is winning. (Rich Cook)
"Agnes" <ag***@dynamictech.com.hk> schreef in bericht news:#E**************@TK2MSFTNGP10.phx.gbl... Dim dsExcelExport As New System.Data.DataSet Dim daExcelExport As New System.Data.SqlClient.SqlDataAdapter
Dim Excel As New Excel.Application
Dim strExcelFile As String Dim strFileName As String dsExcelExport.Clear() daExcelExport.SelectCommand = New SqlCommand daExcelExport.SelectCommand.Connection = dtsclass.DatabaseConnection.GetDbConnection("ACCOU NT") daExcelExport.SelectCommand.CommandText = "select * from myInvoice" daExcelExport.Fill(dsExcelExport)
Try With Excel .SheetsInNewWorkbook = 1 .Workbooks.Add() .Worksheets(1).Select()
.Range("A1").Value = "BRANCHID" .Range("B1").Value = "BILLCODE" .Range("C1").Value = "BILLNAME" .Range("D1").Value = "COCODE" .Range("E1").Value = "CONAME" .Range("F1").Value = "INVNO"
Dim dr As DataRow Dim i As Integer = 2 For Each dr In dsExcelExport.Tables(0).Rows
.Range("A" & i.ToString).Value = dr("BRANCHID") .Range("B" & i.ToString).Value = dr("BILLINGCODE") .Range("C" & i.ToString).Value = dr("BILLINGNAME") .Range("D" & i.ToString).Value = dr("COCODE") .Range("E" & i.ToString).Value = dr("CONAME") .Range("F" & i.ToString).Value = dr("INVNO") i += 1 Next
strExcelFile = _pFilePath .ActiveWorkbook().SaveAs(strExcelFile) .ActiveWorkbook.Close() End With MessageBox.Show("File exported sucessfully.", "Exporting done", MessageBoxButtons.OK, MessageBoxIcon.Information) ''NormalExit: Excel.Quit() Excel = Nothing
I think I can export the file sucesfully, However, I cannot open the excel in the first Time, it is hang . I need to kill the process in Task Manager and then open the excel again. Does my procedure got anything wrong ?? thanks a lot
This thread has been closed and replies have been disabled. Please start a new discussion. Similar topics
by: Andre |
last post by:
I'm not sure if this is the best place for this post or not, but I can't
find many asp newsgroups anymore.
I have an app that's 3-4 years old, and has been working just fine. One of
the pages...
|
by: Robin Cushman |
last post by:
Hi all,
I need some help -- I'm working with an A2K database, using DAO, and
am trying to read records into a Crystal Report and then export it to
a folder on our network as an Excel...
|
by: Anthony Cuttitta Jr. |
last post by:
I'm working on some procedures where Access queries are exported to
Excel, and then later on, those same workbooks are openned, and I need
to target a specific original sheet. Sometimes there will...
|
by: Siu |
last post by:
Hi,
I use the following code to export and import a file Excel from resp. into a
Web page with the following code:
//EXPORT
Response.Clear();
Response.Buffer = true;
Response.ContentType =...
|
by: Sam Johnson |
last post by:
HI
I tried to send the following SQL string to an open
databse, to export a table into excel format:
g.Connection = conn 'valid OleDBConnection and Command
objects
g.CommandText = "SELECT *...
|
by: Elena |
last post by:
I'm trying to export data to an Excel worksheet. I can export the data in
the cell values perfectly.
I need the code to change a header and footer for the worksheet, not for the
columns.
Is...
|
by: Hemant Sipahimalani |
last post by:
The following piece of code is being used to export HTML to excel.
HttpContext.Current.Response.ContentType = "application/vnd.ms-excel"...
|
by: Vanessa |
last post by:
hi Everyone,
I have two questions on exporting data to Excel using ASP (w/o converting
formatted excel file into web page and then plug in the dynamic data):
1. Can we export data into...
|
by: hemantbasva |
last post by:
Note We need to have a template on server for generating report in multiple sheet
as we do not had msoffice on server
moreover this require a batch job to delete excel file created by the...
|
by: Charles Arthur |
last post by:
How do i turn on java script on a villaon, callus and itel keypad mobile phone
|
by: aa123db |
last post by:
Variable and constants
Use var or let for variables and const fror constants.
Var foo ='bar';
Let foo ='bar';const baz ='bar';
Functions
function $name$ ($parameters$) {
}
...
|
by: ryjfgjl |
last post by:
If we have dozens or hundreds of excel to import into the database, if we use the excel import function provided by database editors such as navicat, it will be extremely tedious and time-consuming...
|
by: ryjfgjl |
last post by:
In our work, we often receive Excel tables with data in the same format. If we want to analyze these data, it can be difficult to analyze them because the data is spread across multiple Excel files...
|
by: emmanuelkatto |
last post by:
Hi All, I am Emmanuel katto from Uganda. I want to ask what challenges you've faced while migrating a website to cloud.
Please let me know.
Thanks!
Emmanuel
|
by: nemocccc |
last post by:
hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?
|
by: Sonnysonu |
last post by:
This is the data of csv file
1 2 3
1 2 3
1 2 3
1 2 3
2 3
2 3
3
the lengths should be different i have to store the data by column-wise with in the specific length.
suppose the i have to...
|
by: Hystou |
last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...
|
by: Oralloy |
last post by:
Hello folks,
I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>".
The problem is that using the GNU compilers,...
| | |