excel vba问题

excel vba\u95ee\u9898

\u6211\u6d4b\u8bd5\u6ca1\u95ee\u9898.

\u4f60\u5148\u628a\u4e94\u4e2a\u4eba\u7684\u7167\u7247\u5148\u7c98\u8d34\u5230A2\u5355\u5143\u683c\uff0c\u6bcf\u4e2a\u56fe\u7247\u540d\u79f0\u6539\u4e3a\u4eba\u540d\uff0c\u662f\u5426\u53ef\u89c1\u5c5e\u6027\u8bbe\u4e3a\u4e0d\u53ef\u89c1\uff0c\u5728\u5355\u5143\u683c\u66f4\u6539\u4e8b\u4ef6\u4e2d\u5199\u4ee3\u7801\uff0c\u5faa\u73af\u6240\u6709\u56fe\u5f62\u5bf9\u8c61\uff0c\u4ee5A1\u5355\u5143\u683c\u7684\u5185\u5bb9\u548c\u56fe\u7247\u540d\u6bd4\u8f83\uff0c\u76f8\u540c\u5219\u8bbe\u7f6e\u4e3a\u53ef\u89c1\uff0c\u4e0d\u76f8\u540c\u8bbe\u4e3a\u4e0d\u53ef\u89c1\u3002

如果你的目录没有问题的话，你的程序有两个问题，
1：不能先copy再生成文件，再粘贴，这样你之前copy的动作会失效，所以当你粘贴的时候会报错，我把你copy的步骤放到后面去了。
2：想粘贴到"生产单统计.xls"，必须先打开这个表格啊。
程序已经改好了，你可以看看注释。

Sub Program
Set newbook = Workbooks.Add '先在指定目录下生成一个excel文件
With newbook
.SaveAs Filename:="C:\Documents and Settings\Administrator\桌面\生产单统计.xls"
End With

Workbooks.Open ("C:\Documents and Settings\Administrator\桌面\生产单统计.xls") '打开这个文件

ThisWorkbook.Activate
ThisWorkbook.Sheets(1).Columns("A:AD").Select '此处最好用你当前sheets的名称，如sheets("你的sheets名称")，这样不会出错
Selection.Copy 'copy旧的文件

Workbooks("生产单统计.xls").Activate

Sheets(1).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False 'paste
End Sub

路径的定义不对吧？
试试定义到同一文件夹里
.SaveAs Filename:=ThisWorkbook.Path & "\生产单统计.xls"

你使用的电脑登陆用户名是Administrator吗？
如果不是则不能保存到Administrator桌面，
只能保存到登陆用户名桌面。

C:\Documents and Settings\Administrator\桌面\生产单统计.xls

你试试保存到其他路径看看 比如 C:\

扩展阅读：vba编程必背50个程序 ... 快学excel vba入门教程 ... vba编程代码对照表 ... 初学vba编程100个代码 ... 表格vba编程怎样使用 ... excel怎么打开vba编辑器 ... microsoft visio ... excel中如何开启vba ... excel vba实例详解 ...