Sub 复制数值()
Dim new_Book As Workbook
Set new_Book = Workbooks.Add
ThisWorkbook.Sheets(1).Copy before:=new_Book.Sheets(1)
new_Book.Activate
Sheets(1).Range("A1:H").End(xlUp).Select '该行调试出错,我只希望复制出A1:H列的最后一行非空行
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
new_Book.SaveAs "D:\" & Mid(Sheets("1").Range("A2"), 6, 23) & ".xls"
End Sub
下图:我希望只复制出A1:H21行的内容
vba运行时错误1004 应用程序定义或对象定义错误是设置错误造成的,解决方法为:
1、先打开一个文件。
2、单击文件―选项―信任中心―信任中心设置。
3、打开“信任中心”对话框 宏设置。
4、勾选“信任对VBA工程对象模型的访问” 点击确定。就不会出现运行时错误1004提示。
试试改改这里:
For G = 1 To Sheets.Count在Sheets.Count前面加一个wb.
改后如下:
For G = 1 To wb.Sheets.Count非常感谢你的回答,都很好,可只能采纳一个