vb.net和c#.net保存EXCEL

概述  vb.net    Dim sfDialog As SaveFileDialog = New SaveFileDialog()         sfDialog.FileName = DateTime.Now.ToString("yyyyMMddHHmmss") + ".xls"         sfDialog.Filter = "xls | *.xls"         Dim app A

vb.net

Dim sfDialog As SavefileDialog = New SavefileDialog()
sfDialog.filename = DateTime.Now.ToString("yyyyMMddHHmmss") + ".xls"
sfDialog.Filter = "xls | *.xls"
Dim app As Microsoft.Office.Interop.Excel.Application = New Microsoft.Office.Interop.Excel.Application()
If sfDialog.ShowDialog() = DialogResult.OK Then
Try

Dim wBooks As Microsoft.Office.Interop.Excel.Workbooks = app.Workbooks
Dim wBook As Microsoft.Office.Interop.Excel.Workbook = wBooks.Add(True)
Dim wSheet As Microsoft.Office.Interop.Excel.Worksheet = wBook.ActiveSheet
Dim dt As Datatable = New Datatable()
dt.Columns.Add("ID")
Dim dr As DaTarow = dt.NewRow()
dr(0) = "asdf"
dt.Rows.Add(dr)

For index = 0 To dt.Rows.Count - 1
wSheet.Cells(index + 1,index + 1) = dt.Rows(index)(index)
Next
wBook.SaveAs(sfDialog.filename,Microsoft.Office.Interop.Excel.XlfileFormat.xlExcel9795,
nothing,nothing,False,Microsoft.Office.Interop.Excel.XlSaveAsAccessMode.xlExclusive,nothing)
wBook.Close(True,nothing)
System.Runtime.InteropServices.Marshal.ReleaseComObject(wSheet)
System.Runtime.InteropServices.Marshal.ReleaseComObject(wBook)
System.Runtime.InteropServices.Marshal.ReleaseComObject(app)
wSheet = nothing
wBook = nothing
app = nothing
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End If

C#.net

SavefileDialog sfDialog = new SavefileDialog();
sfDialog.filename = DateTime.Now.ToString("yyyyMMddHHmmss") + ".xls";
sfDialog.Filter = "xls | *.xls";
if (sfDialog.ShowDialog() == DialogResult.OK)
{
Microsoft.Office.Interop.Excel.Application excel = new Microsoft.Office.Interop.Excel.Application();
try
{
object MissingValue = Type.Missing;
Microsoft.Office.Interop.Excel.Application app = new Microsoft.Office.Interop.Excel.Application();
wbs = app.Workbooks;
wb = wbs.Add(true);
Microsoft.Office.Interop.Excel.Worksheet wsheet = wb.ActiveSheet as Microsoft.Office.Interop.Excel.Worksheet;
Datatable dt = new Datatable();
dt.Columns.Add("ID");
DaTarow dr = dt.NewRow();
dr[0] = "dfasad";
dt.Rows.Add(dr);
for (int i = 0; i < dt.Columns.Count; i++)
{
//注意下面是i+1,excel小标默认从1开始
wsheet.Cells[1,i + 1] = dt.Rows[i][i];
}

wb.SaveAs(sfDialog.filename,null,false,false
,null);
wb.Close(true,null);
System.Runtime.InteropServices.Marshal.ReleaseComObject(wsheet);
System.Runtime.InteropServices.Marshal.ReleaseComObject(wb);
System.Runtime.InteropServices.Marshal.ReleaseComObject(app);
wsheet = null;
wb = null;
app = null;

}
catch (Exception e1)
{
MessageBox.Show("出现错误：" + e1.Message);

} finally { excel.Quit(); excel = null; } }

总结

以上是内存溢出为你收集整理的vb.net和c#.net保存EXCEL全部内容，希望文章能够帮你解决vb.net和c#.net保存EXCEL所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。