excel表格复制:Excel-区别表格间复制的问题

  如果要在区别表格间复制worksheet,前提必须是同个workbooks打开否则会报0x800A03EC

      bool vFG = true;
      m_App.Visible = false;
      //m_App1.Visible = false;
      m_App.DisplayAlerts = false;
      //m_App1.DisplayAlerts = false;
      Workbooks vWorkbooks = m_App.Application.Workbooks;
      //Workbooks vWorkbooks1 = m_App1.Application.Workbooks;
      object vReadOnly = false;
      object vEditable = true;
 Workbook vWorkbook = vWorkbooks.Open( pFileName, m_Missing, vReadOnly, m_Missing, m_Missing, m_Missing, m_Missing, m_Missing, m_Missing, vEditable, m_Missing, m_Missing, m_Missing, m_Missing,m_Missing);      bool vExist = false;
      for ( i = 1; i <= vWorkbook.Worksheets.Count; i)
      {
        Worksheet vWorksheet = (Worksheet)vWorkbook.Worksheets[i];
         (vWorksheet.Name.Equals("B票"))
        {
          vExist = true;
          ;
        }
      }
       (!vExist)
      {
         (this.m_WorkSheetOfMode null)
        {
          Workbook vWorkbook1 = vWorkbooks.Open(this.txtModeOfBugList.Text, m_Missing, vReadOnly, m_Missing, m_Missing, m_Missing, m_Missing, m_Missing, m_Missing, vEditable, m_Missing, m_Missing, m_Missing, m_Missing,m_Missing);
          Worksheet vWorksheet1 = null;
          for ( i = 1; i <= vWorkbook1.Worksheets.Count; i)
          {
            vWorksheet1 = (Worksheet)vWorkbook1.Worksheets[i];
             (vWorksheet1.Name.Equals("B票"))
            {
              vExist = true;
              this.m_WorkSheetOfMode = vWorksheet1;
              ;
            }
          }
           (!vExist)
          {
            vFG = false;
          }
          
          {
            Worksheet vWorksheet2 = (Worksheet)vWorkbook.Worksheets[vWorkbook.Worksheets.Count];
            vWorksheet1.Copy(m_Missing, vWorksheet2);
          }
        }
        
        {
          Worksheet vWorksheet2 = (Worksheet)vWorkbook.Worksheets[vWorkbook.Worksheets.Count];
          this.m_WorkSheetOfMode.Copy(m_Missing, vWorksheet2);
        }
      }
      vWorkbook.Save;
      //vWorkbooks1[1].Save;
      vWorkbooks.Close;
      vWorkbooks = null;
      //vWorkbooks1.Close;
      m_App.Quit;
      //m_App1.Quit;


Tags:  excel电子表格 excel表格 excel如何复制表格 excel表格复制

延伸阅读

最新评论

发表评论