关于excel存储数据的问题！

Question

我做了一个excel文件，里面有几个sheet,把这些sheet作为模板，从数据库中往里导数据！当向一个sheet导完数据后，我想把这个sheet作为另一个文件保存，而不要把整个excel文件保存！我如何做呢？

Answer 1

saveas另存为别的文件，会把一些没有必要的存的sheet一起存了，我想只另存我导入数据的sheet!我该怎么办呢？

Answer 2

恐怕不行吧？连excel本身都没有这种功能，通过vba怎么实现呢？呵呵

Answer 3

excel自身可以只存储一个表单sheet的,你在保存是选择存储的类型就可以！我现在想的办法是先新建一个excel文件，然后把我表单sheet的内容全部复制上去，可是怎么实现全选，复制，然后粘贴到另一个文件上呢？

Answer 4

你可以创建一个新的只有一个Sheet的打开它，往里面写数据，保存，然后关上。
用Excel对象来操作。要在References...那里引用 Excel 9.0 对象Dim VbExcel As Excel.Application
'打开
Set VbExcel = New Excel.Application
VbExcel.Workbooks.Open txtFileName.Text'读数据
            strDate = VbExcel.ActiveWorkbook.Sheets(1).Cells(n, 1).Value
            strOpen = VbExcel.ActiveWorkbook.Sheets(1).Cells(n, 7).Value
            strHigh = VbExcel.ActiveWorkbook.Sheets(1).Cells(n, 8).Value
            strLow = VbExcel.ActiveWorkbook.Sheets(1).Cells(n, 9).Value
            strClose = VbExcel.ActiveWorkbook.Sheets(1).Cells(n, 10).Value
            strGross = VbExcel.ActiveWorkbook.Sheets(1).Cells(n, 11).Value
            strVolume = VbExcel.ActiveWorkbook.Sheets(1).Cells(n, 12).Value写大概已是这样吧
用完之后，关上：    If Not VbExcel Is Nothing Then
        VbExcel.Visible = True
        VbExcel.ActiveWorkbook.Close False
        Set VbExcel = Nothing
    End If

Answer 5

因为我的程序没有需要保存到Excel文件，所以没有保存的代码。只是给你用excel对象的提示。
msdn大概有使用excel对象的详细资料。

Answer 6

sheet中的文件复制到一个新建的文件不就成了。

Answer 7

Cells.Select
    Range("E10").Activate
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste