急急急!!!搞好久了，还是搞不好！麻烦各位老师了。

2253671050

事情是这样的，我想要做一个导出功能。导出某几列至新建一个excel。但是在复制过程中，一直存在问题。   上次做一个导入功能，也是在复制的问题上搞了好久。最后就那么稀里糊涂成功了。这次不管怎么试来试去都不行。详情请见附件。
代码主要出错的地方是"

Private Sub daochufmmd_Click()
Dim ifle As String, xlast, i
ifle = ThisWorkbook.Path & "\" & "封面已打印名单.xlsx"
Dim fmdy As Workbook
Set fmdy = Workbooks.Add
fmdy.SaveAs Filename:=ifle
xla = ThisWorkbook.Worksheets("新开封面已打印名单").UsedRange.Rows.Count
'各位大神，下面这句经常一直跳错。我怎么改都改不好。麻烦各位老师帮我看看。谢谢
ThisWorkbook.Worksheets("需要整理内容").Range(Cells(2, 2), Cells(xlast, 2)).Copy fmdy.Worksheets(1).Range("b2")
'需要实现的是：将Worksheets("需要整理内容")中指定的单元格复制给新建的excel。是不是range(cells,cells)这样的描述出问题了？


fmdy.Save
End Sub

还请各位指教，谢谢大家。

2253671050

麻烦大家帮忙看看，两个工资簿之间复制的问题，谢谢大家了

zhuguangnian

xla = ThisWorkbook.Worksheets("新开封面已打印名单").UsedRange.Rows.Count
这是在干嘛？
当前工作簿根本没有名为"新开封面已打印名单"的工作表啊

网海遨游

注意要表名，有多个薄时，甚至要带薄名

sheets("表名").range(sheets("表名").cells(行,列),sheets("表名").cells(行,列)).copy

answer6141

Worksheets("新开封面已打印名单")这个表名在哪，可不得下表越界

answer6141

你的xlast =0也越界，你的thisworkbook指的是哪张表，如果是指的整理.xls，那么也报错workbook.add会激活一个工作簿，你的thisworkbook指的是这张空表


有帮助请赏花

2253671050

昨天急急忙忙，有几个语句搞错了。非常不好意思。
正确的代码是：
Private Sub daochufmmd_Click()
Dim ifle As String, xlast, i
ifle = ThisWorkbook.Path & "\" & "封面已打印名单.xlsx"
Dim fmdy As Workbook
Set fmdy = Workbooks.Add
fmdy.SaveAs Filename:=ifle

xlast = ThisWorkbook.Worksheets("需要整理内容").UsedRange.Rows.Count    '定义最后使用单元格所在行
'各位大神，下面这句经常一直跳错。我怎么改都改不好。麻烦各位老师帮我看看。谢谢

ThisWorkbook.Worksheets("需要整理内容").Range(Cells(2, 2), Cells(xlast, 2)).Copy fmdy.Worksheets(1).Range("b2")

fmdy.Save
End Sub

2253671050

zhuguangnian 发表于 2020-2-1 22:05
xla = ThisWorkbook.Worksheets("新开封面已打印名单").UsedRange.Rows.Count
这是在干嘛？
当前工作簿根 ...

不好意思，写错了。应该是：xlast = ThisWorkbook.Worksheets("需要整理内容").UsedRange.Rows.Count  '用于取得最后一行使用单元格所在的行数。能再帮我看一下吗？

2253671050

网海遨游 发表于 2020-2-1 22:22
注意要表名，有多个薄时，甚至要带薄名

sheets("表名").range(sheets("表名").cells(行,列),sheets("表 ...

感谢大神帮助，我后来直接用range(thisworkbook.sheets(1).cells(),cells())copy 这样的描述写的，就通过了。以后终于知道这个问题了。非常感谢~~~