Dim exl As New Excel.ApplicationClass Dim ebook As Excel.Workbook ebook = exl.Workbooks.Open("C:\Documents and Settings\Administrator\桌面\a.xls") Dim ebook2 As Excel.Workbook ebook2 = exl.Workbooks.Open("C:\Documents and Settings\Administrator\桌面\b.xls") exl.Visible = True ebook.Worksheets.Copy(, ebook2.Worksheets.Item("Sheet1")) 没有问题啊? 参考下这个
Excel.Application mApp = new Excel.ApplicationClass();
Excel.Workbook m_book1 = mApp.Workbooks.Open(CPubData._SrcExcelFileName,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);
Excel.Workbook m_book2 = mApp.Workbooks.Open(CPubData._OutExcelFilePathName,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);
mApp.Visible = true;
((Excel._Worksheet)m_book1.Worksheets[1]).Copy(Missing.Value,m_book2.Worksheets[1]); 在第二个文件open时出错。
if(File.Exists(OutFile))
File.Delete(OutFile);
File.Create(OutFile);
http://msdn2.microsoft.com/zh-CN/library/ms178800.aspx
private void button5_Click(object sender, System.EventArgs e)
{
this.openFileDialog1.Title = "请选择源文件";
this.openFileDialog1.Filter = "Excel文件(*.xls)|*.xls";
this.openFileDialog1.ShowDialog();
if(this.openFileDialog1.FileName.Equals(""))
{
MessageBox.Show("请选择一个Excel文件!");
}
else
{
Excel.Application excel = new Excel.ApplicationClass();
Excel.Workbook workbook = excel.Workbooks.Open(this.openFileDialog1.FileName,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing);
this.openFileDialog1.Title="请选择目标文件";
this.openFileDialog1.ShowDialog();
if(this.openFileDialog1.FileName.Equals(""))
{
MessageBox.Show("请选择一个Excel文件!");
}
else
{
Excel.Workbook workbook1 = excel.Workbooks.Open(this.openFileDialog1.FileName,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing);
Excel.Worksheet worksheet = (Excel.Worksheet)workbook.Sheets["Sheet1"];
worksheet.Copy(workbook1.Sheets["sheet1"],Type.Missing);
workbook1.Save();
workbook1.Close(false,Type.Missing,Type.Missing);
}
workbook.Save();
workbook.Close(false,Type.Missing,Type.Missing);
}
}
http://lucky_elove.www1.dotnetplayground.com/ShowDetail.aspx?id=BF0A54F9-C7C7-4200-BD9A-802AC1F5DE50
Dim ebook As Excel.Workbook
ebook = exl.Workbooks.Open("C:\Documents and Settings\Administrator\桌面\a.xls")
Dim ebook2 As Excel.Workbook
ebook2 = exl.Workbooks.Open("C:\Documents and Settings\Administrator\桌面\b.xls")
exl.Visible = True
ebook.Worksheets.Copy(, ebook2.Worksheets.Item("Sheet1"))
没有问题啊?
参考下这个