Excel导出工作表没有形状框，并下拉

我有一个macros导出当前页面没有任何公式或代码。 有几个问题。

Sub ExportXLSX() Application.EnableEvents = False Dim MyPath As String Dim MyFileName As String MyFileName = Sheets("Order Summary").Range("B2").Value & "_" & Format(Date, "yyyymmdd") If Not Right(MyFileName, 4) = ".xlsx" Then MyFileName = MyFileName & ".xlsx" Sheets("Order Summary").Copy With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Select where you want to save" .AllowMultiSelect = False .InitialFileName = "" 'Start folder path for the file picker. If .Show <> -1 Then GoTo NextCode MyPath = .SelectedItems(1) & "\" End With NextCode: With ActiveWorkbook .ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value '<~~ converts contents of XLSX file to values only .SaveAs filename:=MyPath & MyFileName, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False .Close False End With Application.EnableEvents = True End Sub 

1. 格式（date，“yyyymmdd”）似乎不适用于文件名。
2. 我想删除A列中的下拉框。
3. 我想删除我用于我的macros的形状框。

基本上想剥离的文件只有愚蠢的文字，所以我可以给它发电子邮件。

谢谢

Answer 1

你可以通过执行去除validation

 Activesheet.Cells.Validation.Delete 

（虽然符合表格名称是理想的）。

您也可以通过执行如下操作来循环显示工作表中的形状：

 Dim shp as Shape For each shp in ActiveSheet.Shapes shp.delete Next 

这两个步骤应该删除所有的形状，并应该删除所有的数据validation。