4

Interop を使用して Excel 2003 でワークシートをコピーする際に問題が発生しています。コードは 30 ~ 40 のコピーで機能し、「HRESULT からの例外: 0x800A03EC」という例外がスローされます。次のテスト コードには、http://support.microsoft.com/kb/210684/en-usで推奨されているパッチが既に含まれていますが、成功していません。誰もこれに対する回避策を知っていますか? 前もって感謝します

using Excel = Microsoft.Office.Interop.Excel;

private void button2_Click(object sender, EventArgs e)
    {
        string template_path = @"c:\temp\template.xlt";
        string filename = @"c:\temp\testxl1.xls";
        if (File.Exists(filename))
            File.Delete(filename);

        object missing = System.Reflection.Missing.Value;

        System.Globalization.CultureInfo my_culture = System.Threading.Thread.CurrentThread.CurrentCulture;
        System.Threading.Thread.CurrentThread.CurrentCulture = new System.Globalization.CultureInfo("en-US");

        Excel.ApplicationClass xlapp = new Excel.ApplicationClass();
        xlapp.Visible = true;
        xlapp.UserControl = true;

        Excel.Workbook xlwb = xlapp.Workbooks.Add(template_path);

        xlwb.SaveAs(@filename,
            missing, missing, missing, missing, missing,
            Excel.XlSaveAsAccessMode.xlNoChange,
            missing, missing, missing, missing, missing);


        Excel.Worksheet xlws = xlwb.Worksheets["diario"] as Excel.Worksheet;

        int copies = 200;

        for (int i = 0; i < copies; i++)
        {
            #region Patch kb/210684

            if (copies % 10 == 0)
            {                    
                xlwb.Close(true, missing, missing);
                System.Runtime.InteropServices.Marshal.ReleaseComObject(xlwb);
                xlwb = null;

                System.Runtime.InteropServices.Marshal.ReleaseComObject(xlws);
                xlws = null;

                Application.DoEvents();

                xlwb = xlapp.Workbooks.Open(@filename, 0,
                    missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing);
                xlws = xlwb.Worksheets["diario"] as Excel.Worksheet;

            }

            #endregion

            xlws.Copy(System.Reflection.Missing.Value, xlwb.Worksheets.Count);
        }

        System.Runtime.InteropServices.Marshal.ReleaseComObject(xlws);
        xlws = null;

        xlwb.Close(true, missing, missing);
        System.Runtime.InteropServices.Marshal.ReleaseComObject(xlwb);
        xlwb = null;

        xlapp.Quit();
        System.Runtime.InteropServices.Marshal.ReleaseComObject(xlapp);
        xlapp = null;

        System.Threading.Thread.CurrentThread.CurrentCulture = my_culture;
    }
4

1 に答える 1

1

私が見つけた唯一のことは、ローカル コンピューターが米国英語に設定されていない場合、例外は Excel LCID の問題である可能性があるということです。

http://www.made4dotnet.com/Default.aspx?tabid=141&aid=15

また

http://support.microsoft.com/kb/320369/en-us

于 2012-10-25T18:25:48.047 に答える