ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "新文件名", FileFormat:=xlWorkbookNormal 4)另存为PDF格式(可使用PDF阅读器打开,格式不失真) ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "新文件名" 5) 另存为CSV格式 ActiveWorkbook.SaveAs Filen...
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "新文件名", FileFormat:=xlExcel8 3)另存为另一个名称的xlsx(默认格式)的工作簿 ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "新文件名", FileFormat:=xlWorkbookNormal 4)另存为PDF格式(可使用PDF阅读器打开,格式不失真) Act...
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "文件名", FileFormat:=xlWorkbookNormal 另存为xls的工作簿 'ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "文件名", FileFormat:=xlExcel8 另存为PDF ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Pat...
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Name & "副本.xlsm" End If Saved属性 如果在保存之后又对工作簿进行了修改,那么该属性返回True。其语法为: Workbook对象.Saved 如果想要关闭修改过的工作簿而不保存修改或者出现保存修改的提示,那么可以将该属性设置为...
1 新建一个Excel文件并保存。打开VBE,可以用快捷键<Alt+F11>.VBE的介绍可以参照下面的链接后者百度下找找。2 新建一个模块,输入下面的代码。Sub SaveAsMacroEnable() Dim OldFileName As String OldFileName = Left(ThisWorkbook.FullName, InStr(ThisWorkbook.FullName, ".") - 1) ActiveWorkbook.SaveAs...
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\book1234.xls"ActiveWorkbook.Close SaveChanges:=True Exit Sub 100:ActiveWorkbook.Close False End Sub 代码解析:MyArrSheetCopy过程将“Sheet1”和“Sheet2”工作表单独保存为一个工作簿文件。第4行代码使用SaveAs方法保存活动工作簿。下面我们看看三种方法的...
ActiveWorkbook.SaveAs _ Filename:="C:UsersDellDesktopmyNewBook" End Sub In the above code, you have the path in the FileName argument and VBA uses that path to the file. Note:You can also use this method to check if a workbook exists in a folder or not before you use the SAVE AS...
ActiveWorkbook.SaveAsFilename:=strNewWBName ActiveWorkbook.Close SaveChanges:=False Next wks End Sub 本文为原创文章,转载请注明出处。 欢迎在下面留言,完善本文内容,让更多的人学到更完美的知识。 欢迎关注[完美Excel]微信公众号: 方法1—在微信通讯录...
您尝试打开的文件"1.xls"的格式与文件拓展名指定的格式不一致,打开文件前请验证文件没有损坏且来源可信,是否立即打开该文件? 解决方法 代码中,保存这句话,加后面一个条件 ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path &"\aaa.xls", _ FileFormat:=xlWorkbookNormal ...
Set fso = Nothing For i = 1 To numbers fileName = i & ".xlsx" If Not IsFileExists(fileFolder & "\" & fileName) Then Workbooks.Add ActiveWorkbook.SaveAs fileName:=fileFolder & "\" & fileName ActiveWorkbook.Close End If Next Application.ScreenUpdating = True...