谁知道 怎么把EXECL文件中的一个工作表 复制到 新建execl文件的工作表中去呢！
谁知道 怎么把EXECL文件中的一个工作表 复制到 新建execl文件的工作表中去呢！
[解决办法]
举例来说吧！
把BOOK1中的SHEET1复制到BOOK2中，操作如下：
1）用EXCEL打开BOOK1和BOOK2；
2）选中BOOK1，MOUSE右键选中SHEET1，将自动弹出一个菜单；
3）在菜单中选择“移动或复制。。。”，又弹出移动或复制的选择框；
4）选择目标为BOOK2，同时选中“保留副本”选项；
5）“OK”执行即可。
[解决办法]
Worksheets(1).Copy
[解决办法]
Dim xlapp As Excel.Application
Set xlapp = GetObject(, "excel.application ")
xlapp.Workbooks( "A.XLS ").Worksheets(1).Copy
Set xlapp = Nothing
[解决办法]
Set xlapp = Nothing 这个句子是什么意思！
[解决办法]
楼主稍微等一下
我帮你看看
呵呵
[解决办法]
已经找到办法了
原理是这样的：你打开一个工作表的sheet，输入数据，然后保存xlsbook.save
这样就把你输入的数据存入了原表
这时候利用xlssheet.copy方法
这样以来，就相当于产生了另外一个新的workbook对象，且处于active状态
再保存excelApp.activeworkbook.saveas "路径 "
代码如下，自己好好理解一下吧
我的代码是在c盘放个excel文件1.xls
先引用excel 11.0
Dim app As New Excel.Application
Dim xlsBook As New Excel.Workbook
Dim xlsSheet As New Excel.Worksheet
Set xlsBook = app.Workbooks.Open( "c:\1.xls ")
Set xlsSheet = xlsBook.Worksheets( "abc ")
xlsSheet.Copy
app.ActiveWorkbook.SaveAs "c:\2.xls "
xlsBook.Close
app.Quit
Set app = Nothing
Set xlsBook = Nothing
Set xlsSheet = Nothing
把以上代码放到一个过程里面就可以了
[解决办法]
如果你需要对1.xls录入数据
那就操作
反正最后再copy
然后saveas
[解决办法]
楼上的是不是自己建立好了Execl的模版了先
[解决办法]
WXHNR写的就已经很简单了啊！
-----------------------------------------------
Dim xlapp As Excel.Application
Set xlapp = GetObject(, "excel.application ")
xlapp.Workbooks( "A.XLS ").Worksheets(1).Copy
Set xlapp = Nothing
-----------------------------------------------
不过复制的那句似乎有点问题，稍微修改下
Dim xlapp As Object
Dim xlsapp As Object
Set xlapp = GetObject(pathname & "A.xls ") 'pathname为路径，A.xls为需要复制的文件
Set xlsapp = CreateObject( "excel.sheet ") '新建一个Excel工作簿
xlapp.worksheets(1).Copy before:=xlsapp.worksheets(1) '将A.xls的第一张工作表复制到新建的Excel工作簿的第一张工作表之前
xlsapp.SaveAs pathname & "1.xls " '将新建的工作簿存贮到指定路径的1.xls
Set xlsapp = Nothing
Set xlapp = Nothing
中间很多东西可以完善和修改。
我也是这两天才涉及到Excel和VB的应用，呵呵，以前也没学过编程，不是很懂，希望各位大虾们指教下。
[解决办法]
如果是1.xls已经存在的话
把 Set xlsapp = CreateObject( "excel.sheet ") 改成 Set xlsapp = GetObject(pathname & "1.xls ")
把 xlsapp.SaveAs 那句改成 xlsapp.Save
就行了，不知道对不对，^_^
