[已解决]从工作薄导出工作表

神七飞天 · 发表于 2011-9-15 22:34

请问下能不能从工作薄导出工作表是筛选后的可见单元格内容，我这个表不能导出筛选后的内容，只能导出整表的可见值，我想导出筛选后的可见值，请高手帮忙下，谢谢。

最佳答案

zjdh

2011-9-16 08:09

本帖最后由 zjdh 于 2011-9-16 08:49 编辑

Sub TEST()
Application.DisplayAlerts = False
For Each xlWk In Workbooks
If xlWk.Name = Date & "导出的报表.xlsx" Then
MsgBox "〖 " & Date & "导出的报表.xlsx 〗已打开，请关闭后再导出报表！"
Exit Sub
End If
Next
FL = ThisWorkbook.Path & "" & Date & "导出的报表.xlsx"
If Dir(FL) <> "" Then
If MsgBox("〖 " & Date & "导出的报表.xlsx 〗已存在,是否复盖原文件?", vbQuestion + vbYesNo) = vbNo Then Exit Sub
End If
With ThisWorkbook
Workbooks.Add
.Sheets("AD、FTTB(FTTO)-设备表").Range("A1:H215").Copy
ActiveSheet.Paste
Columns("A:H").Columns.AutoFit
Application.CutCopyMode = False
ActiveWorkbook.SaveAs FL
ActiveWorkbook.Close
End With
Application.DisplayAlerts = True
End Sub

复制代码

zjdh · 发表于 2011-9-16 08:09

本帖最后由 zjdh 于 2011-9-16 08:49 编辑

Sub TEST()
Application.DisplayAlerts = False
For Each xlWk In Workbooks
If xlWk.Name = Date & "导出的报表.xlsx" Then
MsgBox "〖 " & Date & "导出的报表.xlsx 〗已打开，请关闭后再导出报表！"
Exit Sub
End If
Next
FL = ThisWorkbook.Path & "" & Date & "导出的报表.xlsx"
If Dir(FL) <> "" Then
If MsgBox("〖 " & Date & "导出的报表.xlsx 〗已存在,是否复盖原文件?", vbQuestion + vbYesNo) = vbNo Then Exit Sub
End If
With ThisWorkbook
Workbooks.Add
.Sheets("AD、FTTB(FTTO)-设备表").Range("A1:H215").Copy
ActiveSheet.Paste
Columns("A:H").Columns.AutoFit
Application.CutCopyMode = False
ActiveWorkbook.SaveAs FL
ActiveWorkbook.Close
End With
Application.DisplayAlerts = True
End Sub

复制代码

神七飞天 · 发表于 2011-9-16 21:11

回复 zjdh 的帖子

谢谢帮忙，现在是可导出来了，我想请问下能不能只导出筛选后可见单元格部分，隐藏的内容不要了，不知道有没有这样的，谢谢。

zjdh · 发表于 2011-9-17 07:45

导出来的文件中没有隐藏的内容啊！

神七飞天 · 发表于 2011-9-17 16:19

谢谢了，就那样子也很好了。

zjdh · 发表于 2011-9-17 16:35

有何要求做个样张。

		自动登录	找回密码
密码			注册