|
事情是这样的,我想要做一个导出功能。导出某几列至新建一个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
还请各位指教,谢谢大家。
|
|