输出EXCEL另存为？

[newstarters]

Dim Appexcel As Excel.Application = New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlChar As New Excel.Chart
Dim xlSheet As New Excel.Worksheet

Appexcel = CreateObject("Excel.Application")
xlBook = Appexcel.Workbooks.Add
xlSheet = xlBook.Worksheets(1)
Appexcel.Visible = False

Dim i As Integer
Dim j As Integer
Dim col As Integer
For i = 0 To DataGridView1.RowCount - 1
col = 1
For j = 0 To DataGridView1.ColumnCount - 1
Appexcel.Cells(i + 5, col) = DataGridView1.Rows(i).Cells(j).Value
col = col + 1
Next
Next

Appexcel.Range("C5:M10000").NumberFormatLocal = "0.00"
'??此处的最大范围M10000能否取得，1000是随便写的值

Appexcel.DisplayAlerts = False
xlBook.SaveAs("C:\查询报表.xls")
'??此处怎样调出savefileDialog1来进行路径与名称设置，然后保存呢

xlSheet = Nothing
xlBook.Close()
xlBook = Nothing
Appexcel.Application.Quit()
Appexcel.Quit()
Appexcel = Nothing
MessageBox.Show("输出成功!", "消息框", MessageBoxButtons.OK, MessageBoxIcon.Information)

[_NET2004]

你的问题？

[古今多少事]

1、能去得吧，试试。
2、Appexcel.DisplayAlerts = False
SaveFileDialog1.ShowDialog()
xlBook.SaveAs(SaveFileDialog1.FileName)
最好判断下文件名是否为空和SaveFileDialog的过滤器等。

[hansin]

xlBook.SaveAs(SaveFileDialog1.FileName)

[十八道胡同]

//关闭之前看文件是否保存
        private void MyNotePad_FormClosing(object sender, FormClosingEventArgs e)
        {
            if (this.textBox1.Text != "")
            {
                if (!File.Exists(this.Text))
                {
                    DialogResult d = MessageBox.Show("文件 " + this.Text + @" 的文字已经改变。
想保存文件吗？", "MyNotePad", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly);
                    switch (d)
                    {
                        case DialogResult.Yes:
                            using (SaveFileDialog saveDig = new SaveFileDialog())
                            {
                                saveDig.Filter = @"文本文档(*.txt)|*.txt";
                                saveDig.FileName = "*.txt";
                                if (saveDig.ShowDialog() == DialogResult.OK)
                                {
                                    StreamWriter sw = new StreamWriter(saveDig.FileName, false, System.Text.Encoding.Default);
                                    sw.Write(this.textBox1.Text);
                                    sw.Close();
                                    this.Text = saveDig.FileName;
                                }
                            }
                            break;
                        case DialogResult.No:
                            break;
                        case DialogResult.Cancel:
                            break;

                        default: System.Diagnostics.Debug.Assert(false);
                            break;
                    }
                }
            }
        }



本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/LCL_data/archive/2009/06/11/4260509.aspx

用vb写就可以了

[mania001]

学习一下。

[yxh198358]

Appexcel.Range("C5:M10000").NumberFormatLocal = "0.00"
'??此处的最大范围M10000能否取得，1000是随便写的值

Appexcel.Range(appexcel.cells(3,3),appexcel.cells(DataGridView1.rowCount,DataGridView1.ColumnCount)).NumberFormatLocal = "0.00"

[yxh198358]

Appexcel.DisplayAlerts = False
xlBook.SaveAs("C:\查询报表.xls")
'??此处怎样调出savefileDialog1来进行路径与名称设置，然后保存呢

Application.FileDialog (msoFileDialogSaveAs).Show

[lang_csdn]

Appexcel.Range("C5:M10000").NumberFormatLocal = "0.00"
'??此处的最大范围M10000能否取得，1000是随便写的值

看看这个，关于excel范围的确定

http://www.cnblogs.com/zqonline/archive/2009/07/21/1527990.html