在工作簿之間複製工作表 - Excel互操作

Question

我從一個工作簿複製工作表並將它們粘貼到第二個工作簿中。 我用這個代碼：

book = appExcel.Workbooks.Open(@"e:\tr\pliki\filename.xlsm", 
         Missing.Value, Missing.Value, Missing.Value, 
         Missing.Value, Missing.Value, Missing.Value, Missing.Value, 
         Missing.Value, Missing.Value, Missing.Value, Missing.Value, 
         Missing.Value, Missing.Value, Missing.Value); 

      Microsoft.Office.Interop.Excel.Global global = new Microsoft.Office.Interop.Excel.GlobalClass(); 
      sheet.Copy(Missing.Value, global.Sheets[5]); 
      book.Save(); 

一切工作正常，但問題是用公式。工作表被複制後，其中的公式引用第一個工作簿中的值。公式路徑中包含來自其被複制路徑，第一個工作簿：

='E:\tr\pliki\[filename.xlsm]worksheetA'!A1:E2 

，應該是這樣的：

='worksheet'!A1:E2 

有誰能幫我嗎？

Answer 1

我不知道乾淨的方式來做你想做的事情，無論如何這是一種解決方法，可以解決你的問題。這只是在複製工作表之前將公式更改爲文本並在此之後恢復所有內容的問題。即你可以用你知道不存在於你的數據中的一些字符串（例如，像X_X_X_X_X_X這樣的奇怪字符）替換你的單元格中的所有=，然後恢復到初始狀態。

的代碼可能是這樣的：

 Microsoft.Office.Interop.Excel.Application appExcel = new Microsoft.Office.Interop.Excel.ApplicationClass(); 
     Microsoft.Office.Interop.Excel.Workbook srcBook = appExcel.Workbooks.Open(@"c:\tmp\test.xls", 
        Missing.Value, Missing.Value, Missing.Value, 
        Missing.Value, Missing.Value, Missing.Value, Missing.Value, 
        Missing.Value, Missing.Value, Missing.Value, Missing.Value, 
        Missing.Value, Missing.Value, Missing.Value); 
     Microsoft.Office.Interop.Excel.Workbook destBook = appExcel.Workbooks.Add(Missing.Value); 
     Microsoft.Office.Interop.Excel.Worksheet srcSheet = (Microsoft.Office.Interop.Excel.Worksheet)srcBook.Worksheets[1]; 
     Microsoft.Office.Interop.Excel.Range usedRange = srcSheet.UsedRange; 
     usedRange.Replace("=", "X_X_X_X_X_X", Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value); 
     srcSheet.Copy(destBook.Worksheets[1], Missing.Value); 
     Microsoft.Office.Interop.Excel.Worksheet destSheet = (Microsoft.Office.Interop.Excel.Worksheet)destBook.Worksheets[1]; 
     usedRange.Replace("X_X_X_X_X_X", "=", Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value); 
     usedRange = destSheet.UsedRange; 
     usedRange.Replace("X_X_X_X_X_X", "=", Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value);