Tag: 保存

禁用Excel保存选项，但允许macros保存

我正在创build一个excel文件，我想禁用“保存”和“另存为…”选项。 我在互联网上发现了很多解决scheme，就像VBA中的这个： Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) MsgBox "You can't save this workbook!" Cancel = True End Sub 它可以防止用户保存更改，但是我无法保存我的更改，这就是问题所在，因为我需要在VBA代码中进行更多的更改。 有没有办法保存我的macros变化？ 像pipe理员模式等…？ 感谢您的未来答案。

将Excel文件保存在两个不同的位置

我必须这样做，只要我保存Excel文件： 将文件保存在一个驱动器位置（如果存在同名文件，则覆盖） 回到文件的原始位置，并保存在那里（覆盖文件） 码： Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Application.ScreenUpdating = False Application.EnableEvents = False Application.DisplayAlerts = False Dim thisPath As String Dim oneDrivePath As String thisPath = ThisWorkbook.Path & "\" & ThisWorkbook.Name oneDrivePath = "C:\Users\Folder\OneDrive\" & ThisWorkbook.Name ActiveWorkbook.SaveAs _ Filename:=oneDrivePath Do Loop Until ThisWorkbook.Saved ActiveWorkbook.SaveAs _ Filename:=thisPath Do Loop Until […]

将一些excel工作表保存为PDF

Option Explicit Dim mySheets As Dictionary Private Sub SaveAndOpen_Click() 'set up variables Dim i As Long Dim j As Long Dim myArr() As Long Dim filename As String ReDim myArr(1 To Sheets.Count) j = 1 'make bounds Dim from As Long Dim tonum As Long 'numbers inputted from a userform from = FromBox.Value tonum = […]

保存打开的其他工作簿

我有一个工作簿（WorkbookA.xlsm），我打开。 打开后，将打开WorkbookB.xlsm。 'ThisWorkbook code of WorkbookA.xlsm Private Sub Workbook_Open() Dim wb As Workbook Application.ScreenUpdating = False Set wb = Workbooks.Open(Filename:="C:\WorkbookB.xlsm") wb.Windows(1).Visible = False End Sub 打开“B”之后，一个脚本被调用，它也启动一个定时器。 B中的脚本改变了A上的一些数据。我想在脚本被调用后自动保存WorkbookA.xlsm（没有任何提示）之后添加一些内容。 'ThisWorkbook code of WorkbookB.xlsm Private Sub Workbook_Open() Call Script 'looking for something in here to save WorkbookA End Sub

另存为使用variables名称会导致错误

尝试保存一个新的，尚未命名的工作簿（我使用另一个子添加）与名称的variables。 当我把所有的引号内的东西保存（不包括variables）。 但是，这段代码不断给出运行时错误'1004'：方法'保存'对象'_workbook'失败。 Sub SalvarTabela30() Application.DisplayAlerts = False Dim CompanyNameSave As String Dim VencimentoSave As Date Dim ContractNumberSave As String Dim LastrowForSave As Long LastrowForSave = ActiveSheet.Cells(Rows.Count, "D").End(xlUp).Row CompanyNameSave = Range("A2") VencimentoSave = Range("C" & LastrowForSave) ContractNumberSave = Range("E2") ActiveWorkbook.SaveAs _ Filename:="\\dsapc429pfs.pactual.net\homefolder02$\wellsty\Desktop\" & _ "Projeto – Marina\" & CompanyNameSave & " – " & ContractNumberSave […]

如何使用vba在excel2010中将保存types从excel工作簿更改为excel 97-2003？

由于activewoorkbook.close true我的macros打开saveFileDialog，但它select其保存types默认为“Excel工作簿”。 我需要改变为“Excel 97-2003工作簿”。即使我已经改变了我的默认格式在Excel保存选项。 但只有当我手动保存文件时才有效。 任何人都可以build议我一些线？ Sub OpenAllWorkbooksnew（）设置destWB = ActiveWorkbook Dim DestCell As Range Dim cwb As Workbook For Each cwb In Workbooks **Call donemovementReport** ActiveWorkbook.Close True ActiveWorkbook.Close False Next cwb End Sub

保存工作簿时发送电子邮件

我正在尝试发送一封电子邮件，将更新用户对电子表格的更改。 我试图做到这一点，当文档被保存时，会有一个电子邮件自动发送的变化列表。 有谁知道在保存文档时是否可以自动化电子邮件？

打开Excel文件，运行macros，保存（覆盖）

我目前正在尝试创build一个.vbs哪个 打开Excel 运行macros 用新的信息保存 退出 这是我迄今为止： Dim xlApp, xlBook Set xlApp = CreateObject("Excel.Application") xlApp.DisplayAlerts = False Set xlBook = xlApp.Workbooks.Open("C:\test\test.xlsm", 0, True) xlApp.Run "test" xlbook.Save xlBook.Close False set xlBook = Nothing xlApp.Quit Set xlApp = Nothing WScript.Echo "Upload is Finished" WScript.Quit 我得到“上传已完成”，但macros不保存。 我究竟做错了什么？ macros只是把一个工作表中的东西放到另一个工作表上： Sub test() ' ' test Macro ' Sheets("Sheet2").Select Range("A1:A10").Select Range("A10").Activate Selection.Cut […]

将新创build的工作簿保存到特定的文件夹

我希望你能帮上忙。 我有一段代码。 实质上，它打开一个对话框，允许用户select一个Excel工作表，然后出口到国家栏（11）对其进行过滤，然后将该国家复制并粘贴到一个新的工作簿中，命名新的工作簿之后国家又重复下一个国家的行动，然后保存并closures每个工作簿。 我想改变的是这些新的工作簿正在被保存的地方。 目前，它们被保存在模板（被分割的原始工作簿）和macros存储在同一个文件夹中。 我希望新创build的工作簿现在可以保存在其他地方。 这里是C：\ Users \ CONNELLP \ Desktop \ Claire Macro \ CRO国家 任何帮助将不胜感激。 工作簿当前存储在哪里 原始模板的图片 我的代码 Sub Open_Workbook_Dialog() Dim my_FileName As Variant Dim my_Workbook As Workbook MsgBox "Pick your CRO file" '<–| txt box for prompt to pick a file my_FileName = Application.GetOpenFilename(FileFilter:="Excel Files,*.xl*;*.xm*") '<–| Opens the file window to […]

c＃导出datagridview值为excel

任何人都可以帮助我解决这个问题，我真的不明白，我正在使用这个链接应用程序，这个问题总是出现。 这里是我试图做的链接http://www.aspdotnet-pools.com/2015/03/export-gridview-data-to-excel-sheet.html 这是图片