代码自动将select复制到新的文件和自动保存

我正在尝试编写一些代码，用于select每次都有不同的单元格范围，这些单元格会将其导出到除预设weeknumber以外的预定义文件名的新文件。

我首先通过过滤weeknumberselect我想要的单元格。

之后，我使用下面的代码将其导出到一个新的文件;

 Sub Exportplanning() Dim strFileName As String strFileName = "Uitvoeringsplanning BRTTI 2014 week " & InputBox("Geef de desbetreffende weken aan en geef aan of het om voorlopig gaat (v) of definitief (def) Uitvoeringsplanning BRTTI 2014 week ..", "Geef de bestandsnaam op") If Trim(strFileName) = vbNullString Then Exit Sub Application.ScreenUpdating = False Application.DisplayAlerts = False ActiveSheet.Copy With ActiveWorkbook.ActiveSheet Cells.Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select .Parent.SaveAs "D:\rpreijnd\Desktop\" & strFileName & ".xlsx", xlOpenXMLWorkbook .Parent.Close False End With Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub 

问题是我想新文件没有隐藏的行和列。 我似乎无法做到。

另外我想在新文件中的单元格作为价值，而不是公式，我尝试了一些代码，但它搞砸了整个文件。

另一个问题是，当我点击取消button，它仍然生成一个文件。 什么是正确的代码，让我的行动停止，如果我点击取消？

Answer 1

创build一个新的工作簿以保存新的信息如下：

 Dim NewWorkbook As Workbook Workbooks.Add NewWorkbook NewWorkbook.SaveAs (Filename) 

如果你只想从源文件中取值，可以使用：

 Selection.PasteSpecial Paste:=xlPasteValues